(单选题)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: 2 4 6 8
B: 5 6 7 8
C:  10 12 14 16
D: 出错


(单选题)2: 当利用Line方法进行添加图时，以下正确的说法是（ ）
A: 有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线
B: "使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线 "
C: "可利用Line方法添加矩形，如Line(300,300)-(2000,2000),BF "
D: "可利用Line方法添加矩形，如Line(300,300)-(2300,2300),B+F "


(单选题)3: 设a=3,b=5，则以下表达式值为真的是
A: a>=b And b>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: 设有语句 x=InputBox(“输入数值”，“0”，“示例”) 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是
A: 变量X的值是数值10
B: 在InputBox对话框标题栏中显示的是“示例”
C: 0是默认值
D: 变量X的值是字符串“10”


(单选题)7: 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do 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 Private 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 Integer,j As IntegerDim a(10,10)As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext jEnd Sub程序运行后，单击命令按钮，窗体上显示的是
A: 123 246 369
B: 234 345 456
C: 147 258 369
D: 123 456 789


(单选题)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 获取