设在窗体上有个文本框，然后编写如下的事件过程：Private Sub Text1

试卷相关题目

1设有声明语句Dim b(-1 To 10, 2 To 9, 20) As Integer则数组b中全部元素的个数
A.2310
B.2016
C.1500
D.1658
开始考试点击查看答案
2当在滚动条内拖动滚动块时触发
A.KeyUp事件
B.KeyPress事件
C.Scroll事件
D.Change事件
开始考试点击查看答案
3如果将文本框的MaxLength属性设置为0，则文本框中的字符不能超过
A.8K
B.16K
C.32K
D.64K
开始考试点击查看答案
4要获得当前驱动器应使用驱动器列表框的属性是
A.Path
B.Drive
C.Dir
D.Pattern
开始考试点击查看答案
5下列语句中，获得列表框List1中项目个数的语句是
A.x=List1.ListCount
B.x=ListCount
C.x=List1.ListIndex
D.x=ListIndex
开始考试点击查看答案
6设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是
A.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)If Button=2 Then PopupMenu Bs, 2End Sub
B.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)PopupMenu BsEnd Sub
C.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)PopupMenu Bs,0End Sub
D.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As Single)If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu BsEnd Sub
开始考试点击查看答案
7下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则Private Sub Command1_Click()CommonDialog1.CancelError=TrueCommonDialog1.Flags=cdlCFEffects Or cdlDFBothCommonDialog1.Action=4CommonDialog1.ShowFontText1.Font.Name=CommonDialog1.FontNameText1.Font.Size=CommonDialog1.FontSizeText1.Font.Bold=CommonDialog1.FontBoldText1.Font.Italic=CommonDialog1.FontItalicText1.Font.Underline=CommonDialog1.FontUnderlineText1.FontStrikethru=CommonDialog1.FontStrikethruText1.ForeColor=CommonDialog1.ColorEnd Sub
A.Text1的字体不发生变化
B.Text1的字体发生变化
C.Text1的字体和颜色发生变化
D.程序出错！
开始考试点击查看答案
8要将名为MyForm的窗体显示出来，正确的使用方法是
A.MyForm.Show
B.Show.MyForm
C.MyForm Load
D.MyForm Show
开始考试点击查看答案
9下列程序段的执行结果为a=5For k=1 To 0a=a + kNext kPrint k; a
A.-1 6
B.-1 16
C.1 5
D.11 21
开始考试点击查看答案
10下列程序段的执行结果为a=3b=1For I=1 To 3f=a + ba=bb=fPrint fNext I
A.4 3 6
B.4 5 9
C.6 3 4
D.7 2 8
开始考试点击查看答案