高中计算机会考 VB题 A档次到D档次 习题及答案

..

s1 = 0 s2 = 0

For i = 1 To 1000 Step 1

If i mod 3=0 Then s1 = s1 + 1 If i mod 7=0 Then s2 = s2 + 1 Next i

Text1.text = s1 text2.text = s2 End Sub

Private Sub Command2_Click() End End Sub

C02、输出所有的水仙花数。即水仙花数是三位数，并且满足每位数字立方之和等于这个数。 如：153=1^3+5^3+3^3 （用循环完成） Private Sub Command1_Click() Cls

For i = 100 To 999 a = i \\ 100

b = i \\10 mod 10 c = i mod 10

If i = a *a*a+b*b*b+c*c*c Then Print i Next i End Sub

Private Sub Command2_Click() End End Sub

C03、求1到1000之间的偶数和、奇数和 Private Sub Command1_Click() s1 = 0 s2 = 0

For i = 1 To 1000 If i Mod 2 = 0 Then

s1 = s1 + i

Else

s2 = s2 + i End If Next i Text1.text = s1 text2.text = s2 End Sub

..

..

Private Sub Command2_Click() End End Sub

C04、 编程计算 S=1+2+3+4+……N,找一个最大整数,使得S<30000 Private Sub Command1_Click() s = 0 n = 0

Do While s < 30000 n = n + 1 s = s + n Loop

Text1.text = n - 1 text2.text = s - n End Sub

Private Sub Command2_Click() End End Sub

C05、求N!=1*2*3*…*N，N值由键盘输入（N应在5---10之间，否则输出“N值不符合要求”）。 Private Sub Command1_Click() n = val(InputBox(\

If n>= 5 and n <= 10 Then s = 1

For i = 1 To n s = s * i Next i

Print \ Else

Print “N值不符合要求” End if End Sub

Private Sub Command2_Click() End End Sub

C06、单击窗体时生成20个[0,9] 范围内的随机整数，在窗体上显示出其中大于5的随机整数。 Private Sub Form_Click() Cls

Randomize Timer For i = 1 To 20 x = Fix(Rnd * 10) If x > 5 Then Print x Next i End Sub

C07生成10个[10,99] 范围内的随机整数，显示并求平均值。 Private Sub Command1_Click() Randomize Timer

..

..

Cls

For i = 1 To 10

x = Fix(Rnd * 90) + 10 Print x,

If i Mod 5 = 0 Then Print s = s + x Next i

Print \平均值为:\End Sub

Private Sub Command3_Click() End End Sub

C08计算1*2+2*3+3*4+……+9*10的值 Private Sub Command1_Click() s = 0

For i = 1 To 9 s = s + i * (i + 1) Next i

Text1.text = s End Sub

Private Sub Command2_Click() End End Sub

C09本金1万元，年利率7.5%，利滚利（即每年结息后，将利息转成本金继续存入）几年后本利可达到

2万元？

1年的本利值=本利金+本利金×年利率

Private Sub Command1_Click() s = 1

Do while s<2 d = d + 1

s = s + s * 0.075

Loop

Text1.text = d End Sub

Private Sub Command2_Click() End End Sub

D类题(综合应用)

D01、编程实现：单击“计算”按钮，求100个两位来。单击“清除”按钮，

..

数的随机整数之和，并显示出