《可视化程序设计Ⅰ》3.在窗体(Name属性为Form1)上画两个文...
奥鹏东大本部16秋学期《可视化程序设计Ⅰ》在线作业3标准答案一、单选题：
1.在如下工具栏按钮事件处理函数中，空白处应当添加的语句为Private Sub Toolbar1ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ...End selectEnd Sub (满分:5)
A. Button
B. Button.index
C. Button.key=true
D. Button.text
2.将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是 (满分:5)
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)
3.在窗体(Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name 属性为Command1），然后编写如下两个事件过程：Private Sub Command1Click( )a=Text1.Text+Text2.TextPrint aEnd SubPrivate Sub FormmLoad( )Text1 Text=""Text2 Text=""End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321 (满分:5)
A. 444
B. 321123
C. 123321
D. 132231
4.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1Click( ) a = 12345Print Format$(a, "000.00")End Sub程序运行后，单击命令按钮，窗体上显示的是 (满分:5)
A. 123.45
B. 12345.00
C. 345.00
D. 123.00
5.定时器的Interval属性以( )为单位指定Timer事件之间的时间间隔 (满分:5)
A. 分
B. 秒
C. 毫秒
D. 微秒
6.确定一个窗体或控件大小属性是 (满分:5)
A. Width或Height
B. Width和Height
C. Top或Left
D. Top和Left
7.在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是 (满分:5)
A. "Private Sub Text1KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then MsgBox ""请输入大写字母"" KeyAscii = 0 End IfEnd Sub"
B. "Private Sub Text1KeyDown(KeyCode As Integer
Shift As Integer) If KeyCode < 65 Or KeyCode > 90 Then MsgBox ""请输入大写字母"" KeyCode = 0 End IfEnd Sub"
C. "Private Sub Text1MouseDown(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 Text1Change( ) If Asc(Text1.Text) > 64 And Asc(Text1.Text) < 91 Then MsgBox ""请输入大写字母"" End IfEnd Sub"
8.(2)以下叙述中正确的是 (满分:5)
A. 窗体的Name属性指定窗体的名称，用来标识一个窗体
B. " 窗体的Name属性的值是显示在窗体标题栏中的文本"
C. 可以在运行期间改变对象的Name属性的值
D. "对象的Name属性值可以为空
9.关于数据控件的常用方法说法正确的 (满分:5)
A. Refresh方法用于从数据库中读取数据更新界面
B. Refresh方法用于将界面中的数据更新到数据库
C. UpdateControl方法用于从数据库中读取数据更新界面
D. UpdateControl方法用于将界面中的数据更新到数据库
10.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：Private Sub FormLoad( )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"， (满分:5)
A. 1245
B. 456789
C. 789456
D. 0
11.在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是 (满分:5)
A. ") Private Sub Command1Click( ) x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End SubFunction F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function"
B. "Private Sub Command1Click( ) 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 Command1Click( ) 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 Command1Click( ) 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
12.在窗体中添加一个列表框，然后编写如下两个事件过程： Private Sub FormClick( )List1.RemoveItem 1List1.RemoveItem 3List1.RemoveItem 2End SubPrivate Sub FormLoad( )List1.AddItem "AA"List1.AddItem "BB"List1.AddItem "CC"List1.AddItem "DD"List1.AddItem "EE"End Sub运行上面的程序，然后单击窗体，列表框中所显示的内 (满分:5)
A. AABB
B. DDEE
C. AACC
D. BBCC
13.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 (满分:5)
A. Value
B. Default
C. Cancel
D. Enabled
14.下列不能打开菜单编辑器的操作是 (满分:5)
A. 按Ctrl+E
B. 单击工具栏中的“菜单编辑器”按钮
C. 执行“工具”菜单中的“菜单编辑器”命令
D. 按Shift + Alt + M
15.设有如下的类型声明 Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29．dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是 (满分:5)
A. "open”c：＼Test29．dat"" For Random As#1 Put #1，1，p Close #1 "
B. "open ""c
16.以下不能在“工程资源管理器”窗口中列出的文件类型是 (满分:5)
＼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 "
17.(4)以下不能在“工程资源管理器”窗口中列出的文件类型是 (满分:5)
A. .bas
B. .res
C. .frm
D. .ocx
18.设有如下程序：Option Base 0Private Sub FormClick( )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程序运行后，单击窗体，则在窗体上显示的是 (满分:5)
A. .bas
B. .res
C. .frm
D. ".ocx
19.以下关于菜单的叙述中，错误的是 (满分:5)
A.
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
20.有窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程:Private Sub Command1Click( )s=0For i=1 To 15x=2*i-1If x Mod 3=0 Then s=s+1Next iLabel1.Caption=sEnd Sub程序运行后，单击命令按钮，则标签中显示的内容是 (满分:5)
A. 在程序运行过程中可以增加或减少菜单项
B. 如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项C
C. 弹出式菜单在菜单编辑器中设计
D. 利用控件数组可以实现菜单项的增加或减少
页:
[1]