发布时间 : 星期日 文章VB练习题（含答案）更新完毕开始阅读
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( ) '按下[显示]按钮 _____________________________ （1） End Sub
Private Sub Command2_Click( ) '按下[清屏]按钮
_____________________________ （2） End Sub
Private Sub Command3_Click( ) '按下[退出]按钮
__________ （3） End Sub
（2）当选择字体外观和字体名称时，触发下面的事件，请补全代码。 Private Sub Check1_Click( ) '字体外观的多项选择 If Check1.Value = 1 Then
Text1.FontBold = _________ （4）'“粗体”被选中 Else
Text1.FontBold = False End If End Sub
Private Sub Check2_Click( )
If Check2.Value = ________ Then （5）'“斜体”被选中 Text1.FontItalic = True
___________ （6） Text1. ____________ = False （7） End If End Sub
Private Sub Check3_Click( ) If Check3.Value = 1 Then
Text1.______________ = True （8）'“下划线”被选中 Else
Text1.FontUnderline = False
End If End Sub
Private Sub Option1_Click( ) '字体名称选宋体 Text1.FontName = \宋体\End Sub
Private Sub Option2_Click( )
Text1.FontName = \（9）'字体名称选隶书 End Sub
Private Sub Option3_Click( )
____________________ = “黑体” （10）'字体名称选黑体 End Sub
（1） text1.text=”欢迎使用 Visual Basic 6.0” （2） text1.text=”” （3） end
（4） true （5） 1 （6） Else
（7） FontItalic （8） FontUnderline （9） 隶书
（10） Text1.FontName