201204VB程序设计与VBA应用期中考卷答案
2012年vb计算机考试试题及答案
2012年vb计算机考试试题及答案第一部分：选择题（共40题，每题2分，总分80分）1. VB是以下哪种类型的编程语言？A. 解释性编程语言B. 面向对象编程语言C. 编译型编程语言D. 结构化编程语言2. 在VB中，以下哪个符号用于表示不等于？A. !=B. <>C. ==D. =3. 下列关于VB的说法中，不正确的是：A. VB可以用于开发Windows应用程序B. VB是Visual Basic的缩写C. VB可以与数据库进行交互D. VB只能运行在Windows操作系统上4. 在VB中，以下哪个选项用于声明整数变量？A. DimB. IntC. IntegerD. String5. 以下哪个是VB中的逻辑运算符？A. +B. /C. &&D. >6. VB中的控件是用来进行什么操作的？A. 数据存储B. 用户界面交互C. 网络通信D. 文件操作7. 在VB中，以下哪个控件用于接收用户输入的文本？A. LabelB. ButtonC. TextBoxD. ComboBox8. 以下哪个事件是在VB窗体加载时触发的？A. MouseClickB. KeyPressC. LoadD. FormOpen9. VB中用于执行特定任务的代码块被称为什么？A. 函数B. 过程C. 类D. 对象10. 在VB中，以下哪个函数可以将字符串转换为整数？A. CInt()B. CStr()C. CDbl()D. CBool()11. VB中的数组是用来存储什么类型的数据？A. 字符串B. 整数C. 浮点数D. 所有以上类型的数据12. 在VB中，以下哪个选项用于打开一个对话框来选择文件？A. OpenFileDialogB. MessageBoxC. InputBoxD. SaveFileDialog13. VB中的Do While循环是什么类型的循环结构？A. 前测试循环B. 后测试循环C. 无限循环D. 选择循环14. 在VB中，以下哪个选项用于释放对象所占用的资源？A. UsingB. FreeC. DisposeD. End15. VB中的Try...Catch语句用于处理什么类型的错误？A. 语法错误B. 逻辑错误C. 运行时错误D. 编译时错误...（继续撰写剩余试题及答案）第二部分：主观题（共3题，每题40分，总分120分）请根据以下问题进行简答：问题一：请解释VB中的常用数据类型及其区别。
2011—2012学年《VB语言程序设计》课程期中考试试卷1(1)1
长江大学工程技术学院《VB语言程序设计》课程期中考试试卷班级：班内序号：姓名：1.不论什么控件，都具有（）属性。
A、CaptionB、TextC、BackColorD、Name2.下列正确的VB变量名是（）。
A、ForB、SumC、B@D、4ABC3.VB中窗体的扩展名是（）。
A、.forB、.frmC、.vbpD、.bas4.下列（）属性用于设置或返回文本框控件(TextBox)中的文本。
A、CaptionB、TextC、(名称)D、Name5.下面子程序说明合法的是（）。
A、Sub f1(ByVal n%())B、Sub f1(n%) As IntegerC、Function f1%(f1%)D、Function f1(ByVal n%)6.下列描述中错误的是（）。
A、执行条件Do Until <条件> ~Loop 语句中，当循环<条件>为True时，结束循环体的执行。
B、执行Do While<条件> ~ Loop语句时，循环体可能一次也不执行。
C、执行Do ~ Loop Until <条件>语句时，循环体可能一次也不执行。
D、循环嵌套时一定不能发生交叉。
7.设a=3, b=5，则以下表达式值为真的是（）。
A、a>=b And b>10B、a>b Or b>0C、a<0 And b>0D、-3+5>a And b>08.Int(-2.14159)的值为（）。
A、-1B、-2C、-3D、错误：Int函数的参数不能为负数9.对于组合框和列表框，属性（）表示当前列表中项的个数。
A、ListB、ListIndexC、ListCountD、Item10.若模块中以关键字（）定义子过程，则在整个应用程序中都可以调用该过程。
A、privateB、staticC、dimD、public11.下列程序段运行后，显示的结果是（）。
vb期中考试题库及答案高中
vb期中考试题库及答案高中一、选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. RealC. DoubleD. All of the above答案：D2. VB中的哪个函数可以用来计算两个数的和？A. SumB. AddC. +D. Concatenate答案：C3. 在VB中，如何声明一个变量？A. Dim variableB. Declare variableC. Set variableD. Initialize variable答案：A4. 下列哪个循环结构用于重复执行代码块，直到满足特定条件？A. For...NextB. Do...LoopC. While...WendD. If...Then答案：B5. 在VB中，如何将文本框（TextBox）的内容赋值给一个变量？A. variable = TextBox.TextB. variable = TextBox.ValueC. variable = TextBox.ContentD. TextBox.Text = variable答案：A6. VB中哪个控件用于显示和编辑多行文本？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：B7. 在VB中，如何使用If语句进行条件判断？A. If condition ThenB. If condition ElseC. If condition Then ElseD. If condition End If答案：D8. VB中哪个函数可以用来将字符串转换为大写？A. UCaseB. LCaseC. StrConvD. Upper答案：A9. 在VB中，如何声明一个数组？A. Dim array() As IntegerB. Declare array As Integer()C. Set array = New Integer()D. array = New Integer()答案：A10. VB中哪个事件用于响应按钮点击？A. ClickB. PressC. DoubleClickD. MouseDown答案：A二、填空题（每题2分，共20分）1. 在VB中，使用________函数可以将字符串连接起来。
计算机vb期中考试题及答案
计算机vb期中考试题及答案计算机VB期中考试题及答案一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. DoubleC. StringD. All above答案：D2. 下列哪个是Visual Basic中的保留字？A. DimB. IfC. EndD. All above3. 在Visual Basic中，以下哪个函数用于计算两个数的和？A. Sum()B. Add()C. +D. Concatenate()答案：C4. Visual Basic中，以下哪个控件用于显示文本？A. LabelB. TextBoxC. ButtonD. ComboBox答案：A5. 在Visual Basic中，以下哪个属性用于设置控件的可见性？A. VisibleC. CaptionD. All above答案：A6. Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. DoubleClickC. MouseDownD. KeyPress答案：A7. 在Visual Basic中，以下哪个循环结构用于重复执行代码块直到满足特定条件？A. For...NextB. Do...LoopC. While...WendD. All above答案：B8. Visual Basic中，以下哪个函数用于将字符串转换为数字？A. Str()B. Val()C. CInt()D. All above答案：B9. 在Visual Basic中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. MultiLine答案：A10. Visual Basic中，以下哪个控件用于选择一个选项？A. CheckBoxB. RadioButtonC. OptionButtonD. ComboBox答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，声明变量的关键字是________。
vba考试题及答案
vba考试题及答案**VBA考试题及答案**一、单选题1. VBA中，以下哪个函数用于计算两个日期之间的天数差？A. DateDiffB. DateAddC. DatePartD. DateValue答案：A2. 在VBA中，以下哪个关键字用于声明变量？A. DimB. SetC. CallD. Function答案：A3. VBA中，以下哪个属性用于获取或设置一个对象的名称？A. NameB. CaptionC. TextD. Value答案：A4. 在VBA中，以下哪个函数用于将文本转换为大写？A. UCaseB. LCaseC. StrCompD. StrConv答案：A5. VBA中，以下哪个事件用于响应用户点击按钮？A. ClickB. DblClickC. MouseDownD. MouseUp答案：A二、多选题6. 在VBA中，以下哪些数据类型是数值型？A. IntegerB. StringC. DoubleD. Currency答案：ACD7. VBA中，以下哪些控件可以用于输入数据？A. LabelB. TextBoxC. ComboBoxD. CommandButton答案：BC8. 在VBA中，以下哪些关键字用于循环控制？A. ForB. DoC. WhileD. If答案：ABC9. VBA中，以下哪些函数用于字符串操作？A. LeftB. RightC. MidD. Trim答案：ABCD10. 在VBA中，以下哪些事件可以用于表单控件？A. ClickB. ChangeC. DblClickD. KeyDown答案：ABCD三、判断题11. VBA中的变量必须在使用前声明。
（对/错）答案：对12. VBA中，所有的错误处理都可以通过On Error语句实现。
（对/错）答案：对13. VBA中，数组的索引默认从1开始。
（对/错）答案：错14. VBA中，使用With语句可以提高代码的执行效率。
VB程序设计期中试题
VB程序设计期中试题一、单项选择题（每题1.5分，共45分）1．执行以下程序段后，变量c$的值为_______a$="Visual Basic Programing"b$="Quick"c$=b$ & UCase(Mid$(a$,7,6)) & Right$(a$,11)A) Visual BASIC Programing B) Quick Basic ProgramingC) QUICK Basic Programing D) Quick BASIC Programing2．以下叙述中错误的是_________A）双击鼠标可以触发DblClick事件B）窗体或控件的事件的名称可以由编程人员确定C）文本框获得焦点后将触发gotfocus事件D）控件的名称可以由编程人员设定3．设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是________A）True B）False C）1 D）出错信息4．设a=6，则执行x=iif(a>5,-1,0)后，x的值为______________A) 5 B) 6 C) 0 D) -15．在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程：Private Sub Command1_Click()a=text1.text+text2.textPrint aEnd SubPrivate Sub Form_Load()Text1.text=""Text2.text=""End Sub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321，然后单击命令按钮，则输出结果为________A) 444 B) 321123 C) 123321 D) 1322316．要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句A) Option Base 0 B) Option ExplicitC) Option Base 1 D) Option Compare7．\、and、Mod、^等4个运算符中，优先级最低的是_____________A) \ B) and C) Mod D) ^8．如果要改变窗体的标题，则需要设置的属性是_________A）Caption B）Name C）BackColor D）BorderStyle9．阅读下面程序段,并选择输出结果_____________M=0FOR J=1 TO 3FOR K=1 TO JFOR L=K TO 3M=M+1NEXT LNEXT KNEXT JPRINT MA)12 B)14 C)10 D)2710．下面程序运行后,输出的值是________.A$="4" : B$="5" :C$="6"FOR J=1 TO 2A$=B$ : B$=C$ : C$=A$NEXT JPRINT A$+B$+C$A)15 B)645 C)545 D)65611．下面程序运行后,输出的结果是________.FOR J=1 TO 4PRINT TAB(2*J); (J+5)*2NEXT JA)12 B)12 C)12141618 D)12 14 16 1814 1416 1618 1812．下面程序运行时输出的结果是________.FOR J=4TO 1 STEP-1PRINT TAB(8-J);FOR K=4 TO 1 STEP -1PRINT "*";NEXT KPRINTNEXT JA) **** B) **** C) * * * * D)* * * **** **** * * * * * * * *** **** * * * * * * * ** **** * * * * * * * * 13.下面程序运行时输出的结果是________.A=INT(RND)ON A+2 GOTO 30,40,50,6030 PRINT 10;40 PRINT 20;50 PRINT 30;60 PRINT 40;A)10 20 30 40 B)20 30 40 C)30 40 D)40 14．Dim sum(1 to 3,20) as integer声明了含有_______个元素的数组A. 20B. 3×21C. 3×20D. 4×2015．将相同类型的一组控件的_______属性设为相同，则产生控件数组。
《Visual+Basic程序设计》期中考试试卷与参考答案
《VB程序设计》期中考试试卷_____级_________专业______班学号_____姓名______________一、单选题（每小题1.5分，共30分）1. 为使控件在运行时不可见，应该设置该控件的_________属性False。
A．Enabled B．Visible C．Name D．AutoRedraw 2. 有程序代码如下：Text1.Text = "Visual Basic"，则：Text1，Text和"Visual Basic"分别代表__________。
A．对象，值，属性 B．对象，方法，属性C．对象，属性，值 D．属性，属性，值3. 以下不属于Visual Basic的工作模式是________模式。
A．编译 B．设计 C．运行 D．中断4. 要使Print方法在Form_Load事件中起作用，要对窗体的________属性进行设置。
A．BackColor B．ForeColor C．AutoRedraw D．Caption 5. 若要使命令按钮不可操作，要对_________属性设置。
A．Enabled B．Visible C．BackColor D．Captions 6. 文本框没有_______属性A．Enabled B．Visible C．BackColor D．Caption 7. 不论何控件，共同具有的是________属性。
A．Text B．Name C．ForeColor D．Captionss 8. 当运行程序时，系统自动执行启动窗体的_________事件过程。
A．Click B．Unload C．GotFocus D．Load9. 在代码编辑器的一行内写多条语句时，每个语句之间用_____符号分隔。
A．， B．： C．、 D．；10.下面_______是合法的变量名。
A．VB258 B．123abc C．integer D．8811. 表达式16 / 4 – 2 ^ 5 * 8 / 4 MOD 5 / 2的值为_________A．14 B．4 C．20 D．212. 数学关系表达式 3 ≦ x < 10 表示成正确的VB表达式为_______A．3 <= x < 10 B．3 <= x AND x < 10C．x >= 3 OR x < 10 D．3 <= x AND < 10 13. Rnd 函数不可能为下列______值。
VB中期测试考试卷(答案)
62. 设程序中有如下语句：运行程序，执行上述语句，输入5并单击输入对X = InputBox ("输入", "数据", 100) Print X 话框上的“取消”按钮，则窗体上输出（）。
A. 0B. 5C. 100D. 空白63. 在窗体上画一个命令按钮，然后编写如下事件过程，程序运行后，单击命令按钮，则在信息Private Sub Command1_Click() MsgBox Str(123 + 321) End Sub 框中显示的提示信息为（）A. 字符串“123 + 321”B. 字符串“444”C. 数值“444”D. 空白64. 下面4个语句中，错误的是（）A. N = InputBox("输入N：", , 5)B. InputBox("输入N：", , 5)C. MsgBox "请回答"D. K = MsgBox("请回答")65. 以下关于MsgBox函数的说法中，正确的是（）。
A. MsgBox函数有返回值，且返回值类型为数值型B. MsgBox函数没有返回值C. MsgBox函数有返回值，且返回值类型为字符型D. 通过MsgBox函数中的第一个参数，可以设置信息框中的图标以及按钮的个数与类型66. 以下关于If分支结构语句的说法中，正确的是（）。
A. 有End If一定有与之配对的IfB. 有If一定有与之配对的ElseIfC. 有If一定有与之配对的End IfD. 有If一定有与之配对的Else67. 设有分段函数：下述选项描述错误的是（）。
A. Select Case xCase Is<0 : Y=5Case Is <=5,Is>0 : Y=2*xCase else : Y= x * x + 1End selectC. Y = IIf (x < 0, 5, IIf(x <= 5, 2 * x, x * x + 1))B. If x < 0 Theny = 5Elseif x <= 5 theny = 2 * xElsey = x * x + 1End ifD. If x < 0 Then y = 5If x <= 5 and x>=0 then y = 2 * x If x > 5 then y = x * x + 168. 设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件Private Sub Command1_Click()x! = Val(Text1.Text)Select Case xCase Is < -10, Is >= 20 : Print "输入错误"Case Is < 0 : Print 20 - xCase Is < 10 : Print 20Case Is <= 20 : Print x + 10End SelectEnd Sub 过程。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
诚信应考 考出水平 考出风格
浙江大学城市学院
2011 — 2012 学年第二学期期中考试答卷
《 VB 程序设计基础与VBA 应用 》
开课单位： 计算分院 ；考试形式：闭卷；考试时间： 2012 年 4 月 15 日 所需时间： 120 分钟
一．单选题(本大题共 30 题，每题 1 分，共 30 分。
)
二．程序填空题(本大题共 2 题 8 空，每空 2 分，共 16 分。
)
(1) n = Len(str1)
(2) str2 = Mid(str1, i , 1) (3) str3 = str3 + str2 (4) Next i (5) a(4 , 5) (6) s=0
(7) a(i, 5) = s/4 (8) Print
三．程序阅读题(本大题共 6 题，每题4 分，共 24 分。
) 第1题:
第2题:
第3题:
第4题: 第5题: 第6题
:
四．程序设计题(本大题共 3 题，每题 10 分，共 30 分。
)
第1题：
Private Sub Form_Click()
Dim x As Single, y As Single, f As Single x = Val(InputBox("X=")) y = Val(InputBox("Y=")) If x < 0 And y < 0 Then f = 2 * x + 6 * y ElseIf x > 0 And y > 0 Then f = x - y Else f = 0 End If Print y End Sub
第2题：
Private Sub Form_Click()
Dim t As Single, item As Single, pi As Single, flag As Integer
t = 1: item = 1: pi = 0: flag = 1
Do While Abs(item) >= 0.000001
item = flag * 1 / t
pi = pi + item
flag = -flag
t = t + 2
Loop
Print pi * 4
End Sub
第3题：
Private Sub Form_Click()
Dim a(50) As Integer, i As Integer, j As Integer
Dim pos As Integer, t As Integer, c As Integer
For i = 1 To 50
a(i) = Int(Rnd * 71) + 30
Next i
For i = 1 To 49
pos = i
For j = i + 1 To 50
If a(pos) > a(j) Then pos = j
Next j
If pos <> i Then t = a(i): a(i) = a(pos): a(pos) = t
Next i
c = 0
For i = 1 To 50
If a(i) Mod 3 = 0 Then
Print a(i);
c = c + 1
If c Mod 5 = 0 Then Print
End If
Next i
Print
End Sub。