(单选题)1:阅读程序：Sub subP(b() As Integer)For i =1 To 4b(i)=2*i Next iEnd Sub Private Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a ()For i =1 To 4Print a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为()
A:2468
B:5678
C:10121416
D:出错
(单选题)2:当利用Line方法进行添加图时，以下正确的说法是（ ）
A:有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线
B:\使用Line(100100)-(10001200)和Line(100100)-Step(9001100)将绘制两条相同位置的直线\
C:\可利用Line方法添加矩形，如Line(300300)-(20002000)BF\
D:\可利用Line方法添加矩形，如Line(300300)-(23002300)B+F\
(单选题)3:设a=3b=5，则以下表达式值为真的是
A:a>=bAndb>10
B:(a>b)Or(b>0)
C:(a<0)Eqv(b>0)
D:(-3+5>a)And(b>0)
(单选题)4:使文本框获得焦点的方法是
A:Change
B:GotFocus
C:SetFocus
D:LostFocus
(单选题)5:以下能判断是否到达文件尾的函数是
A:BOF
B:LOC
C:LOF
D:EOF
(单选题)6:设有语句\nx=InputBox(“输入数值”，“0”，“示例”)\n程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
A:变量X的值是数值10
B:在InputBox对话框标题栏中显示的是“示例”
C:0是默认值
D:变量X的值是字符串“10”
(单选题)7:在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：\nPrivate Sub Command1_Click()\nDim x As Integern As Integer\nx=1\nn=0\nDo While x窗体上有一组合框Combo1，并将下列项“Chardonnay”、“FunBlanc”、“Gewrzt”和“Zinfande”放置到组合框中，当窗体加载时的代码如下：Private Sub Form_Load()Combo1.AddIt
A:Text1.Text=Combo1.List(0)
B:Text1.Text=Combo1.List(1)
C:Text1.Text=Combo1.List(2)
D:Text1.Text=Combo1.List(3)
(单选题)8:(4)以下不能在“工程资源管理器”窗口中列出的文件类型是
A:.bas
B:.res
C:.frm
D:\.ocx
(单选题)9:把焦点移到某个指定的控件，所使用的方法是
A:SetFocus
B:Visible
C:Refresh
D:GetFocus
(单选题)10:设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（ ）
A:Caption
B:Name
C:Text
D:Value
(单选题)11:设置图片框pic1大小随所加载图像大小变化的正确语句是
A:pic1.autosize=true
B:pic1.strech=true
C:pic1.drawmode=1
D:pic1.drawmode=2
(单选题)12:确定一个控件在窗体上的位置的属性是
A:Width和Height
B:Width或Height
C:Top和Left
D:Top或Left
(单选题)13:确定一个窗体或控件大小属性是
A:Width或Height
B:Width和Height
C:Top或Left
D:Top和Left
(单选题)14:VB6.0集成环境的主窗口中不包括
A:标题栏
B:菜单栏
C:状态栏
D:工具栏
(单选题)15:以下关系表达式中，其值为False的是
A:\\\ABC\\>\\AbC\\\
B:\\\the\\<>\\they\\\
C:\\\VISUAL\\=UCase(\\Visual\\)\
D:\\\Integer\\>\\Int\\\
(单选题)16:在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(keyascii as integer)……End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是
A:单击鼠标
B:双击文本框
C:鼠标滑过文本框
D:按下键盘上的某个键
(单选题)17:在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：Private Sub Command1_Click() strText = InputBox(\请输入\) Text1.Text = strTextEnd Sub\nPrivate Sub Text1_Change() Label1.Caption = Right(Trim(Text1.Text) 3)End Sub程序运行后，单击命令按钮，如果在输入对话框中
A:空
B:abcdef
C:abc
D:def
(单选题)18:在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Private Sub Command1_Click()Dim i As Integerj As IntegerDim a(1010)As IntegerFor i=1 To 3For j=1 To 3a(ij)=(i-1)*3+jPrint a(ij);Next jPrintNext jEnd Sub程序运行后，单击命令按钮，窗体上显示的是
A:123246369
B:234345456
C:147258369
D:123456789
(单选题)19:执行下面的程序段后，x 的值为。x=5For i=1 To 20 Step 2x=x+i\\5Next i
A:21
B:22
C:23
D:24
(单选题)20:有如下语句：Open “f1.dat” For Random As #1 Len =15，表示文件f1.dat每个记录的长度等于（ ）
A:15个字符
B:15个字节
C:或小于15个字符
D:或小于15个字节
(责任编辑：admin)要这答案加QQ：800020900 或加微信：vq800020900 获取
