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