如果您无法下载资料,请参考说明:
1、部分资料下载需要金币,请确保您的账户上有足够的金币
2、已购买过的文档,再次下载不重复扣费
3、资料包下载后请先用软件解压,在使用对应软件打开
计算机程序设计基础教程第二套模拟卷
一、选择题(20分)
1.inputBox函数返回值的类型为()。
数值B)字符串C)变体D)数值或字符串(视输入的数据而定)
2.表达式6+5\8*7/9Mod4的值是()。
A)4B)5C)6D)7
3.为了把焦点移到某个指定的控件,所使用的方法是()
A)SetFocusB)VisibleC)RefreshD)GetFocus
4.语句DimA&(10),B#(10,5)定义了两个数组,其类型分别为()。
A)一维实型数组和二维双精度型数组
B)一维整型数组和二维实型数组
C)一维实型数组和二维整型数组
D)一维长整型数组和二维双精度型数组
5.程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是()。
A)MouseDownB)MouseUpC)LoadD)Click
6.以下能判断是否到达文件尾的函数是()。
A)BOFB)LOCC)LOFD)EOF
7.以下声明语句中错误的是()。
A)Constvar1=123B)Dimvar2=“ABC”C)Dimvar3(20)D)Staticvar4AsInteger
8.在VisualBasic中,Cls方法可以清除()中的内容。
A)Text B)Label C)Command D)Picture
9.以下叙述中错误的是()。
A)在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B)以.BAS为扩展名的文件是标准模块文件
C)窗体文件包含该窗体及其控件的属性
D)一个工程中可以含有多个标准模块文件
10.执行以下程序段后,变量c$的值为()。
a$="VisualBasicPrograming"
b$="Quick"
c$=b$&UCase(Mid$(a$,7,6))&Right$(a$,11)
A)VisualBASICPrograming
B)QuickBasicPrograming
C)QUICKBasicPrograming
D)QuickBASICPrograming
二、写出下列程序的运行结果(20分)
1.在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框,在文本框Text1中输入10,然后编写如下事件过程,单击命令按钮,结果为:
PrivateSubCommand1_Click()
n=Text1.Text
SelectCasen
Case1To20结果:Text2.text=__________
x=10
Case22,24,26
x=20
CaseIs<0
x=30
Case10
x=40
EndSelect
Text2.Text=x
EndSub
2.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程,单击命令按钮,结果为:
PrivateSubCommand1_C1ick()
DimaAsString结果:
a=”1233456789”
Fori=1To5
PrintSpace(6-i);Mid$(a,6-i,2*i-1)
Nexti
EndSub
3.设有如下通用过程,并在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程,单击命令按钮,结果为:
PublicFunctionf(xAsInteger)
DimyAsInteger
x=20
y=2
f=x*y
EndFunction
PrivateSubCommand1_Click()
StaticxAsInteger
x=10
y=5结果:_______________
y=f(x)
Printx;y
EndSub
4.在窗体上画一个名称为Command1的命令按钮,然后编写如下代码,程序运行后,如果单击命令按钮,则在窗体上输出的内容为:
OptionBase1
PrivateSubCommand1_Click()
d=0
c=10
x=Array(10,12,21,32,24)
Fori=1To5
Ifx(i)>cThen结果:_______________
d=d+x(i)
c=x(i)
Else
d=d-c
EndIf
Nexti
Printd
EndSub
5.在窗体上画一个文本框、一个标签和一个命令按钮,其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程,程序运行后,单击命令按钮,将显示一个输入对话框,如果在该对话框中输入字符串"VisualBasic",则在标签中显示的内容是
PrivateSubCommand1_Click()
S$=InputBox("请输入一个字符串")
Text1.Text=S$结果:Label1.caption=___________
EndSub
Pr
as****16
实名认证
内容提供者
最近下载