《高级语言程序设计VB》试题样题.docx
《《高级语言程序设计VB》试题样题.docx》由会员分享，可在线阅读，更多相关《《高级语言程序设计VB》试题样题.docx（16页珍藏版）》请在冰豆网上搜索。
《高级语言程序设计VB》试题样题
《高级语言程序设计（VB）》试题样题
考试时间：
90分钟
专业 班号 班内序号 姓名 机号 成绩
一、登录网络及文件操作
1．用桌面上的4位机器号作为用户名，登录到FS3，删除F盘中的所有内容。
2．在F盘根目录下以专业（中文）+班号（1位）+班内序号（2位）+姓名（中文）为名建立考试目
录，并在该文件夹下分创建NO1、NO2、NO3和NO4等四个文件夹，下列四题分别存放在上述对应的四个文件夹中（否则无分）。
二、用VB编写下列程序
1．用文本框等控件和自定义过程实现输入n的值，计算1！
+2！
+3！
+…+n！
，并输出结果。
2．随机产生10个0~100之间的随机数，并求出最大值、最小值及最大值和最小值的位置。
3．用绘图方法绘制曲线：
y=x2-100（-10≤x≤10）。
4．用图像框和公共对话框（打开文件对象）等控件实现一个图像浏览器。
VisualBasic语言程序设计笔试样卷
（考试时间90分钟，满分100分）
一、选择题
（1）—（35）题每题2分，共70分。
下列各题A）、B）、C）、D）四个先项中,只有一个选择是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。
（1） 下列不能打开属性窗口的操作是 。
A）执行“视图”菜单中的“属性窗口”命令
B）按F4键
C）按Ctrl+T
D）单击工具栏上的“属性窗口”按钮 。
（2） 下列可以打开立即窗口的操作是 。
A）Ctrl+D B）Ctrl+E C）Ctrl+F D）Ctrl+G
（3） inputBox函数反回值的类型为 。
A）数值 B）字符串
C）变体 D）数值或字符串（视输入的数据而定）
（4） 可以同时删除字符串前导和尾部空白的函数是 。
A）Ltrim B）Rtrim C）Trim D）Mid
（5） 表达式4+5\6*7/8Mod 9的值是
A）4 B）5 C）6 D）7
（6） 如果在立即窗口中执行以下操作：
a=8 （是回车键，下同）
b=9
print a>b
则输出结果是 。
A）-1 B）0 C）False D）True
（7） 以下语句的输出结果是 。
PrintFormat$（32548.5,“000,000.00”）
A）32548.5 B）32,548.5 C）032,548.50 D）32,548.50
（8） 执行以下程序段后，变量c$的值为
a$=“VisualBasicPrograming”
b$=“Quick”
c$=b$&UCase（Mid$（a$,7,6））&Right$（a$,11）
A）VisualBASIC Programing
B）Quick Basic Programing
C）QUICK Basic Programing
D）Quick BASIC Programing
（9） 为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 。
A）Value B）Default C）Cancel D）Enabled
（10）为了把焦点移到某个指定的控件，所使用的方法是
A）SetFocus B）Visible C）Refresh D）GetFocus
（11）设a=6，则执行x=IIf（a>5,-1,0）后，x的值为 。
A）5 B）6 C）0 D）-1
（12）执行下面的程序段后，x的值为 。
x=5
For i=1To20Step2
x=x+i\5
Nexti
A）21 B）22 C）23 D）24
（13）在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
For i=1To4
x=4
For j=1To3
x=3
For k=1To2
x=x+6
Next k
Next j
Next i
Print x
EndSub
程序运行后，单击命令按钮，输出结果是 。
A）7 B）15 C）157 D）538
（14）在窗体上画一个命令按钮，然后编写如下事件过程：
PrevateSubCommand1_Click（）
x=0
DoUntilx=-1
a=InputBox（“请输入A的值”）
a=Val（a）
b=InputBox（“请输入B的值”）
b=Val（b）
x=InputBox（“请输入x的值”）
x=Val（x）
a=a+b+x
Loop
Printa
EndSub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为 。
A）2 B）3 C）14 D）15
（15）在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
PrivateSubCommand1_Click（）
a=Text1.Text+Text2.Text
Printa
EndSub
PrivateSubFormm_Load（）
Text1Text=""
Text2Text=""
Endsub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为 。
A）444 B）321123 C）123321 D）132231
（16）阅读下面的程序段：
For i=1To3
For j=1Toi
Fork=jTo3
a=a+1
Nextk
Nextj
Nexti
执行上面的三重循环后，a的值为 。
A）3 B）9 C）14 D）21
（17）在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
PrivateSubForm_Load（）
Ttext1.Text=""
Text1.SetFocus
For i=1To10
Sum=Sum+i
Nexti
Text1.Text=Sum
EndSub
上述程序的运行结果是 。
A）在文本框Text1中输出55
B）在文本框Text1中输出0
C）出错
D）在文本框Text1中输出不定值
（18）在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=0
DoWhilex<50
x=（x+2）*（x+3）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
EndSub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为
A）1和0 B）2和72 C）3和50 D）4和168
（19）用下面语句定义的数组的元素个数是 。
DimA（-3To5）AsInteger
A）6 B）7 C）8 D）9
（20）以下程序的输出结果是
Option Base1
PrivateSubCommand1_Click（）
Dima（10）,p（3）AsInteger
k=5
Fori=1To10
a（i）=i
Nexti
Fori=1To3
p（i）=a（i*i）
NextI
Fori=1To3
k=k+p（i）*2
Nexti
Printk
Endsub
A）33 B）28 C）35 D）37
（21）在窗体上面画一个命令按钮，然后编写如下事件过程：
OptionBase1
PrivateSubCommandl_Click（）
Dima
a=Array（1,2,3,4）
j=1
For i=4ToStep-1
s=s+a（i）*j
j=j*10
Next i
Prints
End Sub
运行上面的程序，单击命令按钮，其输出结果是 。
A）4321 B）12 C）34 D）1234
（22）在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：
OptionBase1
PrivateSubCommandl_Click（）
Dima（4,4）
Fori=1To4
Forj=1To4
a（i,j）=（i-1）*3+j
Nextj
Nexti
Fori=3To4
Forj=3To4
Printa（j,i）;
Nextj
Print
Nexti
EndSub
程序运行后，单击命令按钮，其输出结果为 。
A）6 9 B）710 C）811 D）9 12
710 811 912 1013
（23）假定有如下的Sub过程：
SubS（xAsSingle,yAsSingle）
t=x
x=t/y
y=tMody
EndSub
在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommandl_Click（）
DimaAsSingle
DimbAsSingle
a=5
b=4
Sa,b
Printa,b
EndSub
升级会员 