哪位高手能帮小弟我做套题
谁能帮我做套题
5、下面程序段中,第2条语句执行 次,第3条语句执行 次。
1:for i=1 to 12 step 3
2: for j=6 to 2 step -1
3: print i,j
4: next j
5: next i
6、分析下面函数实现什么功能?
Function F1(b As Integer)
If b Mod 2 = 0 Then
F1 = 0
Else
F1 = 1
End If
End Function
7、分析下面程序完成什么功能?
Private Sub Command1Click()
Dim i As Integer, sum As Integer
i = 1
sum = 0
Do While i <= 100
sum = sum + i
i = i + 1
Loop
Label2.Caption = Str(sum)
End Sub
8、分析下面程序实现什么功能?
Private Sub Command1Click()
s = 0
For a = 1 To 5
For b = 1 To a
For c = 1 To b
If b + c > a Then s = s + 1: Print a, b, c
Next c, b, a
Print s
End Sub
9、下面程序的功能是:用函数InputBoX显示一输入对话框,由用户输入要查询的编号,该对话框的标题为“数据查询窗口”。用户输入完成后,用MsgBox语句将输入的值显示出来。请完善程序。
Private Sub Command1_Click()
Dim userno As String, msg (1)
userno = (2) ("请输入要查询的编号", "数据查询")
msg = "你要查询的编号是:" & userno
(3) msg, 4 + 64, "编号"
(4)
二、编程题
1、编写程序:计算分数序列:2/1,3/2,5/3,8/5,13/8,21/13…的第20项,输出地20项以及该数列的前20项之和。
VisualBasic程序开发环境 程序开发 VisualBasic