16秋学期《可视化程序设计Ⅰ》在线作业3

李老师

16秋学期《可视化程序设计Ⅰ》在线作业3
试卷总分：100       测试时间：--
单选题

一、单选题（共 20 道试题，共 100 分。）V
1.  在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End select End Sub
A. Button
B. Button.index
C. Button.key=true
D. Button.text
      满分：5  分
2.  将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是
A. Cos(a+b)^2+5*exp(2)
B. Cos^2(a+b)+5*exp(2)
C. Cos(a+b)^2+5*ln(2)
D. Cos^2(a+b)+5*ln(2)
      满分：5  分
3.  在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a=Text1.Text+Text2.TextPrint aEnd Sub Private Sub Formm_Load()Text1 Text=""Text2 Text=""End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321
A. 444
B. 321123
C. 123321
D. 132231
      满分：5  分
4.  在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是
A. 123.45
B. 12345.00
C. 345.00
D. 123.00
      满分：5  分
5.  定时器的Interval属性以（ ）为单位指定Timer事件之间的时间间隔
A. 分
B. 秒
C. 毫秒
D. 微秒
      满分：5  分
6.  确定一个窗体或控件大小属性是
A. Width或Height
B. Width和Height
C. Top或Left
D. Top和Left
      满分：5  分
7.  在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是
A. "Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then MsgBox ""请输入大写字母"" KeyAscii = 0 End IfEnd Sub"
B. "Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode < 65 Or KeyCode > 90 Then MsgBox ""请输入大写字母"" KeyCode = 0 End IfEnd Sub"
C. "Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 Then MsgBox ""请输入大写字母"" End IfEnd Sub"
D. "Private Sub Text1_Change() If Asc(Text1.Text) > 64 And Asc(Text1.Text) < 91 Then MsgBox ""请输入大写字母"" End IfEnd Sub"
      满分：5  分
8.  (2)以下叙述中正确的是
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
D. "对象的Name属性值可以为空
      满分：5  分
9.  关于数据控件的常用方法说法正确的
A. Refresh方法用于从数据库中读取数据更新界面
B. Refresh方法用于将界面中的数据更新到数据库
C. UpdateControl方法用于从数据库中读取数据更新界面
D. UpdateControl方法用于将界面中的数据更新到数据库
      满分：5  分
10.  在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：Private Sub Form_Load ()List1.AddItem"357"List1.AddItem"246"List1.AddItem"123"Listl.AddItem"456"Text1.Text=""End Sub Private Sub List1_ DblClick ( )a =List1.TextPrint a+Text1.TextEnd Sub程序运行后，在文本框中输入“789”（见图1），然后双击列表框中的"456"，
A. 1245
B. 456789
C. 789456
D. 0
      满分：5  分
11.  在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
A. ") Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function"
B. "Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function"
C. "Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function "
D. "Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
      满分：5  分
12.  在窗体中添加一个列表框，然后编写如下两个事件过程： Private Sub Form_Click()Li