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

16秋学期《可视化程序设计Ⅰ》在线作业3jHo傲朋学习网
试卷总分：100       测试时间：--jHo傲朋学习网
单选题jHo傲朋学习网
jHo傲朋学习网
一、单选题（共 20 道试题，共 100 分。）VjHo傲朋学习网
1.  在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End select End SubjHo傲朋学习网
A. ButtonjHo傲朋学习网
B. Button.indexjHo傲朋学习网
C. Button.key=truejHo傲朋学习网
D. Button.textjHo傲朋学习网
      满分：5  分jHo傲朋学习网
2.  将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是jHo傲朋学习网
A. Cos(a+b)^2+5*exp(2)jHo傲朋学习网
B. Cos^2(a+b)+5*exp(2)jHo傲朋学习网
C. Cos(a+b)^2+5*ln(2)jHo傲朋学习网
D. Cos^2(a+b)+5*ln(2)jHo傲朋学习网
      满分：5  分jHo傲朋学习网
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和321jHo傲朋学习网
A. 444jHo傲朋学习网
B. 321123jHo傲朋学习网
C. 123321jHo傲朋学习网
D. 132231jHo傲朋学习网
      满分：5  分jHo傲朋学习网
4.  在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是jHo傲朋学习网
A. 123.45jHo傲朋学习网
B. 12345.00jHo傲朋学习网
C. 345.00jHo傲朋学习网
D. 123.00jHo傲朋学习网
      满分：5  分jHo傲朋学习网
5.  定时器的Interval属性以（ ）为单位指定Timer事件之间的时间间隔jHo傲朋学习网
A. 分jHo傲朋学习网
B. 秒jHo傲朋学习网
C. 毫秒jHo傲朋学习网
D. 微秒jHo傲朋学习网
      满分：5  分jHo傲朋学习网
6.  确定一个窗体或控件大小属性是jHo傲朋学习网
A. Width或HeightjHo傲朋学习网
B. Width和HeightjHo傲朋学习网
C. Top或LeftjHo傲朋学习网
D. Top和LeftjHo傲朋学习网
      满分：5  分jHo傲朋学习网
7.  在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是jHo傲朋学习网
A. "Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii 90 Then MsgBox ""请输入大写字母"" KeyAscii = 0 End IfEnd Sub"jHo傲朋学习网
B. "Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode < 65 Or KeyCode 90 Then MsgBox ""请输入大写字母"" KeyCode = 0 End IfEnd Sub"jHo傲朋学习网
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"jHo傲朋学习网
D. "Private Sub Text1_Change() If Asc(Text1.Text) 64 And Asc(Text1.Text) < 91 Then MsgBox ""请输入大写字母"" End IfEnd Sub"jHo傲朋学习网
      满分：5  分jHo傲朋学习网
8.  (2)以下叙述中正确的是jHo傲朋学习网
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体jHo傲朋学习网
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"jHo傲朋学习网
C. 可以在运行期间改变对象的Name属性的值jHo傲朋学习网
D. "对象的Name属性值可以为空jHo傲朋学习网
      满分：5  分jHo傲朋学习网
9.  关于数据控件的常用方法说法正确的jHo傲朋学习网
A. Refresh方法用于从数据库中读取数据更新界面jHo傲朋学习网
B. Refresh方法用于将界面中的数据更新到数据库jHo傲朋学习网
C. UpdateControl方法用于从数据库中读取数据更新界面jHo傲朋学习网
D. UpdateControl方法用于将界面中的数据更新到数据库jHo傲朋学习网
      满分：5  分jHo傲朋学习网
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"，jHo傲朋学习网
A. 1245jHo傲朋学习网
B. 456789jHo傲朋学习网
C. 789456jHo傲朋学习网
D. 0jHo傲朋学习网
      满分：5  分jHo傲朋学习网
11.  在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是jHo傲朋学习网
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"jHo傲朋学习网
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"jHo傲朋学习网
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 "jHo傲朋学习网
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 FunctionjHo傲朋学习网
      满分：5  分jHo傲朋学习网
12.  在窗体中添加一个列表框，然后编写如下两个事件过程： Private Sub Form_Click()Li