VB 操作题题库 重要Word格式文档下载.docx

1、3.输出平行四边形Private Sub Command1_Click（） Dim i, j As Integer For i = 1 To 4 Print Tab（6 - i）; For j = 1 To 4 Print 4本题是在text1中输入一位十六进制数码（若是字母要大写），运行程序后能译出它表示的十进制数的程序。请不要更改源程序的结构，删除原题里的、。填写正确的代码，使程序完善 Dim m As String m = Select Case m Case A m = 10B11 Text1.Text End Select mC12D13E14F15 Text2.Text = 5.文

2、本框中输入一个三位正整数，求各位数字之和。如输入835，计算8+3+5，在标签上输出结果16. Dim a As Integer Dim s As Integer val 3 a mod 10 a10 a = （Text1.Text） For i = 1 To s = s + a = Next Label1.Caption = Str（s）6 回文字符串是指一个字符串从左往右读与从右往左读是一样的，如ABCBA，123321等等。编写程序，输入一个字符串，若是回文字符串，则输出YES，否则输出NO。以下程序使用文本框Text1输入字符串，使用文本框Text2输出结果，请在程序的两个空格处填上相

3、应的字句，使之完成相应的功能。 Len（s） Mid（s, Len（s） + 1 - i, 1） Text2.Text = ok Dim s As String Dim ok As String s = Text1.Text ok = Yes If Mid（s, i, 1） Then ok = No 7输入一个数，判断该数是否为完数。所谓完数即该数等于其因子之和。例如：6=123；28124714。若是完数则输出。Private Sub cmdPerfect_Click（） Dim m As Integer Dim sum As Integer s = 1 sum = 1 = Val（Inpu

4、tBox（输入一个正整数:） m sum + i s For i = 2 To m - 1 If m Mod i = 0 Then sum = s = s & + & Str（i） End If If sum = m Then Print m;是完数 输出因子之和 Else 不是完数8完善程序，使之能够随机产生10个100以内的整数，并找其中的最大数、最小数。 Dim a（10） As Integer Dim max As Integer Dim min As Integer Randomize产生10个随机整数: For i = 1 To 10 a（i） = Int（Rnd * 100） P

5、rint a（i）; min = a（1） max= a（1） For i = 2 To 10 If a（i） max Then max = a（i）最大数： max, 最小数： min9下面是有趣的倒话游戏程序，请完善程序，使之能完成样张功能。 Dim x As String Dim y As String x = Text1.Text y = For i = Len（x） To 1 Step -1 y = y + Mid（x, i, 1） Text2.Text = y10.在文本框中分别输入数字后，单击交换按钮，实现两个值交换。 Dim b As Integer b t a b Dim t

6、 As Integer a = Val（Text1.Text） b = Val（Text2.Text） t = a a = b = Text1.Text = Text2.Text = 11中国邮政的EMS国际快递业务：中国寄往澳大利亚的快递收费标准是：首个0.5公斤收费210元，其余的重量按55元/每千克计算，（总重不足0.5千克按210元收费）下面是自动计算寄费的程序，请你完善程序。 Dim x As Single, y As Single x End If Text2.Text y = 0 = Val（Text1.Text） If x 0.5 Then y = 210 + （x - 0.5

7、） * 55 y = 210 = Str（y）12本题是青蛙跃井问题：井底蛙欲沿湿滑井壁上跃至地面，若井深h尺，蛙上跃3尺下滑1尺，请给出井深h值，计算蛙上跃次数n。Dim h As Single, n As Integerh = Val（） 1 nIf h 3 Then If h Mod 2 = 0 Then n = h / 2 Else n = （h - 1） / 2Else n = End IfText2.Text = 13本题是从一串只含有字母或数字的字符串中找出所有大写字母，并把找出的大写字母显示在text2中。 Dim x As String, y As String Dim i

8、As Integer, n As Integer x = n = Len（x） If Asc（Mid（x, i, 1） 64 ThenEnd Sub 答案：1）text1.text2）n3）y14完善程序,使之在运行程序后，能在窗体上显示样张所显示的图形。Line （600, 200）-（1500, ）, RGB（255, 0, 0）Line （1500, 200）-（1500, 1000）, RGB（0, 0, 255）Line （1500, 1000）-（600, 1000）, RGB（）Line （, 1000）-（600, 200）, RGB（0, 0, 255）1）2002）255,

9、0,03）60015该题是求丢番图年龄问题：丢番图生命的1/6是童年，又过了1/12长胡子，再过了的1/7结婚，婚后5年生儿子，儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。求丢番图年龄。Dim n As Integer n while Text1.Textn = 0Do = n + 1Loop n = 0.0001 Pi = Pi + t n = n + 2 s = -s t = s / n Loop Pi = Pi * 4Pi= CStr（Pi）注意：题目中出现的cstr和str函数是一个意思。T12从文本框输入一个秒数ss，转换成小时、分钟、秒。Label1显示“小时”、labe

10、l2显示“分钟”、label3显示“秒”。 Dim h, m, s, ss As Integer ss = Val（Text1.Text） h = ss 3600 m = （ss - h * 3600） 60 s = （ss - h * 3600） Mod 60 Label1.Caption = CStr（h） Label2.Caption = CStr（m） Label3.Caption = CStr（s）T181输入10个学生的成绩，输出最大值和最小值。 Dim cj（10） As Single Dim max As Single Dim min As Single cj（i） = Val

11、（InputBox（请输入10个学生的成绩, 成绩输入 max = cj（1） min = cj（1） If cj（i） max Then max = cj（i） If cj（i） min Then min = cj（i） Print CStr（max）, CStr（min）T24小明出题（大概）以上是题目大概界面意思是：第一、.点击出题按钮时，label1和label2产生0-9两个随机数a和b。尔后做题者把两数之和输入在文本框中。第二、点击评判按钮，如果做题人输入结果正确，那么label3显示“正确”，否则label3显示“错误”。第四、label6显示第几次出题。Dim a, b, c,

12、 x, n As Integer Label6.Caption = 第 n &道题 a = Int（Rnd * 10） b = Int（Rnd * 10） Label1.Caption = a Label2.Caption = b n = n + 1Private Sub Command2_Click（） c = a + b x = Val（Text1.Text） If c = x Then Label3.Caption = 正确错误Private Sub Form_Load（） n=1T175用递归函数求1+2+100的和Public Function S（n As Integer） As

13、Integer If n = 1 Then S = 1 S = n + S（n - 1）End Function Dim Sum As Integer Sum = S（100）Sum= CStr（Sum）T32向文本框1中输入一个三位数后，在文本框2中输出倒过来的三位数。（比如输入123，输出321） Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer Dim g As Integer bai = a 100 shi = （a - bai * 100） 10 g = a Mod 10 b = g * 100 + s

14、hi * 10 + bai Text2.Text = CStr（b）T4从100-999中输出水仙花数。（水仙花数满足各位立方和等于该数） 案例1 Dim i As Integer, a As Integer, b As Integer, c As Integer For i = 100 To 999 a = i 100 b = （i - a * 100） 10 c = i Mod 10 If a 3 + b 3 + c 3 = i Then Print i16,水仙花数（msgbox输出三位数，满足各位立方和等于该数） 案例2Dim a,b,c as integer a:个位，b：十位，c：

15、百位For a=0 to 9For b=0 to 9For c=1 to 9If a3+b3+c3=a+10*b+100*c thenMsgbox 100*c+10*b+aEnd ifNext cNext bNext a T43用递归法求菲薄那列数列。Public Function Fib（n As Integer） As Integer If （n = 1） Or （n = 2） Then Fib = 1 Fib = Fib（n - 1） + Fib（n - 2） Dim S As Integer S = Fib（ n ）S= CStr（S）T91随机产生100个随机整数，求偶数的个数Dim

16、 a（100） As Integer Dim total As Integertotal = 0 For i = 1 To 100 If a（i） Mod 2 = 0 Then total = total + 1 Print CStr（total） a（i） = Int（Rnd * 1000）T94将数组a中的10个数按升序排列（冒泡排序） For i = 1 To 9 For j = i+1 to 10 a（j） Then a（0） = a（i） a（i） = a（j） a（j） = a（0） Print CStr（a（i）T60向文本框中输入半径r，在文本框2中显示面积（注意文本框1的名称

17、为T1，文本框2的名称为T2） Const pi = 3.14 Dim r, s as Single r = Val（T1.text） T2.Text = Str（s）T60有一个qq密码忘记了，只记得密码是5位且知道67*8,同时该密码能被67和78整除，求密码。 Dim x As Long For x =67008 To 67998 Step 10 If （x Mod 67 = 0） Or （x Mod 78 = 0） Then Print x Next x18，选择题x=text1.text p=0 for I=1 to len（x） if mid（x,i,1）=”a” then p=p+1next Iprint p执行上述代码，如果文本框中输入的是“Are you happy”，最后窗体上输出的是：（ A ） A 1 B 11 C 6 D 5 注：本题用于求解字符串中小写字母a的个数T178用递归函数求3！+5！+7！Public Function Fac（a As Integer） As IntegerIf a = 1 Then Fac = 1 Fac = a * fac（a - 1） S = Fac（3） + Fac（5） + Fac（7）