VB程序设计编程考试题及答案
VB程序设计编程考试题及答案 1..输入3个数，输出最大的数 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！ 4.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。 5.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。 6.输入两个整数，求它们的最大公约数。 7.分别统计1-100中，满足3的倍数、7的倍数的数各有多少。 8.输入一串字符，统计其中字母A(不区分大小写)出现的次数。 9.我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。
10.小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？
11.百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。 12.编程求斐波那契数列前11项。（斐波那契数列：F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n>=2 ） 13.已知有序数组a()，编程插入x（x的值为14）。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。 14.找出被3、5、7除，余数均为1的最小的5个正整数。 15利用随机函数产生50~100范围内的20个随机数，显示其中的最大值、最小值和平均值。 16.编一函数，统计字符串中汉字的个数。
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. 输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
Private Sub Command1_Click() a = Val(InputBox("请输入成绩")) If a > 100 Then Print "超出范围" If a >= 90 And a <= 100 Then Print "优秀" If a >= 80 And a < 90 Then Print "良好" If a >= 70 And a < 80 Then Print "中等" If a >= 60 And a < 70 Then Print "及格" If a < 60 Then Print "不及格" End Sub
5. 随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。
Private Sub Command1_Click() Dim x%, x1%, x2%, x3% x = Text1 x1 = x Mod 10 x2 = (x Mod 100) \ 10 x3 = x \ 100 Label1 = x1 * 100 + x2 * 10 + x3 End Sub 6. 输入两个整数，求它们的最大公约数。 private Sub Command1_Click() n1 = InputBox("输入n") m1 = InputBox("输入m") If m1 > n1 Then m = m1: n = n1 Else m = n1: n = m1 End If r = m Mod n Do While r <> 0 m = n n = r r = m Mod n Loop Print "m n 的最大公约数是："; n End Sub
7. 分别统计1-100中，满足3的倍数、7的倍数的数各有多少。 Private Sub Command1_Click() Dim i, s3, s7 s3 = 0 s7 = 0 For i = 1 To 100 If i Mod 3 = 0 Then s3 = s3 + 1 End If Next i For i = 1 To 100 If i Mod 7 = 0 Then s7 = s7 + 1 End If Next i Print "3的倍数"; s3 Print "7的倍数"; s7 End Sub 8. 输入一串字符，统计其中字母A(不区分大小写)出现的次数。 Private Sub Command1_Click() Dim c As String, a As Integer b = InputBox("请输入字符") For i = 1 To Len(b) c = UCase(Mid(b, i, 1)) If c = "A" Then a = a + 1 End If Next i Print "a出现的次数："; a End Sub 9. 我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。
Private Sub Command1_Click() Dim a, i a = 13 i = 0 Do While a < 26 a = a * (1.008) i = i + 1 Loop Print i End Sub 10. 小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？
Private Sub Command1_Click() Dim a, i a = 1 For i = 1 To 6 a = 2 * (a + 1) Next i Print "小猴原有桃"; a;”只” End Sub 11. 百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方案。 Private Sub Command1_Click() Print "小鸡"; " "; "母鸡"; " "; "公鸡" Print "" For x = 1 To 100 For y = 1 To 100 For z = 1 To 100 If 0.5 * x + 2 * y + 3 * z = 100 Then Print ""; x; " "; y; " "; z End If Next z Next y Next x End Sub 12. 编程求斐波那契数列前11项。（斐波那契数列：F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n>=2 ） Private Sub Command1_Click() Dim x() As Integer Dim n%, i% n = 11 ReDim x(n - 1) x(0) = 1 x(1) = 1 For i = 2 To n - 1 x(i) = x(i - 1) + x(i - 2) Next i For i = 0 To n - 1 Print x(i), If (i + 1) Mod 5 = 0 Then Print Next
End Sub n = Val(InputBox("输入序列数"))
13. 已知有序数组a()，编程插入x（x的值为14）。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。
'窗体上放text1、text2、command1三个控件 Dim A() As Integer
Private Sub Command1_Click() Dim i, Ip, t, ins, n As Integer Text1.Text = "" For i = 0 To UBound(A) - 1 Text1.Text = Text1.Text & " " & A(i) Next i
Ip = Val(InputBox("请输入数字")) For i = 0 To UBound(A)
《VB程序设计》期终考查试卷(A卷)及答案
《VB 程序设计》期终考查试卷（A 卷） 适用专业： 题号 一 二 三 四 总分 总分人 分数 一、填空题（每空1分，共30分） 1、Visual Basic 是一种面向 的程序设计语言。
2、结构化的程序设计思想包括3种基本结构，分别是 、 、 。
3、在Visual Basic 6.0中，窗体和控件都是 ，都有自己的属性、方法和事件。
4、使用窗体的Print 方法输出数据时， 号表示紧凑格式输出， 号表示松散格式输出。
5、语句Print 5/4*6\5 mod 2的输出结果是 。
6、描述“X 是小于100的非负整数”的Visual Basic 表达式是 。
7、在自定义数据类型中的元素类型可以是字符串，但必须是 字符串。
8、在VB 中，参数的传递方式有 和 两种，使用它们时应分别在形参前加上关键字 和 。
9、变量的作用域分为 、 、 等3类。
10、用户自定义过程分为 、 ，两者最根本的区别在于 。
11、VB 将代码存储在3种不同的模块中： 、 、 。
扩展名分别为： 、 、 。
12、PictureBox 控件可通过设置其 属性为ture ，可使其自动调整大小；而image 控件通过设置其 属性为ture ，可使其加载的图片能自动调整大小以适应image 。
13、计时器事件之间的时间间隔通过___________属性设置。
班级 学号 姓名 - -------------------------------------装--------------------------------------------订---------------------------------------线------------------------------------- 阅卷人二、选择题（每小题2分，共30分）1、Visual Basic是一种面向对象的可视化程序设计语言，其中（）不是面向对象系统所包含的3个要素。
VB程序设计考试题库(9)
VB程序设计考试题库（9)一、单选题（每题1分，共50题）1。
以下不属于Visual basic的工作模式的是（）模式。
正确答案:AA。
编译 B。
设计 C.运行 D。
中断2。
VB集成开发环境有三种工作状态,不属于其中之一的是( )。
正确答案：BA.设计状态B。
写代码状态C.运行状态D。
中断状态3.下列属性中，文本框控件不具有的属性是（ )。
正确答案：BA.BackcolorB.Caption C。
Passwordchar D.Enabled4.以下能够触发文本框Change事件的操作是（ )。
正确答案：DA.文本框失去焦点B。
文本框获得焦点C。
设置文本框的焦点 D.改变文本框的内容5。
函数Int(Rnd＊6+1)的取值范围是( )。
正确答案:CA.从1到7共7个整数B。
从0到7共8个整数C。
从1到6共6个整数D。
从0到6共7个整数6。
可以同时删除字符串前导和尾部空白的函数是（）.正确答案：CA。
Ltrim B。
Rtrim C.Trim D。
Mid7。
有如下程序：a＄=”Flying”:b$=”IS”：c＄=”funny！"Print a$+” "+Lcase＄（b＄)+” "+Ucase＄(c$）End运行后,输出结果是（ )。
正确答案：BA.Flying Is funny!B.Flying is FUNNY！C。
Flying IS FUNNY! D。
FLYING IS FUNNY!8.表示学习成绩(score)在75分和90分之间的逻辑表达式是（）.正确答案：A A．score>=75 And score〈=90B．score>=75 0r score〈=90C．score<=75 And score>=90D．score<=75 0r score〉=909.表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（ ). 正确答案：BA。
vb程序设计期末考试题及答案
vb程序设计期末考试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All of the above答案：D2. 如果变量x的值是5，那么表达式x + 3的值是多少？A. 2B. 8C. 3D. 5答案：B3. 在VB中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. IfD. For答案：B4. 下列哪个选项是VB中的保留字？A. MyB. DimC. EndD. Print答案：C5. 在VB中，哪个函数用于计算一个数的平方根？A. SqrB. AbsC. RoundD. Int答案：A6. 在VB中，以下哪个选项是正确的事件处理程序的声明方式？A. Private Sub Button1_Click()B. Public Sub Button1_Click()C. Dim Sub Button1_Click()D. Sub Button1_Click() As Integer答案：A7. 在VB中，以下哪个控件用于显示文本，但用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B8. 在VB中，以下哪个选项是正确的条件语句？A. If...Then...ElseB. Case...SelectC. For...NextD. While...Do答案：A9. 在VB中，以下哪个选项是正确的循环结构？A. For Each...NextB. Do While...LoopC. Both A and BD. None of the above答案：C10. 在VB中，以下哪个函数用于将字符串转换为整数？A. CIntB. CStrC. CDblD. CLng答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量i，可以使用关键字________。
VB程序设计编程考试题及答案
VB程序设计编程考试题及答案V B 程序设计编程考试题及答案1. 输入3 个数，输出最大的数Private Sub command1_click()Dim maxFor i = 1 To 3 n = Val(InputBox("输入第 "&i &"个数"))If n >max Thenmax = nEnd IfNextPrint "三个数中最大的数是 " ; maxEnd Sub2. 有一元二次方程：aX2+bX+c=0，依次输入a, b, c,判断此方程是否有实根Private Sub Command1_Click()Dim a, b, c, na = Text1b = Text2c = Text3n = b * b - 4 * a * cIf n >= 0 ThenLabel4 = "方程有根 "ElseLabel4 = "方程无根 "End IfEnd Sub3. 输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜！成绩通过！”,若小于60,则弹出消息框,显示“抱歉！成绩没有通过！Private Sub Form_Load()Text1 = ""End SubPrivate Sub Command1_Click()Dim nn = Text1If n > =60 ThenVal (MsgBox("恭喜！成绩通过！ "))ElseVal (MsgBox("抱歉！成绩没有通过！ "))End IfEnd Sub4. 输入一年份,判断它是否为闰年,并显示有关信息。
(判断闰年的条件是：年份能被 4 整除但不能被100整除,或者能被400 整除)Private Sub Command1_Click()Dim y%y = InputBox("请输入年份 ")If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then Val (MsgBox("闰年！ "))ElseVal (MsgBox("平年！ "))End IfEnd Sub5. 输入学生的百分制成绩，转换输岀为五级制成绩，90?100分转换为优秀，80?89转换为良好，70?79转换为中等，60?69转换为及格，0?60转换为不及格。
VB程序设计编程考试题及答案
VB程序设计编程考试题及答案1.输入3个数，输出最大的数Private Sub command1_click（)Dim maxFor i = 1 To 3n = Val(InputBox（”输入第”＆i & "个数”)）If n > max Thenmax = nEnd IfNextPrint ”三个数中最大的数是" ; maxEnd Sub2.有一元二次方程：aX2+bX+c=0，依次输入a,b,c，判断此方程是否有实根Private Sub Command1_Click(）Dim a，b, c，na = Text1b = Text2c = Text3n = b ＊b - 4 ＊a ＊cIf n 〉= 0 ThenLabel4 = "方程有根”ElseLabel4 = ”方程无根"End IfEnd Sub3.输入一个百分制的成绩,若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”,若小于60，则弹出消息框，显示“抱歉！成绩没有通过！Private Sub Form_Load()Text1 = ""End SubPrivate Sub Command1_Click（）Dim nn = Text1If n 〉=60 ThenVal (MsgBox（"恭喜！成绩通过！"))ElseVal （MsgBox（"抱歉！成绩没有通过！")）End IfEnd Sub4.输入一年份，判断它是否为闰年，并显示有关信息。
(判断闰年的条件是：年份能被4整除但不能被100整除,或者能被400整除）Private Sub Command1_Click（)Dim y％y = InputBox（"请输入年份"）If y Mod 4 = 0 And y Mod 100 〈〉0 Or y Mod 400 = 0 ThenVal (MsgBox("闰年!”))ElseVal (MsgBox（”平年！”））End IfEnd Sub5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀,80～89转换为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。
VB程序设计编程考试题及答案
VB程序设计编程考试题及答案1。
输入3个数，输出最大的数2。
有一元二次方程:aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根3。
输入一个百分制的成绩，若大于等于60，则用消息框弹出,显示“恭喜！成绩通过！”，若小于60，则弹出消息框，显示“抱歉！成绩没有通过！4。
输入学生的百分制成绩,转换输出为五级制成绩，90～100分转换为优秀，80～89转换为良好,70~79转换为中等，60~69转换为及格,0～60转换为不及格。
5。
随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
例如，产生246，输出是642。
6。
输入两个整数，求它们的最大公约数。
7.分别统计1—100中,满足3的倍数、7的倍数的数各有多少。
8。
输入一串字符，统计其中字母A（不区分大小写)出现的次数。
9.我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。
10。
小猴有桃若干，第一天吃掉一半多一个;第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个，问小猴原有桃多少？11.百元买百鸡问题。
假定小鸡每只5角，公鸡每只2元,母鸡每只3元，编程求解购鸡方案。
12。
编程求斐波那契数列前11项。
(斐波那契数列:F(0）=f（1)=1, F（n)=F（n—1）+F(n —2) n〉=2 ）13。
已知有序数组a（)，编程插入x（x的值为14）。
数组a中的元素分别为{12，6,4，89，75,63，100,20,31}。
14。
找出被3、5、7除,余数均为1的最小的5个正整数。
15利用随机函数产生50～100范围内的20个随机数，显示其中的最大值、最小值和平均值. 16。
编一函数，统计字符串中汉字的个数。
1.输入3个数,输出最大的数Private Sub command1_click（）Dim maxFor i = 1 To 3n = Val（InputBox（"输入第" ＆i ＆"个数")）If n > max Thenmax = nEnd IfNextPrint "三个数中最大的数是”; maxEnd Sub2.有一元二次方程：aX2+bX+c=0，依次输入a，b,c，判断此方程是否有实根Private Sub Command1_Click(）Dim a，b, c，nb = Text2c = Text3n = b * b — 4 * a ＊cIf n >= 0 ThenLabel4 = ”方程有根”ElseLabel4 = ”方程无根”End IfEnd Sub3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过!”，若小于60,则弹出消息框,显示“抱歉！成绩没有通过！Private Sub Form_Load(）Text1 = ""End SubPrivate Sub Command1_Click（）Dim nn = Text1If n 〉60 ThenVal （MsgBox（"恭喜！成绩通过!"）)ElseVal （MsgBox（”抱歉!成绩没有通过！"））End IfEnd Sub4.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀,80～89转换为良好,70~79转换为中等，60～69转换为及格，0～60转换为不及格。
vb程序设计试题及答案
vb程序设计试题及答案为了帮助大家更好地理解和掌握VB程序设计，下面将为大家提供一套VB程序设计试题及答案。
通过完成这些试题，相信能够对VB程序设计有更深入的了解和应用。
请注意，以下试题中给出的是简要描写，实际编写程序时请适当完善。
试题一：计算两个数字的和与差要求：编写一个VB程序，输入两个数字，然后输出它们的和与差。
答案：```vbPrivate Sub btnCalc_Click()Dim num1, num2, sum, diff As Integernum1 = Val(txtNum1.Text)num2 = Val(txtNum2.Text)sum = num1 + num2diff = num1 - num2lblSum.Caption = "和：" & sumlblDiff.Caption = "差：" & diffEnd Sub```试题二：学生成绩统计要求：编写一个VB程序，输入3位学生的成绩，然后计算并输出平均成绩和最高成绩。
答案：```vbPrivate Sub btnCalc_Click()Dim score1, score2, score3, average, max As Integerscore1 = Val(txtScore1.Text)score2 = Val(txtScore2.Text)score3 = Val(txtScore3.Text)average = (score1 + score2 + score3) / 3max = WorksheetFunction.Max(score1, score2, score3)lblAverage.Caption = "平均成绩：" & averagelblMax.Caption = "最高成绩：" & maxEnd Sub```试题三：简单计算器要求：编写一个VB程序，实现一个简单的计算器功能，包括加减乘除四则运算。
vb程序设计试题(含答案)
第一套试题一、选择题〔每题 2 分，共 30 分〕1.在 VB环境中，工程文件的扩展名是 ( C )〔 A〕 .frm〔B〕.bas〔C〕.vbp〔D〕.frx2.下面 4 项中不属于面向对象系统三要素的是 ( A )〔 A〕变量〔B〕事件〔C〕属性〔D〕方法、/ 、Mod、 * 这 4 个算述运算符中，优先级别最低的是( C )〔 A〕 \〔B〕/〔C〕Mod〔D〕*4.要使 Print 方法在 Form_Load事件中起作用，要对窗体的 ( C ) 属性进行设置〔 A〕 BackColor〔B〕ForeColor〔 C〕 AutoRedraw〔D〕Caption5.不管何控件，共同具有的属性是 ( B )〔 A〕 Text〔B〕Name〔 C〕 ForeColor〔D〕Caption6.要使 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 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数，不正确的语句是 ( D )〔 A〕 If sex= “男〞 And age＜40 And InStr(duty,“教授〞)＞0 Then n=n+1B〕 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= “副教授〞 Thenn=n+110. 假设要去除列表框的所有内容，可用来实现的方法是( C )〔 A〕 RemoveItem〔B〕Cls〔 C〕 Clear〔D〕以上均不可以11.要使时钟控件 Timer1 的 Timer 事件不起作用，以下正确的语句是 ( B ) 〔 A〕 Timer1.Visible=False〔B〕Timer1.Enabled=False〔 A〕 Timer1.Interval=1000〔D〕Timer1.Index=0引用列表框 (List1) 最后一个数据项应使用的语 ( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount)(D)List1.List(ListCount-1)13.如下数组声明语句，正确的选项是 ( B )〔 A〕 Dim a[3,4]As Integer 〔 C〕 Dim a(n,n) As Integer 〔B〕Dim a(3,4)As Integer 〔D〕Dim a(3,4)As Integer14.下面子过程语句说明合法的是 (A 、D )〔 A〕 Sub f1(ByVal n%) 〔 C〕 Function f1%(f1%) 〔B〕Sub f1(n%)As Integer 〔D〕Function f1(ByVal n%)15.假定有如下的命令按钮 ( 名称为 Command1)事件过程：Private Sub Command1_Click()x=InputBox(" 输入： " ， " 输入整数 ")MsgBox"输入的数据是：〞，，〞输入数据："+xEnd Sub16. 程序运行后，单击命令按钮，如果从键盘上输入整数10，那么以下表达中错误的是(A)〔 A〕x 的值是数值 10〔B〕输入对话框的标题是“输入整数〞（C〕信息框的标题是“输入数据： 10〞〔 D〕信息框中显示的是“输入的数据是：〞二、填空题〔每题 2 分，共 20 分〕1、当进入 VB集成环境后，发现没有显示“工具箱〞窗口，应选择视图菜单的工具箱选项，使“工具箱〞窗口显示。
VB程序设计试题与答案解析
VB程序设计试题1.多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。
A.不包含任何控件的窗体B. 设计时的第一个窗体C. 包含控件最多的窗体D. 命名为Frm1的窗体2. 应用程序打包后，其包文件的后缀为（）。
A. .exeB. .cabC. .txtD. .ocx3.当一个工程中含有多个窗体时，其中的启动窗体是（）。
A. 启动VB时创建的第一个窗体B. 第一个添加的窗体C. 最后一个添加的窗体D. 在“工程属性”对话框中指定的窗体4.能够改变标签Label控件显示标题的属性是（）。
A.CapionB. NameC. ClickD. Text5.下面关于工程的概念中错误的是（）。
A.Visual Basic 的工程是相关应用程序文件的集合B. Visual Basic 的工程实际上为了管理构成应用程序的所有文件C. 一个大的Visual Basic应用程序才能构成一个工程D. 建立只有一个窗口的应用程序，会生成多个程序文件，也称为一个工程6.将一个VB程序保存在磁盘上，至少会产生的文件是（）。
A..doc、.txtB. .txt、.exeC. .vbp、.frmD. .bat、.frm B.7.一个VB应用程序可以包含几个vbp文件（）8.A. 1个 B. 2个 C. 可以没有 D. 不受限制9.8.当运行程序时，系统自动执行启动窗体的（）事件过程。
A.LoadB. ClickC. UnloadD. GotFocus9. 对于定时器（Timer）控件,设置其定时是否开启的属性是（）A. IndexB. TagC. EnabledD. Left10.启动VB后，就意味着要建立一个新（）。
A.窗体B. 程序C. 文件D. 工程11.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先应执行的操作是（）A.单击窗体上没有控件的地方B. 单击任一个控件C. 不执行任何操作D. 双击窗体的标题栏12.下面各种高级语言中，不是面向对象程序设计语言的是（）。
vb编程考试题及答案
vb编程考试题及答案 一、选择题（每题2分，共20分） 1. 在VB中，以下哪个是正确的整型常量表示？ A. 123.0 B. 123 C. 123D D. 123E
答案：B 2. VB中的哪个关键字用于声明变量？ A. Dim B. Var C. Let D. Declare
答案：A 3. 在VB中，以下哪个是正确的字符串连接操作？ A. "Hello" + "World" B. "Hello" & "World" C. "Hello" || "World" D. "Hello" && "World"
答案：B 4. VB中哪个函数用于计算数组中元素的总和？ A. Sum B. Total C. Aggregate D. ArraySum
答案：A 5. 在VB中，以下哪个是正确的子程序声明？ A. Sub MySub() B. Function MySub() C. Procedure MySub() D. Method MySub()
答案：A 6. VB中哪个控件用于显示文本，但不允许用户编辑？ A. TextBox B. Label C. ComboBox D. CheckBox
答案：B 7. 在VB中，以下哪个是正确的布尔逻辑运算符？ A. And B. Or C. Not D. All of the above
答案：D 8. VB中哪个属性用于设置窗体的标题？ A. Caption B. Title C. Header D. Label
答案：A 9. 在VB中，以下哪个是正确的循环结构？ A. For Each B. While C. Do While D. All of the above
答案：D 10. VB中哪个函数用于将字符串转换为大写？ A. UCase B. LCase C. StrConv D. ToUpper
答案：A 二、填空题（每题2分，共20分） 1. 在VB中，声明一个整型变量并赋值为10的语句是 Dim myVar As Integer; myVar = 10。