vb程序设计练习题一
程序填空题（一）
1. 实现功能：当单击“显示”按钮后，显示下面的图形：
Dim i As Integer '定义i 为整型变量
Dim j As Integer '定义j 为整型变量 For i = 1 To 6 Step 1 For j = 1 To Step 1 Print Next Print Next i
2. 实现功能：在Text1中输入一个数，单击“判断”按钮后，判断这个数是奇数还是偶数，并在Label1中显示“奇数”或“偶数”出来。
Dim a As Single
Dim b As Single a = Val( ) '从Text1中读入这个数,并保存在变量a 中 b = a Mod
If b = 0 Then
Label1.Caption = "偶数"
Else
Label1.Caption = "奇数"
3. 实现功能：当单击“显示”按钮后，随机产生10个属于区间[0，100]的自然数，并保存于数组a 中，然后在窗体上显示这10个数中的最大值。(注：学生运算结果有可能跟样图中数值不一致)
Dim a(9) As Integer Dim max As Integer
Dim i As Integer
Me.Cls
Randomize For i = 0 To
a(i) = Int(Rnd * 100)
Print a(i)
Next i
max = a(0)
For i = 1 To 9
If max < a(i) Then max =
End If
Next i
Print "这10个自然数中的最大值=";
4. 实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上。
Dim s(9) As Single
For i = 0 To 9 = Val(InputBox("请输入一个数"))
Next i For i = 9 To 0 Step Print
Next i
5. 实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。
Dim h, m, s, ss As Integer ss = Val( ) h =
m = (ss - h * 3600) \ 60 s = (ss - h * 3600) Mod
Label1.Caption = CStr(h)
Label2.Caption = CStr(m)
Label3.Caption = CStr(s)
6. 实现功能：在Text1、Text2、Text3中输入三个整数后，单击“输出最大值”按钮后，在Label3中显示这3个数中的最大值。
Dim a, b, c, max As Integer
@ @@
@@@ @@@@ @@@@@
@@@@@@
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text) If a > b Then max = a Else If c > max Then Label3.Caption = CStr( )
7. 实现功能：单击按钮后打印出下面所示的图案。(第一行的第一个“*”从第5列开始输出)
Dim i, j As Integer
For i = 1 To
Print Tab(6 - i); For j = 1 To Print ;
Next j
Next i
8. 某超市苹果价格每斤4元，购买10斤以上(包括10斤)将享受8折优惠。实现功能：使得在Text1中输入重量并单击“计算”按钮后，在Label1中显示对应的价格。
Dim x, s As Single
x = Val(Text1.Text) If Then s = 4 *
Else
s = 4 * x
End If Label1.Caption = CStr( )
9. 在窗体上有一个"标签"控件Label1和两个"命令按钮"控件，命令按钮command1上显示"上移"，另一个命令按钮command2上显示"下移"。单击“上移”按钮，使得标签向上移动100，单击“下移”按钮，使得标签向下移动100
Private Sub Command1_Click()
End Sub
Private Sub Command2_Click()
End Sub
10. 实现功能：在三个文本框中输入一元二次方程的三个系数后，单击命令按钮，程序求出该方程的解。 Dim a, b, c, p As Single
a = Val(Text1.Text)
b = Val( )
c = Val(Text3.Text)
p = b * b - 4 * a * c If Then
X1 = (-b + Sqr(p)) / (2 * a)
X2 = (-b - Sqr(p)) / (2 * a)
Print "X1="; X1
Print "X2="; X2
Print "该方程无实数根"
End If
11. 实现功能：给出三角形的三边边长a ，b ，c （输入保证能构成三角形，无需判断正确性），输出三角形面积。三角形面积计算公式：))()((c q b q a q q s ---=，其中q=(a+b+c)/2。
Dim s As Single:Dim q As Single
Dim a As Single:Dim b,c As Single = Val(InputBox("请输入边长a 的值："))
b = Val(InputBox("请输入边长b 的值："))
c = Val(InputBox("请输入边长c 的值："))
q = (a + b + c) / 2 s = (q * (q - a) * (q - b) * (q - c)) Print
12. 实现功能：从键盘上输入一个三位数，然后将它反向输出。例如输入“123”，输出结果为“321”。 Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim bai As Integer, shi As Integer
Dim g As Integer a = Val( )
bai = a \ 100
shi = (a - bai * 100) \ 10
g = a Mod 10 = g * 100 + shi * 10 + bai = CStr(b)
End Sub
13. 实现功能：用递归法求斐波那契数列1，1，2，3，5，8，…第10项的值。
Public Function Fib(n As Integer) As Integer
If (n = 1) Or (n = 2) Then Fib =
Else
Fib = Fib(n - 1) + Fib(n - 2)
End Function
Private Sub Command1_Click()
Dim S As Integer S = Fib( )
Print "S=" & CStr(S)
End Sub
14. 如图，实现功能：在文本框Text1、Text2、Text3中输入3根小木棒的长度(本题中仅限于整数)，判断能否用它们搭成一个三角形，并把结果输出到文本框text4中。如上图。操作要求：完善cmdCalc_click 事件，如果能搭成三角形则在文本框Text4中输出"YES"，否则输出"NO"。
Dim a,b,c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text) If (a + b > c) An
d (a + c > b) And ( ) Then Text4.Text =
Else
Text4.Text = "NO"
15. 采用“穷举法”求出所有水仙花数的程序，说明：若一个三位数abc ，
满足：abc=a 3+b 3+c 3，则称abc 为水仙花数。如三位数153满足：
13+53+33=1+125+27=153，则153是水仙花数。
Dim i, a, b As Integer For i = 100 To
a = i \ 100
b = (i - a * 100) \ 10
c =
If a * a * a + b * b * b + c * c * c = i Then
Print CStr(i)
Next i
16. 实现功能：当单击“计算1+2+3+…+100”按钮后，文本框Text1显示1+2+3+…+100的值。
Dim a As Integer
Dim i As Integer a = For i = 1 To a =
Next i Text1.Text = CStr( )
17. 实现功能：单击窗体后，计算10019914131211s ++?++++=，在窗体上显示结果。
Dim s As Single '定义变量s 为单精度型
Dim i As Integer '定义循环变量 s = For i = 1 To s = s + Next i
Print "s="; CStr(s)
18. 实现功能：编程计算
100
1
99
1
4
1
3
1
2
1
1
s-
+
?
+
-
+
-
=
的值。
Dim s As Single
Dim i As Integer
s =
For i = 1 To Step 1
If i Mod 2 <> 0 Then
s = s + 1 / i
Else
s =
End If
Next i
Print "s="; CStr(s)
19.填空完成程序，使得当单击窗体后，Label1上显示100以内（含100）偶数之和。
Dim i As Integer '定义变量i
Dim s As Integer '定义变量s，用于存放100以内（含100）偶数的和
s =
For i = 2 To 100 Step
s =
Next i
Label1.Caption = CStr(s)
20. 实现功能：当在文本框Text1中输入圆的半径后，单击“计算”按钮，计算圆的周长，并在文本框Text2中显示出来。
Const pi = 3.14 '定义符号常量
Dim c As Single '定义周长c为单精度型
Dim r As Single '定义半径r为单精度型
r = Val( )
c = pi *
= CStr(c)
21. 实现功能：计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。
Dim s As Single ' s变量用于存放计算结果
Dim p As Single
Dim i As Integer '定义一个循环变量
'给s赋初值
s =
'给p赋初值
p =
For i = 1 To 8
p = p * i
s =
Next i
Print "s="; CStr(s)
22. 举重比赛中，60公斤级选手体重不能超过60公斤。实现功能：填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示“超重！不能参赛！”；当输入一个小于等于60的数时，标签Label1显示“合格，可以参赛！”。
Dim t As Single '定义变量t，值由文本框Text1读入
t = Val( )
If Then
Label1.Caption = "超重！不能参赛！"
Else
Label1.Caption = "合格，可以参赛！"
《VB程序设计》考试题型练习 答案
《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)
《VB程序设计》习题答案-林卓然编著
《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)
VB程序设计习题
练习一 一、选择题 1、下面列出的程序设计语言中（A ）是面向问题的语言。 A、机器语言 B、汇编语言 C、高级语言 D、0、1二进制语言 解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（D ）不属于VB 6.0的版本。 A、学习版 B、专业版 C、企业版 D、共享版 解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题 1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。 3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。 练习二 一、选择题 1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为蓝色的语句正确的是（ A ） A、Forma1.Backcolor=vbBlue B、Backcolor= vbBlue C、Forma1 =vbBlue D、Forma1′s Backcolor is vbBlue. 2、下面方法中，不能打开编码编辑器的是（D） A、单击“视图”菜单中的“代码窗口”命令。 B、双击窗体设计器的窗体或控件。 C、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。 D、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。 3 、保存VB应用程序时，下列方法中正确的是（Ａ） A、先保存窗体文件，再保存工程文件。 B、先保存工程文件，再保存窗体文件 C、直接保存窗体文件，系统会自动按顺序先保存窗体文件再保存工程文件。 D、直接保存窗体文件，系统会自动按顺序先保存工程文件再保存窗体文件。 二、填空题 1、VB工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。 2、选中工程资源管理器中的窗体对象，再单击按钮可打开窗体设计器。 3、在VB中，按下工具栏中的“启动”按钮或
vb程序设计试题(含答案)
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
VB程序设计编程考试~题及答案~
VB程序设计编程考试题及答案 1.输入3个数，输出最大的数 Private Sub command1_click() Dim max For i = 1 To 3 n = Val(InputBox("输入第" & i & "个数")) If n > max Then max = n End If Next Print "三个数中最大的数是" ; max End Sub 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 Private Sub Command1_Click() Dim a, b, c, n a = Text1 b = Text2 c = Text3 n = b * b - 4 * a * c If n >= 0 Then Label4 = "方程有根" Else Label4 = "方程无根" End If End Sub 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ Private Sub Form_Load() Text1 = "" End Sub Private Sub Command1_Click() Dim n n = Text1 If n > =60 Then Val (MsgBox("恭喜！成绩通过！")) Else Val (MsgBox("抱歉！成绩没有通过！")) End If End Sub 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整 除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim y%
[整理]VB程序设计复习题及答案.
中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型
VB程序设计 试题与答案-1
《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。
VB程序设计期末复习题
《V i s u a l B a s i c程序设计》期末复习题 一、单项选择题 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行B．从主程序开始执行 C．事件驱动D．按模块顺序执行 2．与传统的设计语言相比，Visual Basic最突出的特点是（） A．程序开发环境B．结构化程序设计 C．程序调试技术D．事件驱动的编程机制 3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 4. Visual 集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 5．后缀为.bas的文件表示（）。 A．工程文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件 6．工程文件的扩展名是（）。 A．.vbp B．.frm C．.bas D．.frx 7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A．时钟控件B．图像框C．框架D．通用对话框 8.以下叙述中错误的是（）。 A．一个工程中可以包含多个窗体文件 B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义 9．要在窗体Form1内显示“欢迎您！”，使用的语句是（） A．="欢迎您!" B．="欢迎您!" C．Form. print "欢迎您!" D． "欢迎您!" 10．决定标签内显示内容的属性是（） A．Name B．Text C．Caption D．Alignment 11．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption和Picture B．Style和Picture C．Style和Icon D．Value和Icon 12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．"China" B．"1,China" C．"China",0 D．"China",1 13．在VB中，下列各项合法的变量名是（）。 A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（）
VB程序设计试题及答案一
V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……
VB程序设计试卷
《VB程序设计》试卷试卷十五 一、判断题（共10分，每题1分，在答题卡上回答，A表示正确，B表示错误） 1. 窗体中只能有一个命令按钮设置Default属性为True，在任何情况下，按
VB程序设计复习题
《VB程序设计》复习题 一、选择题 1.改变控件在窗体中的上下位置，应修改控件的__A_____属性 A .Top B. Left C.Width D. Right 2.将通用对话框类型，设置为字体对话框，可修改该控件的____D_____属性 A. font B. filename C. filter D. action 3.标签控件最重要的属性是__A______ A. caption B. text C. name D. width 4.文本框中选定的内容，由下列____C_____属性反映。 A. Text B.Caption C. Seltext D. sellenght 5.选中复选框控件时，value属性的值，可以是_ D______ A.true B. false C. 0 D.1 6.设置列表框选中的文本用____D____属性 A. selected B. caption C. text D. list 7.简单组合框的style值为____B_____ A .0 B. 1 C. 2 D. 3 8.在文件列表框的实现文件的多重选择，应修改该控件的___D______属性 A. filename B. pattem C. path D. multiselect 9.语句listl.removeitem 1 将删除list.listindext等于___D______的项目。 A. 0 B. 2 C. 3 D. 1 10.计时器的interval属性为0时，表示____A_____。 A. 计时器失效 C. 相隔0 毫秒 B. 相隔0秒 D. 计时器的enable属性为false 11.以下的vb 常量中非法的是(B) a. “Good Luck” b. PI c. 1.5E-03 d. 16.3412 12.要想返回文本框中输入的内容则可利用其( B )属性进行编程 a.caption b. text https://www.360docs.net/doc/5b4059150.html, d. righttoleft 13.下列不能用commondialog 控件调用的对话框是( D) a. open/save b. help c. font d. search 14.vb 应用程序是分层管理的,其最高的层次为( A) a. 工程 b. 模块 c. 窗体 d. 过程
VB程序设计试卷一
2016/2017 学年第一学期 VB程序设计课程考试试题（A）卷 类别继续教育学院拟题人叶臣 适用专业计算机网络技术专科 （答案写在答题纸上，写在试题纸上无效） 一、选择题（每题2分，共30分） 1、VB窗体文件的扩展名是（）。 A．.frm B．.vbp C．.bas D．.res 2、在窗体上已经创建了一个文本框对象Text1，可以通过（）事件获得输入键值的ASCII码。 A．Change B．LostFocus C．KeyPress D．GotFocus 3、以下子过程和函数过程语句说明合法的是（）。 A．Sub f1( ByVal n%( ) ) B．Sub f1( n%( ) ) As Integer C．Function f1%(f1%) D．Function f1(ByVal n%) As Integer 4、不论何控件，共同具有的属性是（）。 A．Caption B．Name C．ForeColor D．Text 5、InputBox函数返回值的类型是（）。 A．整型B．字符型C．可变类型D．数值或字符型 6、赋值语句：a=123 & Mid("123456",3,2)执行后，a变量中的值是（）。 A．"12334" B．123234 C．123 D．157 7、设a=1,b=3,c=4,表达式：Not a<=c Or 4*c=b^2 And b< >a+c的值是（）。 A．-1 B． 1 C．False D．True 8、要使命令按钮不可操作，需要设置其（）属性。 A. Visible B. Enabled C. Caption D. BackColor 9、下面关于多重窗体的叙述中，正确的是（）。 A．作为启动对象的Main子过程只能放在窗体模块内 B. 如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体。 C. 如果没有启动窗体，则程序不能执行。 D. 以上都不对。 10、复选框的Value属性为1时，表示（）。 A 复选框未被选中 B 复选框显示为灰色 C 复选框操作有错误 D 复选框被选中 11、为了把焦点移到某个指定的控件，所使用的方法是（）。
VB程序设计复习题答案
VB程序设计复习题 1．Visual Basic是一种___D___的可视化程序设计语言。 A．面向机器 B．面向过程 C．面向问题 D．面向对象2．Visual Basic主窗口中不包括____B_____。 A．标题栏 B．状态栏 C．工具栏 D．菜单栏 3．程序运行中用鼠标双击当前窗体时，会触发窗体的_____C____ 事件。 A．Load B．Unload C．DblClick D．KeyPress 4．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作是 ____A______。 A．单击窗体上没有控件的地方 B．单击任一个控件 C．双击任一个控件 D．双击窗体上没有控件的地方 5、要设置窗体上各控件的属性，可在 ____C___ 中进行。 A．窗体布局窗口 B．工程资源管理器窗口 C．属性窗口 D．窗体窗口 6．设变量A的值为-2，则___A___函数的执行结果与其他三个不一样。 A．Val("A") B．Int(A) C．Fix(A) D．-Abs(A) 7．要在窗体Forml的标题栏上显示"统计程序"，可用___B___语句。 A．https://www.360docs.net/doc/5b4059150.html,="统计程序" B．Form1.Caption="统计程序" C. Forml.Caption=统计程序 D．https://www.360docs.net/doc/5b4059150.html,=统计程序 8．函数String(n, "str")的功能是 B 。 A．把数值型数据转换为字符串 B．返回由n个字符组成的字符串 C．从字符串中取出n个字符 D．从字符串中第n个字符的位置开始取子字符串 9、定义变量如下： Dim MyVar MyVar =”come see me “ 若在立即窗口中显示MyVar的值，下面正确的是（ A ）
VB程序练习题整理稿剖析
1．退出Visual Basic 的快捷键是______。A. Ctrl+Q B.Shift+Q C.Alt+Q 2．窗体设计器是用于设计______。 A．应用程序的界面 C．应用程序的代码D. Ctrl+Alt+Q B. 对象的属性D. 窗体的代码 3．启动Visual Basic 后,VB为用户建立的第一个窗体是______。 A．Form1 B.Form C．窗体1 D. 窗体 4．启动Visual Basic 后,VB为用户新建立的工程的名字是______。 A．窗体1 B. 工程1 C．窗体 D. 工程 5．工程资源管理器窗口包含的文件类型有______种。 A．1 B.2 C．3 D. 4 6．如果VB环境中缺少某个窗口，一般应从主菜单______的下拉菜单中找到相应的激活命令。 A．编辑C．调试B. 文件D. 视图 7．能够通过标准工具栏打开的窗口是______。 A．代码窗口 C．属性窗口 8．窗体文件的扩展名______。B. 设计器窗口D. 窗体布局窗口 A．.bas B. vbp C．.exe 9．工程文件的扩展名______。 A．.com D. frm B. vbp C．.exe D. bas 10．Visual Basic的编程机制是______。 A．面向过程C．事件驱动B. 面向对象D. 可视化 （三）练习题 使用VB建立一个应用软件的全过程有哪些步骤？。1．具体过程如下（1）在窗体上建立用户窗口（界面）对象。 （2）分别对对象设置属性。 （3）分别对对象事件的过程编程且完成代码输入。 （4）运行程序和调试程序。 （5）保存程序。 1． 2．保存VB文件，至少要保存几个文件？应先保存什么文件？2．至少保存2个文件，先保存窗体文件，后保存工程文件。
VB程序设计考试题库——考试专用
1、题目:（事件）单击窗体（响应)用输入框输入一自然数，判断就是＂正数”、＂负数或＂零”,并根据输入得数用消息框显示”正数"、”负数”或”零". 2、题目:（事件）单击窗体。（响应）求２０0～３0０之间既能被3整除又能被7整除得数.并求出所有数之与存入变量ＳＵＭ中 3、题目：单击窗体。（响应)已知S=1+1/４+１／9+1/1６+1/25+…+1／1０0，结果输出在窗体上。 4、题目：（事件）单击窗体.（响应）在窗体上打印数列２／1，３／2,5/3,8/5，1３/８…得前10项，并求其与，将与保存在变量s中。 5、题目：（事件）双击窗体。(响应)把一元钞票换成一分、二分与五分得硬币每种至少有一枚)，求出其所有得换法，把结果输出在窗体上。将所有得换法得数目存入变量N中 6、题目:单击窗体。）求１！+２！＋3!+4！＋5!并将结果输出到窗体上。结果存入变量S中 7、题目:（事件）单击窗体。（响应)生成一个一维数组（10个数组元素依此为: ' １5、23、７2、４3、9６、2３、３、65、88、１7 写程序求出这个数组中得最大值、最小值与平均值,并输出在窗体上。将最大值，最小值,平均值分别存入变量Max，Min，Aver中 8、题目:(事件）单击窗体。（响应)在窗体上输出100～２0０之间得所有合数。求出所有数之与存入SUＭ中所谓合数就是指自然数中能被1与本数整除以外，还能被其她数整除得数。 ９、题目：（事件）单击窗体.(响应）求10～20之间所有素数得乘积并输出在窗体上。将结果存入变量L中。 1０、题目：(事件）单击窗体。（响应)求1- 1/2＋1/3 －1/4 +……+ 1／99－1/10０得值。将结果存入变量J中。 １题 ｎ = InputＢoｘ（"输入一个自然数”） If n ＞0 Then rｅsulｔ = ”正数＂ ElseIf n < 0 Ｔhen ｒeｓult = ”负数" ElseIf n ＝ 0 Ｔhen result ＝"零＂ End If MsgＢox "输入得数据”& ｎ＆”为：”＆ rｅsuｌt 2题 Dｉｍ i As Inteｇer Fｏｒ i = 201 To 300 Ｉf ((i Mod 3） = 0) Aｎｄ((i Mod ７) = 0） Tｈen Ｐrinｔ (CStｒ(i)） sum = ｓum + i End Iｆ Ｎeｘt Ｐrint sum 3题 DiｍｉAｓ Inteｇeｒ ｓ = 0 For i = 1 To 1０ s ＝ s + 1 / (i ^ i) Next Print (s) ４题 Ｄim i，ｊ, ｋ， m As Integer s ＝ 0 :i = 2:j = １ For k = 1 To 10 s = s ＋ｉ / j ｍ＝ j Prｉnt (CSｔｒ(i)） & "／" ＆ＣＳtｒ(j) j = i ｉ = i + m Ｎexｔ 5题 Ｄｉｍ i, j，ｋAｓＩnｔegｅr For i = １ To １00 Fｏr j = 1 Ｔo 50 For k = 1 Tｏ 20 If （（i + 2 ＊j ＋ k * 5）＝ 100) Ｔｈｅn Print (CＳｔr(i)） Priｎｔ (CStr（j)） Pｒinｔ（CＳtｒ(k)） n ＝n + １
山东交通学院成人高等教育期末考试VB程序设计复习题
《 VB程序设计》复习题 7月无纸化考试复习专用（答案在试卷后） 一、单选题 1.文本框控件中将Text的内容全部显示为所定义的字符的属性项是( ). A.PasswordChar B.需要编程来实现 C.Password D.以上都不是 2.欲使标签的内容对其方式,必须设置属性( ). A.AutoSize B.Alignment C.left D.WordWrap 3.下列字符串常量中,最大的是( ). A."北京" B."上海" C."天津" D."广州" 4.要使标签能透出窗体的背景,必须设置( )属性. A.BackStyle B.BorderStyle C.Appearance D.BackColor 5.文本框中的内容,由下列( )属性反映. A.Text B.Caption C.Seltext D.sellenght 6．INT(100*RND(1))产生的随机整数的闭区间是( ). A.[0,99] B.[1,100] C.[0,100] D.[1,99] 7.下列方法中可用于列表框动态添加数据的是( ). A.add B.additem C.addlist D.removeitem 8.函数Len(Str(Val("123.4")))的值为( ). A.11 B.5 C.6 D.8 9.表达式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是( ). A. 0.48 B. 0.048 C. .5 D. .05 10.以下不具有Picture属性对象是( ). A.窗体 B.图片框 C.图像框 D.文本框 11.应用程序设计完成后,应将程序保存,保存的过程是( ). A.只保存窗体文件即可 B.只保存工程文件即可 C.先保存工程文件,之后保存窗体文件 D.先保存窗体文件(或标准模块文件),之后还要保存工程文件 第1页，共2页
VB程序设计考试题库考试专用
程序设计题 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver 中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + …… + 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) 4题 Dim i, j, k, m As Integer s = 0 :i = 2:j = 1 For k = 1 To 10 s = s + i / j m = j Print (CStr(i)) & "/" & CStr(j) j = i i = i + m Next 5题 Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next Next Next 6题 Dim i, j, k As Integer For i = 1 To 5 k = 1 For j = 1 To i
一VB程序设计基础练习题库
一、单选题（共15小题，每小题2分，共30分） 1.以下叙述中，错误的是（B ）。 A) 在Visual Basic中，对象所能响应的事件是由系统定义的 B) 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定 C) Visual Basic中允许不同对象使用相同名称的方法 D) Visual Basic中的对象具有自己的属性和方法 2.下列叙述中，错误的是（C ）。 A、VB是可视化程序设计语言 B、VB采用事件驱动编程机制 C、VB是面向过程(对象)的程序设计语言 D、VB应用程序可以以编译方式执行 3.下列（A ）是合法的变量名。 A、x_y （合法变量名以字母或下划线头） B、x-y C、2x D、and 4.选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（C ）。 A、T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 5.设a=”Visual Basic”，下面使b=”Basic”的语句是（B ） A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a， 8,5) 取字符串a第8个字符开始的5个 6.如果x小于y的平方，则在窗体上输出“OK”。完成该要求的单行条件语句是（C ）。 A、If x < y ^ 2 Then "OK" B、If x < y ^ 2 Then Show "OK" C、If x < y ^ 2 Then Print "OK" D、f x < y ^ 2 Then Put "OK" 7.要使循环体至少执行一次，应使用（D ）循环。 A、For …Next B、While …Wend C、Do …Loop[While/Until] D、Do[While/Until] …Loop（先做在判断， 所以会执行一次的） 8.下面程序段求两个数中的大数，不正确的语句是（D ）。 A、Max=Iif(x>y,x,y) B、if x>y Then Max=x Else Max=y C、Max=x D、if y>=x Then Max=y（Else） If y>=x Then Max=y Max=x 9.以下条件语句错误的是（ A ）。 A、If X Then Y = Y + 1 B、If X = 0 Then Y = 0 C、If X > 0 Then Y = 1: Print Y D、If X > Y Then Print Y End If 10.若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中 设置（D ）。 A、Text属性值为* B、Caption属性值为*