当前位置：文档库 › 东大16秋学期《可视化程序设计Ⅰ》在线作业3

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

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

、单选题（共 20 道试题，共 100 分。）
1. 在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End selectEnd 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 SubPrivate 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 SubPrivate 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()List1.RemoveItem 1List1.RemoveItem 3List1.RemoveItem 2End SubPrivate Sub Form_Load()List1.AddItem "AA"List1.AddItem "BB"List1.AddItem "CC"List1.AddItem "DD"List1.AddItem "EE"End Sub运行上面的程序，然后单击窗体，列表框中所显示的内
A. AABB
B. DDEE
C. AACC
D. BBCC
满分: 5 分
13. 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
A. Value
B. Default
C. Cancel
D. Enabled
满分: 5 分
14. 下列不能打开菜单编辑器的操作是
A. 按Ctrl+E
B. 单击工具栏中的“菜单编辑器”按钮
C. 执行“工具”菜单中的“菜单编辑器”命令
D. 按Shift + Alt + M
满分: 5 分
15. 设有如下的类型声明 Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29．dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是
A. "open”c：＼Test29．dat"" For Random As#1 Put #1，1，p Close #1 "
B. "open

""c:＼Test29.dat"" For Random As #1 Get#1，1，p C10se #1 "
C. "open ""c＼Test29．dat"" For Random As #1 Len＝Len(p) Put #1，1，p Close #1 "
D. "Open ""c：＼Test29．dat "" For Random As #1=Len(p) Get #1，1，p CloSe #1 "
满分: 5 分
16. 以下不能在“工程资源管理器”窗口中列出的文件类型是
A. .bas
B. .res
C. .frm
D. .ocx
满分: 5 分
17. (4)以下不能在“工程资源管理器”窗口中列出的文件类型是
A. .bas
B. .res
C. .frm
D. ".ocx
满分: 5 分
18. 设有如下程序：Option Base 0Private Sub Form_Click()Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是
A.
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
满分: 5 分
19. 以下关于菜单的叙述中，错误的是
A. 在程序运行过程中可以增加或减少菜单项
B. 如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项C
C. 弹出式菜单在菜单编辑器中设计
D. 利用控件数组可以实现菜单项的增加或减少
满分: 5 分
20. 有窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:Private Sub Command1_Click()s=0For i=1 To 15x=2*i-1If x Mod 3=0 Then s=s+1Next iLabel1.Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是
A. 1
B. 5
C. 27
D. 45
满分: 5 分