2.1vb的可视化开发环境同步练习沪科版信息技术选修1

这是一份教科版 (2019)选修4 人工智能初步本册综合综合训练题，共5页。试卷主要包含了选择题，操作题等内容，欢迎下载使用。


一、选择题
1．有如下VB程序
Key = Int(Rnd * 5 + 5)
i = 1: j = 10: sum = 0
D While i <= j
m = (i + j ) \ 2
If a(m) <= Key Then
i = m + 1
Else
j = m - 1
End If
sum = sum + m
Lp
数组元素a（1）到a（10）分别是2、4、5、6、6、6、8、8、10、12，程序运行后，sum的值不可能是（ ）
A．10B．14C．22D．26
2．"计算计件工资"的 Visual Basic 程序运行界面如图所示，单击"计算"命令按钮 Cmmand1，触发的事件 处理过程名是（ ）
A．Cmmand1_ClickB．Text1_ClickC．Frm_ClickD．Label3_Click
3．Visual Basic规定工程文件的扩展名是 ( )
A．vbw
B．frm
C．vbp
D．bas
4．在Visual Basic中，表达式1234 Md 10的值是( )
A．1B．2C．3D．4
5．某 VB 程序代码如下：
Private Sub Cmmand1_Click()
Dim a As Integer, b As Single
a = Val(Text1.Text)
b = 3.14 * a ^ 2
Text2.Text = "圆面积为：" + b
End Sub
在 Text1 中输入 3，单击命令按钮 Cmmand1 后，将会出现的提示信息是：（ ）
A．类型不匹配B．溢出
C．无效的过程调用或参数D．未找到方法或数据成员
6．在Visual Basic中，有整型变量a = 5，b＝13,要在标签控件中显示结果为 18，则执行下列语句能正确显示结果的是（ ）
A．Label1.captin = Str（a+b）B．Text1.text=Len（a）+Val(b)
C．Text1.text= Sqr(a+b)D．Label1.captin = Str（a）+Str（b）
7．在Visual Basic中，语句Label1.Captin = "欢迎使用本系统!" 中的"Label1"是( )
A．属性值B．属性名C．对象名D．类名
8．Len("Friend")的值是（ ）
A．6B．7C．8D．9
9．在Visual Basic程序中，设x=389，能得到其百位数字“3”的表达式是( )
A．Int(x/10)*10B．Int(x/100)*100C．x-Int(x/10)*10D．Int(x/100)
10．在Visual Basic中，语句TName.Captin = "2012伦敦"中的TName是
A．对象名
B．属性名
C．属性值
D．事件名
二、操作题
11．窗体上有标签LABEL1,有两个命令按钮，COMMAND1的标题是“变大”，COMMAND2的标题是“变小”。单击“变大”按钮，LABEL1中的字变大一倍，单击“变小”按钮，LABEL1中的字变小一倍。
PRIVATE SUB COMMAND1_CLICK( )
________
END SUB
PRIVATE SUB COMMAND2_CLICK( )
________
END SUB
参考答案：
1．A
2．A
3．C
4．D
5．A
6．A
7．C
8．A
9．D
10．A
11． LABEL1.FONTSIZE=LABEL1.FONTSIZE*2 LABEL1.FONTSIZE=LABEL1.FONTSIZE/2