《VB程序设计》作业（三）
客观题部分：
选择题（每题1分，共15题）
1. 把字符串“123”转换为数值 123 时应该使用的函数是（ B ）。
A）Str        B）Val        C）Len        D）Log
2. 在Sub过程被定义时，使用Private类型符进行修饰表示（ D ）。
A）此过程可以被任何其它过程调用
B）此过程不可以被任何其它过程调用
C）此过程只可以被本工程中的其它过程调用
D）此过程只可以被本模块中的其它过程调用
3. 以下叙述不正确的是（  D  ）。
A） 在Sub过程中可以调用Function过程
B） 在用Call调用Sub过程时必须把参数放在括号里
C） 在Sub过程中可以嵌套定义Function
D） 用Static声明的过程中的局部变量都是Static类型。
4. 在窗体上绘制一个命令按钮Command1，然后编写如下程序：
Function Func(ByVal x As Integer, y As Integer)
    y = x * y    If y > 0 Then        Func = x    Else        Func = y    End If
End Function
Private Sub Command1_Click()
    Dim a As Integer, b As Integer
    a = 3  b = 4  c = Func(a, b) Print "a="; a Print "b="; b Print "c="; c End Sub
程序运行后，单击命令按钮，输出结果为（ B  ）。
A）a=3    b=12  c=3 B）a=3    b=4  c=3
vb程序设计教程答案第四版刘炳文C）a=3    b=4  c=12 D）a=3    b=12  c=12
5. 在窗体上绘制一个文本框Text1，然后编写事件过程：
  Private Sub Text1_KeyPress(keyascii as integer)   End Sub 
 若焦点位于文本框中，则能够触发KeyPress事件的操作是（ D  ）。
A)单击鼠标B)双击文本框 C)鼠标滑过文本框 D)按下键盘上的某个键 
6. 在窗体上绘制一个命令按钮Command1，两个标签Label1和Label2，然后编写如下程序代码： 
Private x As Integer
Private Sub Command1_Click()
  x = 5: y = 3  Call proc(x, y)  Label1.Caption = x  Label2.Caption = y End Sub
Private Sub proc(ByVal a As Integer, ByVal b As Integer)
  x = a * a  y = b + b End Sub
程序运行后，单击命令按钮，两个标签中显示的内容是（  C ）。
A)5和3      B)25和3      C)25和6      D)5和6 
7. 在窗体上画一个命令按钮Command1，然后编写事件过程：
Private Sub Command1_Click()
    a = InputBox("Enter the First integer") b = InputBox("Enter the Second integer") Print a + b End Sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是（  B  ）。
A）456        B）579        C）456123          D）123456
8. 如果要改变窗体的标题，需要设置窗体对象的（  B  ）属性。
A）Caption        B）Name        C）BorderStyle        D）BackColor
9. 为了取消窗体的最大化功能，需要把它的（  D  ）属性设置为False。
A）ControlBox    B）MinButton    C）Enabled        D）MaxButton
10. 为了使窗体在需要时被加载到内存中并同时显示在屏幕上，应该使用（ A  ）方法。
A）Show        B）Hide          C）Load            D）Unload
可以用一下几种方法：1：ShowWindow(hWnd,SW_HIDE )，hWnd 为窗口的句柄。
2：加载到可视区域以外。3：VB: 把窗体的VISIBLE 设为 False 加载用 Load form
11. 为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为True，然后再把ScrollBars 属性设置为（  C  ）。A）0        B）1        C）2        D）3
12. 使文本框获得焦点的方法是（  C  ）。
A）Change    B）GotFocus    C）SetFocus        D）LostFocus
A.SetFocus 获取焦点 动作 B.GotFocus 获取焦点时 事件
C.LostFocus 失去焦点 事件 D.Change 文本框发生变化 事件
13. 表示滚动条控件取值范围最大值的属性是 （  A  ）。
 A）Max      B）LargeChange          C）Value          D）Max—Min 
14. 对以下控件叙述正确的是（ A ）。
A）组合框包含了列表框的功能。
B）列表框包含了组合框的功能。
C）组合框和列表框的功能完全不同。
D）组合框和列表框的功能完全相同。
15. 制作菜单的分隔栏时，标题名称只能是（  A  ）。
A）－        B）…        C）∶        D） ∽
主观题部分：
编程题（每题15分，共1题）
编程实现一个命令按钮command1的单击事件，单击该按钮后生成10个100到200之间的随机整数，输出其中能被5整除的数并求出它们的和。 
Private Sub Command1_Click()
Dim a%(1 To 10), i%, s%, n%
Print "产生的10个随机数为："
For i = 1 To 10
      a(i) = Int(Rnd * 1 + 100)
      Print a(i);
      If i Mod 5 = 0 Then Print
Next i
Print "其中能被5整除的数有："
For i = 1 To 10
    If a(i) Mod 5 = 0 Then
        Print a(i);
        s = s + a(i)
    End If
Next i
Print
Print "它们的和为：" & s
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。