内容发布更新时间 : 2024/6/3 11:09:11星期一 下面是文章的全部内容请认真阅读。
习题3
一．单项选择题
1．语句s=s+1的正确含义是（ ）
A. 变量s的值与s+1的值相等 B. 将变量s的值存到s+1中去 C. 将变量s的值加1后赋给变量s D. 变量s的值为1
2．假设已使用变量声明语句：Dim date_1 As Date，则为变量date_1正确赋值的语句是（ ）
A. date_1=date(\ B. date_1=#1／1／2005# C. date_1=1/1/2005 D. date_1=\／1／2000#\注:表示日期的字符串转换为日期类型的数据用函数CDate(\3. 下列叙述中正确的是（ ）
A．一个程序代码行只能写入一个语句。
B．当用Print输出多个输出项时，可以使用冒号“：”作为输出项间的分隔符 C．赋值语句结束时，可以使用分号或逗号作为结束符
D．在字符型数据中，起止界限符必须使用英文的双撇号，而不能使用中文双引号 4．下列程序段执行后，输出结果是（ ） a = 0: b = 1
a = a + b: b = a + b Print a; b
a = a + b: b = a + b Print a; b
a = b - a: b = b - a Print a; b
A．1 2 B．3 5 C．1 2 D．1 2 3 4 2 3 3 4 3 5 3 4 1 2 2 3 2 3 5．语句Print \的输出结果为（ ） A．Sqr(16)=Sqr(16) B．Sqr(16)=4 C．\ D．4=Sqr(16) 6．设a=\，b=\下列语句能显示\的是（ ） A．Print Val(b)-Val(a)
1
B．Print b-a
C．Print b;Chr(45);a D．Print Asc(a) & \7．以下程序段的输出结果是（ ） x = \ m = LCase(x): n = UCase(y) Print Mid(m + n, 3, 2)
A．Ca B．cA C．cea D．ca 8．下列程序段执行后，输出结果是（ ） Dim a As String * 4 a = \
a$ = \ Print a Print a$
A．Computer B．Comp C．Comp D．Inte Internet Internet Inte Inte 9．以下程序段的运行结果是（ ） Const st As String = \ st = \ st = st + \
A．ABCD B．1234 C．ABCDl234 D．显示出错信息 10．以下（ ）控件不支持DblClick。
A．CommandButton B．PictureBox C．Label D．TextBox 11．要使某控件在程序运行时不起作用，应对其（ ）属性进行设置。 A．Enabled B．Caption C．Font D．Visible
12．要在Form_Load事件过程中用Print方法在窗体上输出结果，应先调用窗体的（ ）方法。
A．Move B．Cls C．Show D．Circle
13．若将文本框的（ ）属性设置为True，则运行时用户不能修改文本框中的内容。 A．Enabled B．Visible C．Locked D．MuhiLine
14．为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的（ ）属性值设置为True。
2
A．Value B．Default C．Cancel D．Enable 15．假设Text1是某一个文本框的名称，下列语句中正确的是（ ） A．Text1.Height=600 B．Text1.Print 123 C．Text1.Caption=\新标题\ D．Text1.Name=\文本框\
16．在Command1_Click ( ) 事件过程中用Dim语句定义一个变量，则（ ） A、该变量在Command1_Click ( ) 事件过程中有效 B、该变量在Command1的所有事件过程中有效 C、该变量在本窗体内的所有函数或过程中有效 D、该变量在本工程所有窗体和模块中的函数或过程中有效
17．设有语句:Label1.Caption=InputBox(\输入标题\新标题\旧标题\，执行后，在输入对话框中不输入内容就直接按下回车键，则（ ）
A．标签Labell的标题内容是“新标题” B．标签Labell的标题内容是“旧标题” C．标签Labell的标题内容不能确定 D．标签Labell的标题内容为空白
注:inputbox的格式为:
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) 即第三个字符串参数为默认值.
18.执行语句M = MsgBox(\结束运行吗?\时，显示的消息框是：
A．
B．
C．
D．
19.在默认情况下，InputBox函数返回值的类型为 ( ) A.字符串 B.变体 C.数值 D.数值或字符串
20．MsgBox函数的返回值类型是（ ） A.数值 B.日期 C.字符串 D.变体 注:MsgBox函数的返回值为Long类型.
21．要声明一个长度为64个字符的定长字符串变量String1，以下正确的语句是（ ）
3
A. Dim String1 As String B. Dim String1 As String(64) C. Dim String1 As String[64] D. Dim String1 As String*64 22．能够产生下图所示对话框的正确Visual Basic语句是：
A. x = InputBox(\请输入一个整数：+ vbCrLf + (10-99之间)\计算\
B. x = InputBox(\请输入一个整数：\之间)\计算\C. x = InputBox(\请输入一个整数：(10-99之间)\计算\D. x = InputBox(\请输入一个整数：(10-99之间) + vbCrLf \计算\23．程序运行时，要使文本框（TextBox）获得焦点，则需使用（ ）方法。 A.Change B.SetFocus C.GotFocus D.Move
24．在窗体上画出一个名为HScroll1的水平滚动条和一个名为Label1的标签。要想通过改变滚动条滑块的位置来调节标签中显示文字的大小，可满足此功能的语句是（ ） A.Label1.FontName = HScroll1.Max B.Label1.FontSize = HScroll1.Min C.Label1.FontSize = HScroll1.Value D.Label1.FontBold = HScroll1.Value 25．要使某控件在程序运行时起作用或不起作用，应对其( )属性进行设置。 A.Enabled B.Caption C.Font D.Visible 注:本题与11题相同
26．为了使文本框(TextBox)能够显示多行文字，必须设置的关键属性是（ ） A．MaxLength>0 B．MultiLine=True C．ScrollBars=Both D．BorderStyle=None 27.能在当前窗体上输出信息的语句是（ ）
A．Picture1.Print “你好！” B．Print “你好！” C．Printer.Print “你好！” D．Debug.Print “你好！” 28．单击滚动条两端的任一个滚动箭头，将触发该滚动条的 （ ） 事件。
A．Scroll B．KeyDown C．Change D．DragOver 注：当拖动滚动块时才触发Scroll事件，且释放滚动块后才触发Chang事件。
29.标签和文本框都可以显示文本，它们的主要区别是：（ ）中文本是只读文本，（ ）中的文本为可编辑文本。
A．标签；文本框 B．文本框；标签 C．标签；标签 D．文本框；文本框 30.标签控件能显示文本信息，其内容只能用（ ）属性获得
4
A．Alignment B．Visible C．Caption D．BorderStyle
二．多项选择题
1．要使文本框Textl中的内容为空字符串，可采用（ ）形式语句
A．Text1.Text=Space(0) B．Text1.Text=0 C．Text1.Text=\ D．Text1.Text=Space(1) E．Cls Textl.Text 2．下列叙述中，正确的是（ ）
A．Space函数既可以用于表达式，也能用于Print方法 B．Space函数只能用于表达式，不能用于Print方法 C．Spc函数只能用于Print方法，不能用于表达式 D．Spc函数既可以用于表达式，也能用于Print方法 E．Spc函数与Space函数均能生成空格，作用完全相同 3．下列关于Name属性的论述中，正确的是（ ） A．所有窗体和控件都有Name属性，其值不能为空 B．对象的Name属性指定对象的名称，用来标识一个对象 C．Name属性值必须以字母(或汉字)开头
D．标签的Name属性值是显示在标签标题(Caption)中的文本 E．Name属性值可以在属性窗口中修改，也可以通过代码来修改 F．\是一个非法的对象名
4．关于消息框函数（MsgBox）描述正确的是（ ） A.消息框可以用来显示字符形式的提示信息 B.消息框中至少包含一个选择按钮
C.消息框出现后，用户必须按下其中的一个选择按钮，程序才能继续运行 D.用户按下消息框中的一个选择按钮，则获得反映该按钮类型的相应数值 E.消息框中的提示示信息可以有多行，最大长度为1024个字符 5.为了使文本框Text1显示垂直滚动条，必须设置的属性值是（ ） A．AutoSize = True B．MultiLine = True C．MaxLength = 20 D．ScrollBars = Vertical E．BorderStyle = 1
三．填空题
5