VB学测操作题

1、（1）填空完成程序，使得当单击窗体后，Label1上显示100以内（含100）偶数之和。Private Sub Form_Click() Dim i As Integer '定义变量i Dim s As Integer '定义变量s，用于存放100以内（含100）偶数的和 s = 0 For i = 2 To 100 Step 2 s = s+i Next i Label1.Caption = Str(s)End Sub（2）完成程序，使得在Text1中输入圆的半径后，单击"计算"按钮，计算圆的周长，在Text2中显示出来。Private Sub Comma

2、nd1_Click() Const pi = 3.14 '定义符号常量 Dim c As Single '定义周长c为单精度型 Dim r As Single '定义半径r为单精度型 r = Val( text1.text ) c = pi * 2*r text2.text = cEnd Sub（3）填空完成程序，计算s=1!+2!+3!+8!的值并在窗体上打印出结果。Private Sub Form_Click() Dim s As Single ' s变量用于存放计算结果 Dim p As Single Dim i As Integer '定义一个循

3、环变量 '给s赋初值 s = 0 '给p赋初值 p = 1 For i = 1 To 8 p = p * i s = s+p Next i Print "s=" sEnd Sub（4）完成程序，使得当单击窗体后，计算1+2+3+N>500的N的最小值，并在文本框Text1中显示出来。Private Sub Form_Click() Dim s As Integer '变量s存放和 Dim n As Integer '为s赋初值 s = 0 '为n赋初值 n = 0 Do n = n + 1 s = s + n Loop Whil

4、e s < 500 Text1.Text = Str(n)End Sub（5）举重比赛中，60公斤级选手体重不能超过60公斤。填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示"超重！不能参赛！"；当输入一个小于等于60的数时，标签Label1显示"合格，可以参赛！"。Private Sub Command1_Click()Dim t As Single t = Val( text1.text ) If t>60 Then Label1.Caption = "超重！不能参赛！" Else La

5、bel1.Caption = "合格，可以参赛！" Endif End Sub（6）填空完成程序，使得单击窗体后，计算出1+2+3+N<500的N的最大值，并在文本框Text1中显示出来。Private Sub Form_Click() Dim s As Integer '变量s存放和 Dim n As Integer '为n赋初值 n = 0 '为s赋初值 s = 0 Do While s < 500 n = n + 1 s = s+n Loop Text1.Text = Str(n - 1)End Sub（7）这是一个显示评语程序，在

6、文本框Text1中输入一个数后，单击"评语"按钮，在标签Label1显示评语。当输入一个小于60的数时，显示"不及格"；当输入一个大于等于60且小于85的数时，显示"良好"；当输入一个大于等于85的数时，显示"优秀"。Private Sub Command1_Click() Dim Cj As Single '定义变量Cj，值由文本框Text1读入 Cj = Val( text1.text ) If Cj < 60 Then Label1.Caption = "不及格" End I

7、f If Cj >= 60 And Cj < 85 Then Label1.Caption = "良好" End If If Cj >= 85 Then Label1.Caption = "优秀" End IfEnd Sub（8）某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？填空完成程序，使得当单击窗体后，在窗体上输出问题答案。Private Sub Form_Click() Dim p As Single ' 变量p保存年产值 Dim n As Integer ' 整型变量

8、n为所求年数 P=2000 n = 0 Do While p < 4000 p = p * ( 1+0.05 ) n = n+1 Loop Print "n=" nEnd Sub（9）填空完成程序，使得当单击"计算7！"按钮后，Text1显示7！的值。Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = 1 For i = 1 To 7 Step 1 a = a*i Next i Text1.Text = Str( a ) End Sub（10）填空完成程序，编程计算1

9、-1/2+1/3-1/4+.+1/99-1/100，单击窗体后，在窗体上显示结果。Private Sub Form_Click() Dim s As Single Dim i As Integer s = 0 For i = 1 To 100 Step 1 If i Mod 2 <> 0 Then s = s + 1 / i Else s = s - 1 / i End If Next i Print "s=" sEnd Sub（11）填空完成程序，编程计算1+1/2+1/3+1/4.+1/99+1/100，单击窗体后，在窗体上显示结果。Private Sub

10、Form_Click() Dim s As Single '定义变量s为单精度型 Dim i As Integer '定义循环变量 s = 0 For i = 1 To 100 Step 1 s = s + 1/i Next i Print "s=" sEnd Sub（12）填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间0，100)的自然数，并保存于数组a中。然后在窗体上显示这10个数的平均值。Private Sub Command1_Click() Dim a(9) As Integer Dim s As Single D

11、im i As Integer Me.Cls s = 0 Randomize For i = 0 To 9 Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i For i = 0 To 9 s = s+a(i) Next i Print "这10个自然数的平均值=" s / 10End Sub（13）填空完成程序，使得当单击"计算1+2+3+100"按钮后，文本框Text1显示1+2+3+100的值。Private Sub Command1_Click() Dim a As Integer Dim i As In

12、teger a = 0 For i = 1 To 100 Step 1 a = a+i Next i Text1.Text = Str( a )End Sub（14）填空完成程序，左键单击窗体时打印下面所示的图案。' *' *' *' * Private Sub Form_Click() Dim i As Integer Dim j As Integer For i = 4 To 1 Step -1 For j = 1 To i Step 1 Print "*" Next j print Next iEnd Sub（15）填空完成程序，问：鸡

13、兔同笼，共有100条腿，40个头，问鸡有几只，兔有几只?单击窗体后，在窗体上显示结果。Private Sub Form_Click() Dim Ji As Integer 'Ji变量表示鸡的个数 Dim Tu As Integer 'Tu变量表示兔的个数 Dim Leg As Integer 'Leg变量表示腿数 For Ji = 1 To 40 Tu = 40-ji '计算腿数 Leg = Ji*2 + Tu * 4 '如果腿正好100只，则打印。 If Leg = 100 Then Print "鸡=" Ji; "只&q

14、uot;, "兔=" Tu; "只" End If Next JiEnd Sub（16）完成程序，单击"显示"按钮，显示下面的图形：''''''Private Sub Command1_Click() Dim i As Integer '定义i为整型变量 Dim j As Integer '定义j为整型变量 For i = 1 To 6 Step 1 For j = 1 To i Step 1 Print "" Next j Print Next iE

15、nd Sub（17）填空完成程序，使得单击"显示"按钮时，Text1、Text2分别显示变量x、y的值。Private Sub Command1_Click() Dim x, y As Integer x = 10 y = 100 If x < y Then '以下三条语句交换x,y的值 t = x x = y y = t End If Text1.Text = Str(x) Text2.Text = Str(y)End Sub（18）在横线处添加代码实现单击该按钮，窗体的背景色由原来的默认色变为红色(红：&HFF&)Private Sub C

16、ommand1_Click() Form1.backcolor=&HFF&End Sub（19）填空完成程序，使得在Text1中输入一个数，单击"判断"按钮后，判断这个数是奇数还是偶数，并在Label1中显示"奇数"或"偶数"出来。Private Sub Command1_Click() Dim a As Single Dim b As Single '从Text1中读入这个数,并保存在变量a中 a = Val( text1.text ) b = a Mod 2 If b = 0 Then Label1.Cap

17、tion = "偶数" Else Label1.Caption = "奇数" Endif End Sub（20）填空完成程序，使得单击"显示"按钮后，随机产生10个属于区间0，100）的自然数，并保存于数组a中，然后在窗体上显示这10个数中的最大值。Private Sub Command1_Click() Dim a(9) As Integer Dim max As Integer Dim i As Integer Me.Cls Print Randomize For i = 0 To 9 Step 1 a(i) = Int(Rnd

18、* 100) Print a(i) Next i max = a(0) For i = 1 To 9 If max < a(i) Then max = a(i) End If Next i Print "这10个自然数中的最大值=" Str( max )End Sub（21）完成程序:单击"计算5!"按钮后，Text1显示5!的值。Private Sub Command1_Click() Dim a As Integer Dim i As Integer a = 1 For i = 2 To 5 a = a*i Next _i_ Text1.Tex

19、t = Str(a)End Sub（22）某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番（即4倍）的目标。填空完成程序，使得当单击窗体后，在窗体上输出问题答案。Private Sub Form_Click() Dim i As Single Dim s As Integer '设s为所求年数,定义为整型,结果由窗体输出 i = 1 s = 0 Do While i<4 i = i*1.1 s=s+1 Loop Print "s=" sEnd Sub（23）已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、

20、c，其中a不等于0。填空完成程序，求方程的根。要求：如果方程无实数根，则输出"无实数根"，否则输出两个实数根。Private Sub Command1_Click() Dim a, b, c, d As Single Dim x1, x2 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a <> 0 Then '判断a是否等于0 d = b*b-4*a*c If d >= 0 Then '判断是否有实数根 x1 = (-b + Sqr(d) /

21、 (2 * a) x2 = (-b - Sqr(d) / (2 * a) Label1.Caption = Str(x1) Label2.Caption = Str(x2) Else Label3.Caption = "无实数根" End If End IfEnd Sub（24）完善下列程序，使得该程序能够实现在文本框1中输入一个三位正整数，在文本框2中输出这个3位数的各位数的和。a =Val(Text1.Text)s = 0For i = 1 To 3 s = s + a mod 10 a = a10Next iText2.Text = Str(s)（25）填空完成程序，

22、打印如图所示的图案。'*'*'*'*'*Private Sub Form_Click()Dim i As Integer '定义i为整型变量Dim j As Integer '定义j为整型变量For i = -2 To 2 For j = 1 To 3 - abs(i) Print "*" Next j Print '换行Next i End Sub（26）请完善下面的程序段，使程序运行后能够显示如下图所示的数字金字塔。Dim i As Integer, j As IntegerFor j = 1 To 5 P

23、rint Tab(10 - j); For i = 1 To j Print Str(i); Next i PrintNext j（27）在窗体上画出如图两条相互垂直的线段，其中，线段a一端的坐标是（600，1300），长度为1600，b是a 的中垂线，长度为1000 (提供的样图与程序画出的图形可能不完全相同)。Private Sub Command1_Click() Line ( 600 , 1300 )-(2200, 1300) Line (1400, 300)-( 1400 , 1300)End Sub（28）填空完成程序，求 |X*X+1(X<=0) y=| |X*X-x+1

24、(X>0)的值。（x的值在程序中调用InputBox函数，在弹出的标准输入对话框中输入）Private Sub Form_Click() Dim x As Single '定义x为为单精度型变量,由标准输入对话框输入 Dim y As Single '定义y为单精度型变量,值由窗体显示 x = val (InputBox("请输入变量x") If x <= 0 Then y= x*x+1 Else y=x*x-x+1 End If Print "y=" yEnd Sub（29）编程计算s=1*2+2*3+.+n*(n+1)Pr

25、ivate Sub Form_Click() Dim s As Single 定义变量s为单精度型 Dim i As Integer '定义变量 s = 0 For i = 1 To 10 s = s + i * (i + 1) Next i Print "s=" sEnd Sub（30）求10000以内的最大质数Private Sub Form_Click()Dim k As IntegerDim i As IntegerFor k = 10000 To 2 Step -1 For i = 2 To Int(Sqr(k) If k Mod i = 0 Then E

26、xit For End If Next i If i > Int(Sqr(k) Then Print k Exit For End IfNext kEnd Sub（31）当运行程序后，在标签中显示当前时间的数字时钟。Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_timer() Label1.Caption = TimeEnd Sub（32）输入10个数，存放在数组中，并按输入的逆序输出在窗体上。Private Sub Command1_Click(

27、) Dim s(9) As Single For i = 0 To 9 s(i) = Val(InputBox("请输入一个数") Next i For i = 9 To 0 Step -1 Print s(i) Next iEnd Sub（33）编写递归函数求5！的值Public Function s(n As Integer) As LongIf n = 0 Thens = 1Elses = n * s(n - 1)End IfEnd FunctionPrivate Sub form_Click()Print "s(5)=" s(5)End Sub（

28、34）用递归法求斐波那契数列1,1,2,3,5,8，第10项的值。Public Function Fib(n As Integer) As Integer If (n = 1) Or (n = 2) Then Fib = 1 Else Fib = Fib(n - 1) + Fib(n - 2) End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fib(10) Print "S=" & CStr(S)End Sub（35）在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在

29、Llabel1、Label2、Llabel3、中显示对应的小时、分钟和秒数。如在Text1中输入"3672"，Label1、Label2、Label3中分别显示"1"、"1"、"12"，即1小时1分12秒。Private Sub Command1_Click() 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 = C

30、Str(h) Label2.Caption = CStr(m) Label3.Caption = CStr(s)End Sub（36）用穷举法找出所有的水仙花数。水仙花数是指一类三位数，其各个数位上数字的立方之和为该数。Private Sub Command1_Click() 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 i Nex

31、t iEnd Sub（37）将数字进行加密，对应关系如下：明文：0123456789 密文：9876543210 完善程序实现在文本框text1中输入明文，在文本框text2中输出密文。Private Sub Command1_Click() Dim x As String, y As String Dim i As Integer Dim temp1 As String, temp2 As String x = Text1.Text y = "" For i = 1 To Len(Text1.Text) temp1 = Mid(x, i, 1) temp2 = 9 - t

32、emp1 y = y + temp2 Next i Text2.Text = yEnd Sub（38）从键盘上输入一个三位数，然后将它反向输出。Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer Dim g As Integer a = Val(Text1.Text) bai = a 100 shi = (a - bai * 100) 10 g = a Mod 10 b = g * 100 + shi * 10 + bai Text2.Text = CStr

33、(b)End Sub（39）单击"显示"按钮后，在窗体上显示如图99乘法表。Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To 9 Step 1 Print " " For j = 1 To 9 Print i * j; Print vbTab; Next j Print Next iEnd Sub（40）猴子吃桃，每天吃当天桃子的一半多一个，第十天只有一个，计算共有多少个Private Sub Form_Click() Dim i As Integer

34、'定义天数变量Dim s As Integer s = 1 For i = 1 To 9 s = (s + 1) * 2 Next i Print "s=" sEnd Sub（41）给出三角形的三边边长a,b,c,输出三角形面积。三角形面积公式：s=,其中q=(a+b+c)/2。Private Sub Command1_Click() Dim s As Single Dim q As Single Dim a As Single Dim b As Single Dim c As Single a = Val(InputBox("请输入边长a的值："

35、;) b = Val(InputBox("请输入边长b的值：") c = Val(InputBox("请输入边长c的值：") q = (a + b + c) / 2 s = Sqr(q * (q - a) * (q - b) * (q - c) Print sEnd Sub（42）输入S1,V1,V2,输出李明家与学校之间距离S2。Private Sub Command1_Click() Dim S1 As Single, S2 As Single Dim V1 As Single, V2 As Single Dim T As Single S1 = V

36、al(InputBox("请输入王晓珊家离学校的距离：") V1 = Val(InputBox("请输入王晓珊步行速度：") V2 = Val(InputBox("请输入李明步行速度：") T = S1 / V1 S2 = V2 * T Print S2End Sub（43）一条长度为L的铁丝，制作成一个面积最大的矩形框。输入铁丝的长度L,输出矩形面积的最大值。Private Sub Command1_Click() Dim L As Integer Dim chang As Integer Dim kuai As Integer D

37、im s As Integer Dim smax As Integer smax = 0 L = InputBox("请输入一条铁丝的长度：") For chang = 1 To L 2 For kuai = 1 To L 2 - chang s = chang * kuai If s > smax Then smax = s End If Next kuai Next chang Print smaxEnd Sub（44）小球从高处自由下落，每次弹起的高度是下落高度的70%，当小球弹起的高度不足原高度的千分之一时，小球停止跳动。输入小球起始高度HOME后，计算输出小

38、球在整个弹跳中所经历的总路程S。Private Sub Command1_Click() Dim H As Single, L As Single Dim S As Single, Home As Single Home = Val(InputBox("请输入一个起始高度：") H = Home S = 0 Do L = 0.7 * H S = S + H + L H = L Loop While L >= Home / 1000 Print SEnd Sub（45）用递归法求3！+5！+7！的值。Public Function Fac(a As Integer) A

39、s IntegerIf a = 1 Then Fac = 1Else Fac = a * Fac(a - 1)End IfEnd FunctionPrivate Sub Command1_Click() Dim S As Integer S = Fac(3) + Fac(5) + Fac(7) Print "S=" & CStr(S)End Sub（46）用选择排序法将数组a中的10个整数按升序排列。Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = Int(Rnd * 1

40、000) Next i For i = 1 To 10 For j = i+1 to 10 If a(i) > a(j) Then a(0) = a(i) a(i) = a(j) a(j)=a(0) End If Next j Next i For i = 1 To 10 Print CStr(a(i) Next iEnd Sub（47）用递归法求1+2+3+100的值。Public Function S(n As Integer) As Integer If n = 1 Then S = 1 Else S = n + S(n - 1) End IfEnd FunctionPrivate

41、 Sub Command1_Click() Dim Sum As Integer Sum = S(100) Print "Sum=" & CStr(Sum)End Sub（48）计算22+42+62+N<1500的最大值。Private Sub Form_Click() Dim s As Integer Dim N As Integer N = 22 s = 0 Do s = s + N N = N + 20 Loop Until s > 1500 Print "N=" & CStr(N - 40)End Sub（49）判断文

42、本框TEXT1中输入的数据，如果该数据满足条件；除以3余2，除以5余3，除以7余4，则输出在窗体上。Private Sub Command1_Click() x = Val(Text1.Text) If x Mod 3 = 2 Then If x Mod 5 = 3 Then If x Mod 7 = 4 Then Print x End If End If End IfEnd Sub（50）假设有一个5位数密码，只记得密码为678，其中百位和十位的数字记不清了，但知道该数据能被78整除，也能被67整除。Private Sub Command1_Click() Dim x As Long Fo

43、r x = 67008 To 67998 Step 10 If (x Mod 67 = 0) And (x Mod 78 = 0) Then Print x End If Next xEnd Sub（51）随机生成100个整数，统计偶数的个数。Dim a(100) As IntegerPrivate Sub Command1_Click() Dim total As Integer total = 0 For i = 1 To 100 If a(i) Mod 2 = 0 Then total = total + 1 End If Next i Print CStr(total)End SubP

44、rivate Sub Form_Load() Randomize For i = 1 To 100 a(i) = Int(Rnd * 1000) Next iEnd Sub（52）从键盘上输入一个三位数，然后将它反向输出。例如输入"123"，输出结果为"321"。Private Sub Command1_Click() Dim a As Integer, b As Integer Dim bai As Integer, shi As Integer Dim g As Integer a = Val(Text1.Text) bai = a 100 shi

45、= (a - bai * 100) 10 g = a Mod 10 b = g * 100 + shi * 10 + bai Text2.Text = CStr(b)End Sub（53）将一张100元面值的人民币换成5元、1元、5角面值的人民币，要求换成的零钱共100张，问各多少张，输出每种可能的组合。Private Sub Command1_Click() Dim Wuyuan As Integer Dim Yiyuan As Integer Dim Wujiao As Integer For Wuyuan = 1 To 20 For Yiyuan = 1 To 94 Wujiao = 1

46、00 - Wuyuan - Yiyuan If Wuyuan * 5 + Yiyuan * 1 + Wujiao * 0.5 = 100 Then Print "Wuyuan=" & Wuyuan & ",Yiyuan=" & Yiyuan & ",Wujiao=" & Wujiao End If Next Yiyuan Next WuyuanEnd Sub（54）在三个文本框中输入一元二次方程的三个系数后，单击命令按钮，求出该方程的解。Private Sub Command1_Click()

47、Dim a, b, c, p As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) p = b * b - 4 * a * c If p >= 0 Then X1 = (-b + Sqr(p) / (2 * a) X2 = (-b - Sqr(p) / (2 * a) Print "X1=" X1 Print "X2=" X2 Else Print "该方程无实数根" End IfEnd Sub（55）输入一个正整数到文本框text1中，如果是

48、质数，就输出”yes”,否则输出”no”.Private Sub Command1_Click() Dim n, i As Long Dim yes As Boolean Let n = Val(Text1.Text) Let yes = True For i = 2 To n 2 If n Mod i = 0 Then Let yes = False End If Next i If yes Then Let Text2.Text = "yes" Else Let Text2.Text = "no" End IfEnd Sub（56）在Text1文本框

49、中输入一个年号，判断它是否是闰年，并输出判断结果"是闰年"或"不是闰年"。判断闰年的算法是：如果此年号能被400除尽，则它是闰年，否则如果它能被4整除而不能被100整除，则它是闰年，否则它不是闰年。Private Sub Command1_Click() Dim year As Integer year = Val(InputBox("请输入年号:") If (year Mod 4 = 0) And (year Mod 100 <> 0) Or (year Mod 400 = 0) Then Print "是闰年" Else Print "不是闰年" End IfEnd Sub（57）在文本框text1、text2、text3中输入3根小木棒的长度(假设都是整数)，判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。Private Sub Command1_