最全VB题库大集合最新版

sum = sum + i
Print i; End If Next Print sum
'********** End ********** wwjt sum
End Sub
随机产生范围从1到100的10个整数放在数组a(1 to 10)中，用选择法
将数组中的元素按由小到大的顺序输出。
运算后如图1所示。
sum=1/2!-1/4!+1/6!-1/8!+1/10!
• • • • • • • • • • • • • • • • Private Sub Form_Click() Dim sum As Single Dim p As Long p=1 i=2 Do While i <= 10 p = p * i * (i - 1) If i Mod 4 = 0 Then sum = sum - 1 / p Else sum = sum + 1 / p End If i=i+2 Loop Print sum End Sub
• • • • • • • • • • • • • •
Option Explicit Private Sub Command1_Click() Dim s As Integer '用来记录表达式s的值 '**********Program********** Dim p As Integer, i As Integer p=1 For i = 1 To 6 p=p*i s=s+p Next Text1.Text = Str(s) '********** End ********** Call WWJT(s) End Sub
'********** End **Baidu Nhomakorabea******* End Sub
• • • • • • • • • • • • • • •
Private Sub Form_Click() Dim sum As Integer sum = 0 '***************** Program ************ Dim i As Integer For i = 200 To 300 If i Mod 3 = 0 And i Mod 7 = 0 Then Print i; sum = sum + i End If Next Print sum '*************** End ****************** YZJ (sum) End Sub
Print的用法：
• print如果不加标点，就是换行 print如果加分号，就是紧凑排列 print如果加逗号，就是14位标准位排列 print如果加冒号，表示下一行的语句可以提 到上一行来。
VB题库
供同学们参考
•
Private Sub Form_Click() For i = 1 To 7 For j = 1 To 7 - i Print " "; Next j x = "" For j = 1 To 2 * i - 1 x=x&i Next j Print x Next i End Sub
随机产生100个学生的计算机课程的成绩。统计各分数段的人数，即0~9、10~19、20~29 、30~39、 40~49、50~59、60~69、70~79、80~89、90~100，‘ 请输出统计结果 。 运算后如图1所示。[参考得分：31.1分]
• • • • • • • • • • • • • • • • • Private Sub Command1_Click() '**********Program********** Dim a(10) As Integer Dim i As Integer, v As Integer, p As Integer For i = 1 To 100 v = Int(Rnd * 101) If v = 100 Then a(9) = a(9) + 1 Else p = Int(v / 10) a(p) = a(p) + 1 End If Next For i = 0 To 9 Print a(i); Next
• • • • • • • • • • • • • • • • • • • • • •
Private Sub Command1_Click() '**********Program********** Dim a(1 To 10) As Integer Dim i As Integer, j As Integer, k As Integer, t As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) + 1 Next For i = 1 To 9 k=i For j = i + 1 To 10 If a(k) >= a(j) Then k = j Next t = a(k): a(k) = a(i): a(i) = t Next For i = 1 To 10 Print a(i); Next
‘
求两位正整数中所有能被7整除的数之和 ，并在窗体上打印输出。 （要求综合使用for循环和if语句）【35分】
• • • • • • • • • • • • • • • • • • • • • • • • •
Private Sub Form_Click() Dim sum%, i% 'sum 保存累加之和，i 循环变量 '**********Program********** For i = 10 To 99 If i Mod 7 = 0 Then
‘题目： (事件)单击命令按钮Command1。 ’ (响应)计算如下表达式s的值, =1+(1*2)+(1*2*3)+……+(1*2*3*……*6) ‘ 并将结果输出到文本框Text1中。 ’------------------------------------------------‘注意：请在指定的事件内编写代码。【35分】【两种方案皆可】
• 此题 • 存疑
‘题目：(事件)双击窗体。 s=20+21+22+…+263，求s的值 ，并将结果 ’ 存储到变量S中。【35分】
• • • • • • • • • • • • • • • • •
•
Private Sub Form_DblClick() Dim s As Long '******** Program ******* For i = 20 To 263 s=s+i Next '******** End ************ YZJ (s) End Sub
题目：(事件)单击窗体。 求100以内偶数的和，并将结果输出在窗体上 ‘ 将结果存入变量SUM中【此处两题略有区别：上限为100或为N，请对比】
• • • • • • • • • • • • • • • • • • • • •
Private Sub Form_Click() Dim sum As Integer '******* Program ************ Dim i As Integer For i = 2 To 100 Step 2 sum = sum + i Next Print sum '******* End ************ YZJ (sum) End Sub
‘题目：(事件)单击窗体。 求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。 ’ 将结果存入变量J中【35分】
• • • • • • • • • • • • • • • • • • • • • •
Private Sub Form_Click() Dim j As Single '******* Program *********** Dim i As Integer For i = 1 To 100 If i Mod 2 <> 0 Then j=j+1/i Else j=j-1/i End If Next Print j '********* End *********** YZJ (j) End Sub