VB模拟试题专升本Word文档下载推荐.docx
《VB模拟试题专升本Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VB模拟试题专升本Word文档下载推荐.docx(10页珍藏版)》请在冰豆网上搜索。
![VB模拟试题专升本Word文档下载推荐.docx](https://file1.bdocx.com/fileroot1/2023-1/2/f1662615-1529-4967-9450-43bf0f324f75/f1662615-1529-4967-9450-43bf0f324f751.gif)
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
二、填空题(每空2分,共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