VB模拟试题专升本Word文档下载推荐.docx
《VB模拟试题专升本Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB模拟试题专升本Word文档下载推荐.docx（10页珍藏版）》请在冰豆网上搜索。
a>
b
则输出结果是
-1
0
False
True
（7）
以下语句的输出结果是
Print
Format
$（32548.5,"
000,000.00"
）
32548.5
32,548.5
032,548.50
32,548.50
（8）
执行以下程序段后，变量c$的值为
a$="
Visual
Basic
Programing"
b$="
Quick"
c$=b$
&
UCase（Mid$（a$,7,6））
Right
$
（a$,11）
BASIC
Programing
Quick
QUICK
（9）
为了在按下鼠标左键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
Value
EnabledC）
Cancel
Default
（10）
为了把焦点移到某个指定的控件，所使用的方法是
SetFocus
Visible
Refresh
GetFocus
（11）
设a=6，则执行
x=IIf（a>
5,-1,0）后，x
的值为
5
6
（12）
执行下面的程序段后，x
x=5
For
i=1
To
20
Step
2
x=x+i\5
Next
i
21
22
23
24
（13）
在窗体上画一个命令按钮，然后编写如下事件过程：
Private
Sub
Command1_Click（）
4
x=4
j
=1
3
x=3
k=1
x=x+6
k
x
End
程序运行后，单击命令按钮，输出结果是
7
15
157
538
（14）
Prevate
x=0
Do
Until
x=-1
a
=
InputBox（"
请输入A的值"
Val（a）
请输入B的值"
Val（b）
请输入x的值"
Val（x）
a+b+x
Loop
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，则输出结果为
14
（15）
在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name
属性为Command1），然后编写如下两个事件过程：
a=Text1.Text+Text2.Text
Form_Load（）
Text1
Text="
"
Text2
sub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为
444
321123
123321
132231
（16）
阅读下面的程序段：
j=1
k=j
a=a+1
执行上面的三重循环后，a
9
（17）
在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：
Text1.Text="
Text1.SetFocus
10
Sum=Sum+i
Text1.Text=Sum
上述程序的运行结果是
在文本框Text1中输出55
在文本框Text1中输出0
出错
在文本框Text1中输出不定值
（18）
在窗体上画两个文本框（其Name
属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：
While
x<
50
x=（x+2）*（x+3）
n=n+1
Text1.Text=Str（n）
Text2.Text=Str（x）
程序运行后，单击命令按钮，在两个文本框中显示的值分别为
1和0
2和72
3和50
4和168
（19）
用下面语句定义的数组的元素个数是
Dim
A
（-3
5）
As
Integer
8
（20）
以下程序的输出结果是
Option
Base
1
a（10）,p（3）
k=5
a（i）=i
p（i）=a（i*i）
I
k=k+p（i）*2
33
28
35
37
（21）
在窗体上面画一个命令按钮，然后编写如下事件过程：
Commandl_Click（）
Array（1,2,3,4）
1Step
s
+
a（i）*j
=j*10
运行上面的程序，单击命令按钮，其输出结果是
4321
12
34
1234
（22）
在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：
Commandl_Click（
a（4,4）
a（i,j）
（i-1）*3+j
=3
a（j,i）;
程序运行后，单击命令按钮，其输出结果为
11
7
8
9
10
13
（23）
假定有如下的Sub过程：
S（x
Single,y
Single）
t
=t/y
y
=t
Mod
Commandl_Click
（
Single
=5
=4
S
a,b
程序运行后，单击命令按钮，输出结果为
1.25
（24）
阅读程序：
Function
F（a
Integer）
Static
c
b+1
c+1
f
a+b+c
（）
=2
F（a）
运行上面的程序，单击命令按钮，输出结果为
4
5
6
6
（25）
subP（b（）
b（i）=2*i
a（1
4）As
（1）=5
（2）=6
（3）=7
（4）=8
subP
a（i）
A）2
B）5
C）10
D）出错
12
7
8
16
（26）
下列不能打开菜单编辑器的操作是
A）按Ctrl+E
B）单击工具栏中”菜单编辑器"
C）执行"
工具"
菜单编辑器"
D）按Shift
Alt
M
（27）
假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为
MenuItem.
Enabled=False
Enabled=True
Visible=True
Menultem.
Visible=False
（28）
在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是
Move
Change
Scroll
（29）
假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为
Label1.
BackStyle=0
Label1.Borderstyle=0
Label1.BackStyle=1
Label1.Borderstyle=1
Label1.BackStyle=True
Label1.BorderStyle=True
Label1.BackStyle=False
Label1.Borderstyle=False
（30）
在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
Form_Load
List1.AddItem"
357"
246"
123"
Listl.AddItem"
456"
List1_
DblClick
=List1.Text
a+Text1.Text
程序运行后，在文本框中输”789"
（见图1），然后双击列表框中的"
，则输出结果为
1245
456789
789456
（31）
为了暂时关闭计时器，应把该计时器的某个属性设置为False
，这个属性是
Timer
Enabled
Interval
（32）
为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为
A）Get文件号，记录号，变量名
B）Get文件号，变量名，记录号
C）Put文件号，变量名，记录号
D）Put文件号，记录号，变量名
（33）
对窗体编写如下事件过程：
Form
_MouseDown（Button
Integer,
_
Shift
X
Y
If
Button
Then
AAAAA"
MouseUp（Button
Single,
BBBBB"
程序运行后，如果单击鼠标右键，则输出结果为 。
AAAAA
BBBBB
BBBBB
AAAAA
（34）
为了在运行时能显示窗体左上角的控制框（系统菜单），必须 。
把窗体的Contro1Box
属性设置为Fale,其他属性任意
把窗体的ControlBox
属性设置为True,并且把Boder
Style属性设置为1.
属性设置为False,同时把BoderStyle属性调协为非0值
属性设置为True,同时把BoderStyle属性设置为0值
（35）
对窗体编写如下代码：
Form_KeyPress（KeyAscii
Array（237,126,87,48,498）
m1
a
（1）
m2
KeyAscii
a（i）>
ml
=a（j）
=i
程序运行后，按回车键，输出结果为
48
237
498
4
1
54
二、填空题（每空２分，共30分）
（1）设有如下的Visual
Basic表达式：
*
x^2
-
Sin（a）/3
它相当于代数式【1】
（2）执行下面的程序段后，s的值为
【2】
2.6
4.9
0.6
s+1
（3）表达式Fix（-32.68）+Int（-23.02）的值为
【3】
（4）为了在运行时把图形文件picfile.
jpg装入图片框Picture1,所使用的语句为【4】
（5）在窗体上画一个命令按钮，然后编写如下事件过程：
请输入一个整数"
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为
【5】
执行下面的程序段后，b的值为【6】
a=300
b=20
a=a+b
b=a-b
a=a-b
以下程序段的输出结果是【7】
num=0
num<
num=num+1
num
Wend
在窗体画一个命令按钮，然后编写如下事件过程：
10）
p（1
3）
程序运行后，单击命令按钮，输出结果是【8】
下面的程序用"
冒泡"
法将数组a中的10个整数按升序排列，请在【9】、【10】、【11】处将程序补充完整。
a=Array（678,45,324,528,439,387,87,875,273,823）
i=【9】
j=【10】
【11】
a（j）
a1=a（i）
a（i）=a（j）
a（j）=a1
在窗体画一个命令按钮，然后编写如下过程：
fun（ByVal
Long）As
Long
num=Abs（num）
k=k*（num
num=num\10
fun=k
n
r
n=InputBox（"
请输入一个数"
n=CLng（n）
r=fun（n）
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【12】
如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为【13】
假定建立了一个工程，该工程包括两个窗体，其名称（Name
属性）分别为Form1和Form2，启动窗体为Form1。
在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在【14】和【15】处将程序补充完整。
【14】
Form1
Form2.
【15】
三、编程题（第1题10分，第2题15分）
1、求1到100之间所有偶数的和。
2、设计一个程序，程序名为：
PRG2，功能是根据分数>
=90、>
=80、>
=60、<
60，返回优秀、良好、及格、不及格。
〖完〗
（1）
C
D
B
2sin（a）
二、填空题
3
5x2-3x-
[2]
[3]
-56
[4]
Picturel.Picture
LoadPicture（"
picfile.jpg"
[5]
321456
[6]
300
[7]
[8]
[9]
[10]
i+1
[11]
>
[12]
[13]
[14]
Unload
[15]
Show
升级会员 