1、 在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimas=0a=Array(1,2,3,4);j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序，单击命令按钮，其输出结果是

A.4321

B.1234

C.34

D.12

参考答案： B

无

----------------------------------------

2、 在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是

A.PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii<65OrKeyAscii>90ThenMsgBox请输入大写字母KeyAscii=0EndIfEndSub

B.PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode<65OrKeyCode>90ThenMsgBox请输入大写字母KeyCode=0EndIfEndSub

C.PrivateSubText1_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)IfAsc(Text1.Text)<65OrAsc(Text1.Text)>90ThenMsgBox请输入大写字母EndIfEndSub

D.PrivateSubText1_Change()IfAsc(Text1.Text)>64AndAsc(Text1.Text)<91ThenMsgBox请输入大写字母EndIfEndSub

参考答案： A

无

----------------------------------------

3、 假定在窗体(名称为Form1)的代码窗口中定义如下记录类型：PrivateTypeanimalanimalNameAsString*20aColorAsString*10EndType在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimrecAsanimalOpen"c:＼vbTest.dat"ForRandomAs#1Len=Len(re##C.rec.animalName="Cat"rec.aColor="White"Put#1,,recClose#1EndSub则以下叙述中正确的是

A.记录类型animal不能在Form1中定义，必须在标准模块中定义

B.如果文件c:＼vbTest.dat不存在，则Open命令执行失败

C.由于Put命令中没有指明记录号，因此每次都把记录写在文件的末尾

D.语句Put#1,,rec将animal类型的两个数据元素写到文件中

参考答案： D

无

----------------------------------------

4、 在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：PrivateSubCommand1_Click()n=Val(Text1.Text)Ifn＼2=n/2Thenf=f1(n)Elsef=f2(n)EndIfPrintf;nEndSubPublicFunctionf1(ByRefx)x=x*xf1=x+xEndFunctionPublicFunctionf2(ByValx)x=x*xf2=x+x+xEndFunction程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是

A.7236

B.10836

C.726

D.108

首页 上页 1 2 3 下页 尾页 1/3/3