【www.0413xx.com--国家法、宪法】

　　【计算机等级考试二级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

本文来源：http://www.0413xx.com/biyelunwen/181004.html