13.下列语句用来设置疤錐orm1的属性，其中在运行时不能正确操作的语句是（）
A）Form1.Caption="FormTest"B）Form1.Name="FormTest"C）Form1.MaxButton=FalseD）Form1.MinButton=False
14.表达式Left（"howareyou",3）的值是（）
A）howB）areC）youD）howareyou
15.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）
A）工程资源管理器窗口B）工具箱窗口C）代码窗口D）属性窗口
16.下列正确的VisualBasic注释语句是（）
A）Dima（10）AsIntegerRem这是一个VB程序
B）这是一个VB程序
PrivateSubCommand1_Click（）…
C）a=1:
b=2:
_Rem这是一个VB程序：
c=3
D）IfShift=6AndButton=2Then
Print"BBBB"Rem这是一个VB程序
EndIf
17.代数式ab+cd对应的VisualBasic6.0表达式是（）
A）a/（b+c/D）B）（a/b+c）/dC）a/（b+c）/dD）a/b+c/d
18.使程序立即从一个Function过程中退出的语句是（）
A）ExitFunctionB）ExitC）ReturnD）Resume
19.要使一个标签透明且具有边框，则应（）
A）将其BackStyle属性设置为0，BorderStyle属性设置为0
B）将其BackStyle属性设置为0，BorderStyle属性设置为1
C）将其BackStyle属性设置为1，BorderStyle属性设置为0
D）将其BackStyle属性设置为1，BorderStyle属性设置为1
20.在窗体上画一个命令按钮，然后编写如下代码：
PrivateSubCommand1_Click（）
a&=InputBox（"请输入第一个数"）
b&=InputBox（"请输入第二个数"）
Printb&+a&
EndSub
程序运行后，单击命令按钮，在两个输入对话框中先后输入12345和54321，程序的输出结果是（）
A）66666B）5432112345C）1234554321D）出错
答案：
1.D2.D3.C4.A5.A6.D7.A8.A9.A10.B11.C12.A13.B14.A15.C16.B17.A18.A19.B20.A
7.在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：
PrivateSubCommand1_Click（）
Text1.Text="VBProgramming"
Text2.Text=Text1.Text
Text1.Text="ABCD"
EndSub
程序运行后，单击命令按钮，两个文本框中显示的内容分别为【7】和【8】。
8.下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Text1输入。
例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10;移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。
PrivateSubMoveRight（x（）AsInteger）
DimiAsInteger
DimjAsInteger
DimkAsInteger
i=UBound（x）
j=x（i）
Fork=iTo【9】Step-1
【10】
Nextk
x（LBound（x））=j
EndSub
PrivateSubCommand1_Click（）
Dima（10）AsInteger
DimiAsInteger
DimjAsInteger
DimkAsInteger
Fori=0To10
a（i）=i
Nexti
j=Val（Text1.Text）
k=0
Do
k=k+1
CallMoveRight（a）
LoopUntilk=j
Fori=0To10
Printa（i）;
Nexti
EndSub
9.下面程序是用来打印九九乘法表的，请填空。
PrivateSubForm_Click（）
DimflagAsInteger,iAsInteger,jAsInteger,Str1$
Str1=“”
Fori=1To9
【11】
Forj=1To9
If【12】Then
str1=str1+Str$（j）+“*”+Str$（i）+“=”+Str$（Val（i*j））
Else
str1=str1&Chr（13）
ExitFor
EndIf
Nextj
Nexti
Printstr1
EndSub
10.把一个磁盘文件的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入另一个磁盘文件，请填空完成程序。
在窗体上建立一个文本框，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
PrivateSubForm_Click（）
Open“D：
\test1.txt”ForInputAs#1
Text1.FontSize=14
Text1.FontName=“幼圆”
DoWhileNotEOF
（1）
【13】
whole$=whole$+aspect$+Chr$（13）+Chr$（10）
Loop
Text1.Text=【14】
Close
Open“D：
\test2.txt”ForOutputAs#1
Print#1,【15】
Close
EndSub
答案：
1.【1】重复（或循环）
2.【2】0
3.【3】模块
4.【4】消息
5.【5】谓词演算
6.【6】样式
7.【7】ABCD【8】VBProgramming
8.【9】LBound（x）+1【10】x（k）=x（k-1）
9.【11】Flag=i【12】j
10.【13】LineInput#1,aspect$【14】Whole$【15】Text1.text
选择题（下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的）。
（1）以下不能在“工程资源管理器”窗口中列出的文件类型是
A）.bas
B）.res
C）.frm
D）.ocx
（2）以下关于窗体的描述中，正确的是
A）执行UnloadForm1语句后，窗体Form1消失且也不在内存中
B）窗体的Load事件在卸栽窗体时发生
C）当窗体的Enabled属性为Ture时，通过鼠标和键盘对窗体的操作都被禁止
D）执行UnloadForm1语句后，窗体Form1消失，但仍在内存中
（3）设有如下的记录类型
则正确引用该记录类型变量的代码是
A）Worker.name＝”张红”
B）DimSAsWorker
S.name＝”李红梅”
C）DimSAsTypeWorker
s.name＝”李红梅”
D）DimSAsType
S.name＝”李红梅”
（4）在立即窗口中，语句PrintString（3，”Basic”）的输出是
A）Bas
B）BasicBasieBasic
C）S
D）BBB
（5）存窗体卜画一个命今按钮，名称为Commandl。
单击命令按钮时，执行如下事件过程：
则在弹出的信息框的标题栏中显示的信息是
A）softwareandhardware
B）software
C）hardware
D）1
该文章转载自无忧考网：
升级会员 