计算机等级考试二级VB程序设计题
【计算机等级考试二级VB程序设计题一】
1.编写事件代码，求1—100之间能被5整除或被7整除的数的累加和，要求单击窗体时执行事件代码，并在窗体上输出运行结果。
Private Sub Form_Click( )
Dim i%,s!
S=0
For i=1 to 100
If i mod 5=0 or i mod 7=0 then s=s+i
Next i
Print “s=”;s
End Sub
【计算机等级考试二级VB程序设计题二】
求1+2+3+……+100累加和(单击窗体执行程序)。
Private sub form_click()
Dim i%，s! (2’)
S=0 (2’)
For i=1 to 100 (2’)
S=s+I (2’)
Next
Print “s=”;s (2’)
End Sub
【计算机等级考试二级VB程序设计题三】
1. Private Sub Command1_Click()
x = 0
n = InputBox("")
For i = 1 To n
For j = 1 To i
x = x + 1
Next j
Next i
Print x
End Sub
程序运行后，单击命令按钮，如果输入3，则在窗体上显示的'内容是:
2. Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next i
Print s
End Sub
单击命令按钮后，程序的运行结果为：
1、6
2、9
【计算机等级考试二级VB程序设计题四】
编写求 n!的程序，n值大小由键盘任意输入。单击窗体执行程序时，在窗体上显示出n和n!的值。
Private sub form_click()
Dim n%，t!，i% (2分)
n=inputbox(“输入n值：”) (2分)
t=1 (2分)
For i=2 to n (2分)
t=t*i
End For
Print n;”!=”;t (2分)
End sub
【计算机等级考试二级VB程序设计题】相关文章：
计算机等级考试二级VB程序设计填空题01-08
计算机等级考试二级VB程序设计选择题01-08
计算机等级考试二级VB程序设计模拟试题06-30
计算机等级考试二级VB程序设计练习题01-27
计算机等级考试二级VB考试题及答案01-06
计算机二级考试《VB》训练题01-11
计算机等级考试二级VB考点：程序调试01-05
计算机等级考试二级VB考点：数组的概念01-05