《可视化程序设计Ⅰ》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 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 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. 利用控件数组可以实现菜单项的增加或减少