VB练习题3.docx
- 文档编号:30767892
- 上传时间:2023-08-23
- 格式:DOCX
- 页数:39
- 大小:27.61KB
VB练习题3.docx
《VB练习题3.docx》由会员分享,可在线阅读,更多相关《VB练习题3.docx(39页珍藏版)》请在冰豆网上搜索。
VB练习题3
Visual Basic 6.0练习题
第一章 走进Visual Basic
一、 选择题
1. 方法Print-15;:
Print-16输出的结果是 _______
A) A)-15-16 B) -31 C)-15 -16 D)出错
2. 若要将窗体从内存中卸载,其实现的方法是________
A)Show Hide B)UnLoad C)Load D)Hide
3. 以下不能在"工程资源管理器"窗口中列出的文件类型是_______
A).bas B).res C).frm D).ocx
4. 以下叙述中错误的是_______
A)Visual Basic 是事件驱动型可视化编程工具
B)Visual Basic应用程序不具有明显的开始和结束语句
C)Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性
D)Visual Basic中控件的某些属性只能在运行时设置
5. 以下叙述中错误的是
A)在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B)以.BAS为扩展名的文件是标准模块文件
C)窗体文件包含该窗体及其控件的属性
D)一个工程中可以含有多个标准模块文件
6. 以下不属于Visual Basic系统的文件类型是
A).frm B).bat C).vbg D).vbp
7. 以下叙述中错误的是
A)打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件
B)保存Visual Basic程序时,应分别保存窗体文件及工程文件
C)Visual Basic应用程序只能以解释方式执行
D)事件可以由用户引发,也可以由系统引发
二、 填空题
1. 下面程序的输出是___________.
Private Sub Form_Click()
Print "*":
Print "***":
Print "*****"
End Sub
三、 简答题
1. Visual Basic程序设计有哪几个主要部分,以及各自的作用是什么。
2. Visual Basic集成环境中的工具箱、属性窗口、资源管理器窗口、程序代码窗口及窗体窗口的作用是什么。
3. 创建一个工程有哪些主要的步骤,其作用是什么。
第二章 Visual Basic语言基础
一、 选择题
1.下面程序运行后的输出结果是( )
X$=“A”
Y$=“B”
Z$=“C”
For J=1 TO 2
X$=Y$=Z$:
Z$=X$
NEXT J
Debug.Print X$+Y$+Z$
END
A)CAB
B)BCA
C)BCB
D)CBC
2.下面程序的循环次数是( )
For J=8 TO 35 Step 3
DEBUG,Print J
NEXT J
END
A)10
B)9
C)27
D)28
3.下面程序运行后输出的结果是( )
For X=1 TO 2
A=0
For Y=0 TO X=1
A=A+1
NEXT Y
DEBUG。
PRINT A:
NEXT X
END
A)1 1
B)0 3
C)1 2
D)6
4.下面程序运行后输出的结果是( )
WHILE J<30
J= (J+1) * (J+1)
N=N+1
END
DEBUG.PRINT N
END
A)0
B)3
C)4
D)29
5.下面程序运行时内层循环总次数是( )
For M=1 TO 3
For N=0 TO M-1
NEXT N
NEXT M
END
A)6
B)5
C)3
D)4
6.下面程序运行时,输出的结果是( )
For K=1 TO 3
IF K <=1 Then A=3
IF K <=2 Then A=2
IF K <=3 Then A=1
DEBUG.PRINT A;
NEXT K
PRINT K
END
A)1 1 1 4
B)3 2 1 4
C)3 3 3 3
D)1 2 3 4
7.下列事件过程
Private Sub commandl_Click()
Dim sum As Integer
sum%=19
sum=2.32
print sum%; sum
End Sub
运行后输出结果是 。
A)19 2.32 B)19 19
C)2.32 2.32 D)2 2
8.下列程序
Private Sub Commandl_Click()
x1=InputBox("请输入")
Print Xl+123
End Sub
运行时,若输入123,将输出 。
A)123123 B)246
C)123 D)显示出错信息
9.下列程序
Private Sub Command1_CIick()
Xl=InputBox("请输入")
Print X1 + "123"
End Sub
运行时,若输入123,将输出 。
A)123123 B)246
C)123 D)显示出错信息
10. 写出运行结果
Private Sub form_click()
Dim a As Integer
Static b As Integer
b=b+2
a=a+b
Forml.Print”a=”;a,”b=”;b
End Sub
11.下列事件过程
Private sub commandl_Click()
Dim ZXS As Integer
Zxs%=232
ZXS=232.32
Print ZXS%;ZXS
End Sub
运行后,输出的结果是 。
A)232 232.32 B)232 232
C)232.32 232.32 D)显示出错信息
12.设有如下的记录类型
Type Student
number As String
name As String
age As Integer
End Type
则正确引用该记录类型变量的代码是
A) Student.name = "张红" B) Dim s As Student
s.name = "张红"
C) Dim s As Type Student D) Dim s As Type
s.name = "张红" s.name = "张红"
13.函数String(n, "str")的功能是
A)把数值型数据转换为字符串
B)返回由n个字符组成的字符串
C)从字符串中取出n个字符
D)从字符串中第n个字符的位置开始取子字符串
14.在窗体上画一个命令按钮,名称为Command1。
单击命令按钮时,执行如下事件过程:
Private Sub Command1_Click()
a$ = "software and hardware"
b$ = Right(a$, 8)
c$ = Mid(a$, 1, 8)
MsgBox a$, , b$, c$, 1
End Sub
则在弹出的信息框的标题栏中显示的信息是
A)software and hardware
B)software
C)hardware
D)1
15.在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:
Private Sub Command1_Click()
s = 0
For i = 1 To 15
x = 2 * i - 1
If x Mod 3 = 0 Then s = s + 1
Next i
Label1.Caption = s
End Sub
程序运行后,单击命令按钮,则标签中显示的内容是
A)1 B)5 C)27 D)45
16.在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签,然后编写如下代码:
Private x As Integer
Private Sub Command1_Click()
Static y As Integer
Dim z As Integer
n = 10
z = n + z
y = y + z
x = x + z
Label1.Caption = x
Label2.Caption = y
Label3.Caption = z
End Sub
运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是
A)10 10 10 B)30 30 30 C)30 30 10 D)10 30 30
二、 填空题
1.下面程序运行后输出S的值是__________
For K=1 TO 5
S=0 :
J=1
For M=1 TO K
J=J*M
NEXT M
S=S+J
NEXT K
DEBUG.PRINT S
END
2.下面程序的输出的结果为_________
X$=China capital Beijing
N=LEX(X$)
M=0
P=0
For i=0 TO N
Y$=UCASE$(MID$(X$,I,1))
IF Y$>=”A” AND Y$<=”Z” THEN
ELSE
P=0
ELSEIF
NEXT i
DEBUG.PRINT M
3.下面的程序运行后,输出的值是( )
X$=”12.34” :
Y$=”56.78”
Z$=X$+Y$
ZZ=VAL(Z$)
DEBUG.PRINT ZZ
END
4.以下程序的功能是:
生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和。
请填空。
Private Sub Command1_Click()
For i = 1 To 20
x = Int( _______ * 200 + 100)
If _______ = 0 Then
Print x
S = S + _______
End If
Next i
Print "Sum = "; S
End Sub
5.在窗体上画一个名称为Command1的命令按钮,编写如下事件过程
Private Sub Command1_Click()
Dim a As String
a = _______
For i = 1 To 5
Print Space(6 - i); Mid$(a, 6 - i, 2 * i - 1)
Next i
End Sub
程序运行后,单击命令按钮,要求窗体上显示的输出结果为
5
456
34567
2345678
123456789
___________。
第三章 控制语句与程序调试
一、选择题
1. 在VB 6.0中,合法的长整型常量是——。
A)123456@ B)0&
C)31276!
D)345#
2. 下面逻辑表达式的值为真的是
A)”ABC”>”abc” B)”ABC”>”b23”
C)”ABC”>”ABC” D)”ABC”>”ABC”
3. 在VB6.0中,下面四个数中,作为常量有语法错误的是——。
A)123.456# B)1234!
C)1.23D-23 D)1.89E1.1
4. 在VB6.0中,下面的四个语句正确的是
A)x=SIN(-1) B)x=CHR$(”1”)
C)x=SQR(-1) D)x=COS(0)/SIN(0)
5. 下面变量名不合法的是——。
A)a B)abcd#
C)a$x D)C_E
6. 设a为整型变量,不能正确表达数学关系:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 练习题