2018年6月可视化程序设计（VB） ( 第3次 )作业.doc

第3次作业
一、填空题(本大题共20分,共 10 小题,每小题 2 分)
1.
 为了保留动态数组中原有的数据不丢失,可以使用带               进行动态定义。
2.
运行语句:t = MsgBox("Hello", 64, "Come")后,在信息提示框内显示的内容是__________。
3.
数学中完数是指这样的整数:该数的各因子之和是它的本身。例如,6的因子是1,2,3,而6=1+2+3,所以6是完数。下列程序是找出2~1000以内的完数,并显示结果,其中,函数isWs(m as integer)as Boolean用来判断参数m是否是完数。
Function isWs(m As Integer) As Boolean
  Dim i As Integer, s As Integer
  For i = 1 To m - 1
    If  Then
      s = s + i
    End If
    If (m = s) Then
 
    Else
      isWs = False
    End If
  Next i
End Function
Private mand1_Click()
  Dim i As Integer
  For i = 2 To 1000
     If Then Print i;
  Next i
End Sub
4.
建立控件数组的方法有               、               和               三种。
5.
以下程序段的输出结果是____。
Num=0
While num<=2
num=num+1
Wend
Print num
6.
VB中的注释语句采用________;VB的续行符采用________;若要在一行书写多条语句,则各语句间应加分隔符,VB的语句分隔符为________。
7.
程序运行后,单击命令按钮,如果输入3,则在窗体上显示的内容是。
Private man1_Click( )
       x = 0
       n = InputBox(““)
       For i = 1 To n
       For j = 1 Toi
       x = x + 1
       Next j
       Next i
       Print x
End Sub
8.
表示x是3或7的倍数表达式________。
9.
在VB中变量不加任何声明而直接使用,这样的变量是      数据类型。
10.
定义窗体Form1单击事件的头语句是      。
二、程序阅读题(本大题共40分,共 4 小题,每小题 10 分)
1.
程序为:
 Private Sub Form_Click()
   Dim a
 a = Array(1, 2, 3, 4, 5, 6, 7)
For I = LBound(a) To UBound(a)
      a(I) = a(I) * a(I)
Print a(I)
Next I
End Sub
程序运行后,单击窗体后,在窗体显示的结果是:
2.
在窗体上画一个文本框和一个列表框,然后编写如下两个事件过程:
Private Sub Form_Load( )
“123 ”
“456 ”
“369”
“789 ”
= “”
End Sub
Private Sub List1_DblClick( )
a =
Print a +
End Sub
程序运行后,在文本框中输入“248”,然后双击列表框中的“369”,则输出结果(  )
3.
写出下面程序运行时单击窗体的输出结果。
Private Sub f(a%, b%)
  a = a + b
  b = a - b
End Sub
Private Sub Form_Click()
  Dim a%, b%
  a = 23
  b = 12
  Call f(a, b)
  Print "a=" & a; ",b=" & b
End Sub
4.
程序为:
Private mand1_Click()
 Dim a(1 To 5, 1 To 5) As Integer,i%,j%
 For i=1 To 5