哪位高手能帮小弟我做套题


谁能帮我做套题
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 Command1
Click()
  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

泄漏的甲烷 10 years, 2 months ago


自己在看看书吧,估计看十分钟你就可以解决这些问题了

俯视世界的神 answered 11 years, 6 months ago


这么简单的自己都不做?

☆一之濑琴美☆ answered 11 years, 6 months ago

这是计算机等级考试?

打不打死都不说 answered 10 years, 2 months ago

Your Answer