i = i + 1 End If Loop Print s
End Sub运行后输出的结果是_________ A． 4050 B． 5050 C． 4000 D． 4500 77．有如下程序： Private Sub form_click() A$ = \ b$ = \ For j = 1 To 5
Print Mid$(b$, j, 1) + Mid$(A$, 6 - j, 1); Next j Print
End Sub运行后输出的结果是___________
A． a1b2c3d4e5 B． a5b4c3d2e1 C． 5a4b3c2d1e D． e1d2c3b4a5 二、填空题
1.在VB6集成开发环境中,可以编辑程序代码,但不能修改用户界面的工作状态是(中断模式).
2.控件和窗体的Name属性只能通过 (属性窗口) 设置,不能在 ( 运行) 期间设置. 3.VB的数值型数据有(整数类型),(实数类型),(字节类型).
4.当程序运行后用鼠标双击对象时触发的事件是__DbClick()____ 5.当程序运行后用鼠标单击对象时触发的事件是__Click()______.
6 当程序运行后Tab键使一个对象获得焦点时触发的事件是__Gotfocus()
7.在Visual Basic中,字符串常量要用( 双引号) 括起来,日期/时间型常量要用( #) 括起来.
8.为了使标签能自动调整大小以显示全部文本内容,应把标签的 ( AutoSize ) 属性设置为True.
9.要想在文本框中显示垂直滚动条,必须把 ( ScrollBars) 属性设置为2,同时还应把 ( MultiLine) 属性设置为 True.
10.假定有一个文本框,其名称为Text1,为了使该文本框具有焦点,应执行的语句是 ( Text1.SetFocus) .
11.VB中若要产生一消息框,可用__MsgBox___函数来实现.
12.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应,必须把该图像框的(Stretch)属性设置为 True.
13.窗体,图片框或图像框中的图形通过对象的( Picture) 属性设置 14.VB的\计时器\控件用于_计时___,时间间隔以___毫秒____为单位. 15.计时器事件之间的间隔通过 ( Interval) 属性设置.
16.VB的\滚动条\控件分为两种(水平滚动条)和(垂直滚动条).它们都有最小值和最大值.其取值范围是(小于等于max且大于等于min).
17.组合框有3种不同的类型,这3种类型是下拉式组合框 ,简单组合框 ,下拉式列表框 ,分别通过把 Style 属性设置为0 ,1 ,2来实现.
18.在3种不同类型的组合框中,只能选择而不能输入数据的组合框是下拉式列表框 19.由Array函数建立的数组赋值时，数组必须是（可变类型的动态数组），简单变量必须是
Variant 类型.
20.在VB中若要让某对对象获取焦点,则可通过_SetFocus_方法来实现.
21.在模块文件中的声明部分用__Dim___或_Private_定义的变量为模块级变量.
22.For循环中,当步长大于零时,初始值_小于等于__终止值,当步长小于零时,初始值_大于等于__终止值,不指明步长时,默认步长是__1___
23.VB中通用过程的参数传送有__值传递___和_地址传递___.
24.在过程定义中出现的变量名叫做 (形式参数),而在调用过程时传送给过程的 常数 ,变量 ,表达式 或 数组 叫做 (实际参数) 25. 下图为运行后的VB程序
（1）当按下[显示]按钮时，在文本框中显示“欢迎使用Visual Basic 6.0”， 按下[清屏]按钮时清除文本框中显示的内容，按下[退出]按钮时退出程序。请补全相对应的单击事件代码。
Private Sub Command1_Click( ) '按下[显示]按钮
____text1.text=” 欢迎使用Visual Basic 6.0”_____________ （1） End Sub
Private Sub Command2_Click( ) '按下[清屏]按钮
______ text1.text=””______ （2） End Sub
Private Sub Command3_Click( ) '按下[退出]按钮
__END__ （3） End Sub
（2）当选择字体外观和字体名称时，触发下面的事件，请补全代码。 Private Sub Check1_Click( ) '字体外观的多项选择 If Check1.Value = 1 Then
Text1.FontBold = true_ （4）'“粗体”被选中 Else
Text1.FontBold = False End If End Sub
Private Sub Check2_Click( )
If Check2.Value = _1_______ Then （5）'“斜体”被选中 Text1.FontItalic = True
_else____ （6）
Text1. FontItalic _ = False （7） End If End Sub
Private Sub Check3_Click( ) If Check3.Value = 1 Then
Text1. FontUnderline ___ = True （8）'“下划线”被选中 Else
Text1.FontUnderline = False
End If End Sub
Private Sub Option1_Click( ) ' Text1.FontName = \宋体\End Sub
Private Sub Option2_Click( )
Text1.FontName = \隶书\End Sub
Private Sub Option3_Click( )
Text1.FontName = “黑体” End Sub
字体名称选宋体 9）'字体名称选隶书 （10）'字体名称选黑体 （