VB程序填空(Option Explicit)1
专升本vb程序设计试题及答案
专升本vb程序设计试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的方法？A. FunctionB. SubC. PropertyD. Class答案：B2. VB中的单精度浮点数类型是什么？A. IntegerB. SingleC. DoubleD. Long答案：B3. 如果想要在VB中实现多态，可以使用哪种机制？A. 继承B. 接口C. 重载D. 封装答案：B4. 在VB中，以下哪个控件可以用于显示图像？A. LabelB. PictureBoxC. TextBoxD. ComboBox答案：B5. VB中的“Option Explicit”语句的作用是什么？A. 声明变量类型B. 强制变量声明C. 定义常量D. 创建对象实例答案：B6. 在VB中，如何实现一个事件处理程序？A. 使用Sub过程B. 使用Function过程C. 使用Property过程D. 使用Handles关键字答案：D7. 如果要使一个变量在多个窗体之间共享，应该使用哪种变量作用域？A. PublicB. PrivateC. FriendD. Protected答案：A8. 在VB中，以下哪个不是标准的控件属性？A. NameB. TextC. VisibleD. Color答案：D9. VB中的“With”语句用于什么目的？A. 初始化对象B. 创建对象实例C. 链式调用同一对象的多个属性或方法D. 定义对象的生命周期答案：C10. 在VB中，以下哪个不是Visual Basic Power Packs控件？A. LineB. OvalC. ShapeD. DataGrid答案：D二、填空题（每空2分，共20分）11. VB中的“_____”关键字用于定义一个类。
答案：Class12. 当需要在VB中捕获并处理异常时，可以使用“_____”语句。
答案：Try...Catch13. 在VB中，一个窗体的标题可以通过“_____”属性来设置。
VB程序填空(Option Explicit)1
1.Option Explicit'题目：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。
判断密码是否正确，并显示相应提示；在加载窗体时设置密码框最大长度为8，密码显示字符为“*”Private Sub Command1_Click()x = Text1.TextIf x【？？】"12345678" Then（like 和=，不定）MsgBox ("欢迎你用机!")ElseMsgBox ("对不起，口令错")End IfText1.Text = ""Text1.SetFocusEnd Sub--------------------------------------------------------------------------------------------------------------------- Private Sub Form_Load()Text1.Text = ""Text1.【？？】=8(maxlength) Text1.【？？】="*" (passwordchar) End Sub2.'题目：以下程序的功能如(图1)。
Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")d = b * b - 4 * a * cp = -b / (2 * a)If d >= 0 ThenIf 【？？】Then (d>0)r = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p【？？】（end if）Print "x1="; x1, "x2="; x2【？？】（else）q = Sqr(-d) / (2 * a)Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i"End IfEnd Sub3.'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。
VB项目的Optionexplicit选项
VB项目的 Optionexplicit选项
今天发现相同的VB代码在二个的解决方案的项目中编译结果还不一样，一个正常编译通过，一个则编译报错，十分困惑报错信息如下图：
后来发现将报错的row变量定义好类型即可，如下： 最后努力找到问题原因为，VB项目通过“Option explicit”选项来决定 变量是否需要强制定义类型，如果未定义则编译不通过，如下图所示：
为了代码规范，建议以后我们所有的项目都将“Option explicit”选项定义为On。
山东交通学院计算机VB考试上机操作题11
设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c的值为【1】.
答案：1). False
━━━━━━━━━━━━━━━
二、判断共10题（共计10分）
━━━━━━━━━━━━━━━
第1题（1.0分）题号:227
单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件任务.
答案：D
第6题（1.0分）题号:298
激活主菜单的按键是().
A:F1或Ctrl键B:Ctrl键或Atl键
C:F10或Ctrl键D:F10或Atl键
答案：B
第7题（1.0分）题号:361
下列不能打开属性窗口的操作是().
A:执行"视图"菜单中的"属性窗口"命令B:按F4键
C:按Ctrl+T D:单击工具栏上的"属性窗口"按钮
D:格式输出函数Format()可以使数值、日期或字符串按用户指定的格式输出
答案：ABD
第4题（2.0分）题号:280
请把下面说法中正确的选出来（）。
A:在函数调用过程中数值型函数的默认返回值为0，可变型函数的默认返回值为空串
B:在调用Sub过程中使用Call语句时，参数必须在括号内
C:过程本身使用的参数列表称为“形参”，而主程序传递给过程的真正参数称为“实参”
C:矩形D:三角形
答案：D
第10题（1.0分）题号:860
组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由
()属性决定.
A:StyleB:BoderStyle
C:FillStyleD:DrawStyle
VB程序设计填空
VB程序设计填空35. a和b中有仅只有一个为1，相应的Visual Basic逻辑表达式为（）答案：a=1 xor b=1 36. Integer类型的变量占用（）字节空间答案：237. Print"x="&（2=4）的结果为（）答案：x=False38. sst="ABC12DE"，则Val（sst）=（）答案：039. string（3，"abc"）的结果为（）答案：aaa40. Val（"123.55ab456"）的值是多少（）答案：123.5541. VB6.0的基本表达式包括算数表达式，关系表达式和（）表达式答案：逻辑42. VB的工作模式可分为三种："设计"，运行，以及（）答案：中断43. VB6.0的连接运算符包括（）运算符和（）运算符两种答案：+ +44. VB6.0是运行于windows 9x/NT操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即可视化设计和（）答案：事件驱动编程45. VB表达式9^2MOD 45\2*3的值（）答案：446. VB的运算符包括算术运算符，（）运算符，关系运算符，逻辑运算符和特殊运算符。
答案：连接47. VB中，变量的声明可分为两种方法：隐式声明和（）答案：显示声明48. Visual Basic中的文本框中要使该框不允许多行输入，应设置（）属性为false 答案：Multiline49. Visual Basic6.0用于开发（）环境下的应用程序答案：WINDOWS50. 把条件1<=x<12写成VB关系表达式为（）答案：x>=1 and x<1251. 把整数0赋给一个逻辑型变量，则逻辑型变量的值为（）答案：False52. 把整型数1赋给一个逻辑型变量，则逻辑型变量的值为（）答案：True53. 变量min@表示（）类型的变量答案：货币54. 表达式32\7 MOD 3^2的值是（）答案：455. 表达式1 and 0的值（）答案：False56. 表达式[A] like[A]的值为（）答案：False57. 表达式（-3） And 8的值为（）答案：True58. 表达式（-3） MOD 8的值为（）答案：-359. 表达式81\7 MOD 2^2的值是（）答案：360. 表达式93\7 MOD 2^3的值是（）答案：561. 打开"工程窗口"的方法之一是按下（）组合键答案：CTRL+R62. 大于X的最小整数的VB表示形式为（）答案：Int（x）+163. 当程序运行时，要求窗体中的文本框呈现空白，则在设计时，把此文本框的（）属性设置成空白答案：Text64. 对象具有属性和（）答案：方法65. 对象是既包含（）又包含对数据进行操作的方法，并将其封装起来的一个逻辑实体答案：数据66.将焦点定位于命令按钮Command1之上的语句为（）答案：SetFocus67. 求X与Y之积除以Z的余数的VB表达式为（）答案：x*yModz68. 如果：I=11： J=3：I=Int（-8.6）+I\J+13 MOD 5，则I值是（）答案：-269. 如果：I=12： J=3：I=Int（-8.6）+I\J+13MOD 5，则I值是（）答案：-170. 如果要使用命令按钮表面显示文字"退出（X）"（在字符X之下加下划线），则其Caption 属性设置为（）答案：退出（&X）71. 如果要在单击钮时执行一段代码，则应将这段代码写在（）事件过程中答案：click1.若要在字符串asdgewl中取dge，则使用函数____实现()答案：Mid$(asdgewl,3,3)2.设a=2,b=3,c=4,d=5，则NOT a<c OR 4*c=() 答案：False3.设X$="abc123456z"则“a”+str$(val(right(x$,4)))的值是()答案：a34564设X为大于零的实数，则大于X的小偶数Visual Basic表达式是()答案：iif（int（x） mod 2=0，int（x）+2，int（x）+1）5设置空间背景颜色的属性名称是答案：backcolor6声明单精度常量g（重力加速度）代表9.8可写成()答案；const g=9.87声明单精度常量Pi代表3.14159的语句()答案：Const Pi=3.141598声明定长为10个字符变量Sstr的语句()答案：Sstr as String*109 说明变量类型有隐含类型说明和___两种方法()答案：强制类型10所有控件都具有的共同属性是()答案：name11文本框中所现实的内容是他的()答案：text12写出清楚标签Label1的显示信息的语句为() 答案：Label1=""13写出用随机函数产生一个200至300之间整数的VB表达式（）答案：200+Int（100*Rnd）14要使命令按钮cmdEnd可以以快捷键E访问，应设置属性（）答案：Caption15要使一个按钮设为默认按钮，要把此按钮的（）设置~~答案：Default16要使一个按钮无效，则可把他的Enabled属幸设为答案：false17一般情况下，控件有两个属性项的却省值是相同的，这两个属性项是name和（）答案：caption18一个工程可以包括多个类型的文件，其中扩展名为.frm的的文件表示（）答案：窗体19一个工程可以包括多个类型的文件，其中扩展名为.vbp的的文件表示（）答案：工程20一元两次方程ax2+bx+c=0有实根的条件为a 不等于0，并且b2-4ac>=0列出逻辑表达式（）答案：a<>0andb2-4*a*c>=021已知文本框内容为“ABCDE”若文本框Selstart=4，Sellength=2，则SelText为（）答案：DE22在VB6.0中变量名最长可达（）个字符答案：25523在VB6.0中，设Single型变量XYZ的值为123.45，若要将其转换成字符串，应使用的类型转换函数是（）答案：STR24在VB中，窗体由属性定义外观，由（）定义行为答案：方法25在VB中，若要改变一个窗体的标题，应在属性窗口中改变这个窗体的（）属性的值答案：Caption26在VB中要将字符窜"12345"转换成字值应使用的类型转换函数是（）答案：VAL27在VB中，若要求在模块中强制显示的指定变量的数据类型，应当在模块首部的申明部分使用（）语句答案：Option Explecit28在VB中，若要使一个文本框（Text）中的内容在超过文本框的宽度时能够自动换行显示应当将这个文本框的（）属性设置为true答案：MultiLine29在控件之中，（）不能从工具箱中被删除答案：内部空间30在控件之中，（）单独存在OCX文件中答案：ACTIVEX控件31在一条Dim语句中可以声明多个变量，如Dim,strVar,intVar,sngVar答案：Integer32征兵的条件：男性（sex）年龄（age）在18~20之间。
《VB程序设计基础》模拟试题
《VB程序设计》模拟试题●填空题1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、类模块文件的扩展名为______CLS_______ 。
Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。
3. Abs= ；Int= ____-10_______。
4. "程序"& "设计"运算结果为 ___程序设计____ 。
5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。
6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes 表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。
7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。
8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最常用。
9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。
在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。
10. 条件判断语句可以使用___If…then____________语句、____If…Then…Else______语句和 ______If…Then…ElseIf______语句。
Select case 语句11. 声明一个值为的常量Pi的语句为___Const pi = 。
VB程序填空
第1题 '功能：求 1!+2!+……+10!的值。
Private Sub Form_Click()'**********SPACE********** 【?】s = 1For I = 2 To 10t = t * I'**********SPACE********** 【?】'**********SPACE********** 【?】Print sEnd Sub答案：1). t = 1 2). s = s + t 3). Next I 或Next第1题功能：下面的程序用于求三个数中最大数Private Sub Command1_Click() Dim a, b, c, max, min As Integera = Val(InputBox("请输入第一个数： "))b = Val(InputBox(" 请输入第二个数： "))c = Val(InputBox("请输入第三个数： "))'**********SPACE**********【?】 = amin = a'**********SPACE**********If b > max Then 【?】If b < min Then min = b'**********SPACE**********If 【?】 Then max = c If c < min Then min = c Print "最大数为："; max Print "最小数为："; min End Sub 答案： 1). Max 2). max = b 3). c >max 或 max < c第1题（10.0分）题号:504'【程序填空】'功能：写出程序运行后，单击窗体，Form1上显示的内容' sum 函数的功能为累加求和' isum = 1' isum = 3' isum = 6' isum = 10' isum = 15'-------------------------------------------------------Private Sub Form_Click()Dim I As Integer, isum AsInteger'**********SPACE**********For I = 1 To 【?】isum = sum(I)'**********SPACE**********Form1.Print "isum＝" 【?】Next IEnd SubPrivate Function sum(n AsInteger)Static j As Integer'**********SPACE**********【?】 j + nsum = jEnd Function 答案： 1). 52). + isum 或 & isum 3). j=第1题（10.0分）题号:507Option Explicit【程序填空】'功能：本程序实现功能：将顺序文本文件“MYFILE.TXT”的' 内容一个字符一个字符地读入文本框txtTest中'-------------------------------------------------------Private Sub Form_Click()Dim InputData AsString * 1txtTest.Text = ""'**********SPACE**********Open App.Path &"\MYFILE.TXT" For 【?】 As #1'**********SPACE**********Do While 【?】 EOF(1)Input #1,InputData'**********SPACE**********txtTest.Text =txtTest.Text + 【?】LoopClose #1End Sub 答案：1). Input 2). Not 3).InputData第1题（10.0分）题号:57'【程序填空】'功能：求 1!+2!+……+10!的值。
VB程序设计综合测试卷(单考单招)
VB程序设计综合测试卷（二）班级_______学号_______姓名_______ 成绩________一、选择题（每题1分，共10分）1.VB中的每个对象都有一组特征，这组特征为（），我们通过修改它可以控制对象的外观的操作。
A）事件B）类C）方法D）属性2.VB的工具栏有4种，默认情况下只显示（）工具栏。
A）编辑B）标准C）窗体编辑器D）调试3.VB工程保存文件时，工程文件以( )的形式保存。
A）*.bas B) *.frm C. *.exe D) *.vbp4.变量定义语句dim index$与（）等价。
A）Dim index as double B) Dim index as stringC) Dim index as integer D) Dim index as long5.表达式3+5\6*2/3 Mod 2 的值是（）A） 3 B）4 C）5 D）66.下列可作为Visual Basic变量名的是（）A）abs B) abc C) 4abc D) a%b7.窗体form1的name属性是mainfrm，它的单击事件过程名是（）。
A）Form1_click B) Me_click C) mainfrm_click D)form_click8.在窗体上画一个名称为command1的命令按钮，然后编写如下事件过程：Private Sub Command1_click( )Move 500,500End sub程序运行后，单击命令按钮，执行的操作为（）A）命令按钮向左、上方各移动500 B）窗体向左、上方向各移动500C）命令按钮移动到距窗体左边界、上边界各500的位置D）窗体移动到距屏幕左边界、上边界各500的位置9.以下程序段的输出结果是（）。
Dim a% , b% , c%A=sqr(3) : b=sqr(2)C=a>bPrint cA) -1 B) 0 C) False D) True10.以下程序段运行结果是（）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.Option Explicit'题目：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。
判断密码是否正确，并显示相应提示；在加载窗体时设置密码框最大长度为8，密码显示字符为“*”Private Sub Command1_Click()x = Text1.TextIf x【？？】"12345678" Then（like 和=，不定）MsgBox ("欢迎你用机!")ElseMsgBox ("对不起，口令错")End IfText1.Text = ""Text1.SetFocusEnd Sub--------------------------------------------------------------------------------------------------------------------- Private Sub Form_Load()Text1.Text = ""Text1.【？？】=8(maxlength) Text1.【？？】="*" (passwordchar) End Sub2.'题目：以下程序的功能如(图1)。
Private Sub Form_Click()Dim a%, b%, c%, d!Dim x1, x2Dim p, q, ra = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")d = b * b - 4 * a * cp = -b / (2 * a)If d >= 0 ThenIf 【？？】Then (d>0)r = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p【？？】（end if）Print "x1="; x1, "x2="; x2【？？】（else）q = Sqr(-d) / (2 * a)Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i"End IfEnd Sub3.'下面过程max()用于求3个数中最大值，利用这个过程求5个数中最大值。
Private Sub Form_Click()Print "5个数34、124、68、73、352的最大值是："max1 = max(34, 124, 68)max1 = max(【？】) (max1, 73, 352)Print max1End SubPublic Function max(ByVal a%, ByVal b%, ByVal c%)If a > b Thenm = 【？】（a）Elsem = bEnd IfIf m 【？？】Then （> c）max = mElsemax = cEnd IfEnd Function4.'下面的程序段用于求矩阵相乘C=A×B，设A、B、C分别为m×p、p×n、m×n的矩阵。
Private Sub Form_Click()Const m = 4, p = 3, n = 2Dim a(1 To m, 1 To p) As IntegerDim b(1 To p, 1 To n) As IntegerDim c(1 To m, 1 To n) As IntegerDim i As Integer, j As Integer, k As Integer, sum As IntegerFor i = 1 To mFor k = 1 To pa(i, k) = iNext kNext iFor i = 1 To pFor k = 1 To nb(i, k) = iNext kNext iFor i = 1 To mFor j = 1 To n【？？】For k = 1 To psum = sum +【？？】Next kc(i, j) =【？？】Next j, iPrint "输出矩阵"For i = 1 To mFor k = 1 To nPrint c(i, k),Next kPrintNext iEnd Sub5. '题目：本程序功能为，单击窗体，Form1的输出结果为'A1=10 B1=20'A2=20 B2=10Public Sub Swap1 （x As Integer, ByVal y As Integer)Dim t As Integert = xx = yy = tEnd Sub------------------------------------------------------------------------------------------------------------------ Public Sub Swap2(x As Integer, y As Integer)Dim t As Integert = xx = yy = tEnd Sub------------------------------------------------------------------------------------------------------------------- Private Sub Form_Click()Dim a As Integer, b As Integera = 10b = 20【？？】a, bPrintForm1.Print "A1="; a, "B1="; ba = 10b = 20【？？】a, bForm1.Print "A2="; a, "B2="; bEnd Sub====================================================================== 6. '题目：下面是一个体操评分程序，10位评委，除去一个最高分和一个最低分，计算平均分(设满分为10 分) 。
Private Sub Command1_Click()Dim s As IntegerDim Max, Min As IntegerDim i, n, p As Integer【？？】s = 0Max = 10For i = 1 To 10n = Val(InputBox(" 请输入分数："))if n>max then max 【? ? 】=nIf n < Min Then Min = ns = s + nNext IS=S-Max【？？】-Minp = s / 8Print "最高分："; MaxPrint "最低分："; MinPrint "最后得分："; pEnd Sub7.'根据输入的学习成绩,分别显示优秀(90分以上), 良好(75分以上), '及格(60分以上),不及格几个等级。
'Private Sub Command1_Click()x = Val(Text1.Text)If x >= 90 ThenLabel1.Caption = "优秀"ElseIf x 【？？】Then ( >= 75) Label1.Caption = "良好"【？？】(ElseIf x >= 60 Then) Label1.Caption = "及格"【？？】(Else)Label1.Caption = "不及格"End IfEnd Sub====================================================================== （少了第八题）====================================================================== 9. '题目：窗体中有Text1-Text7共7个文本框，单击按钮Command1在Text7中显示前6个文本框中的数值的最大数Private Sub Command1_Click()Dim a, b, c, d, e, f, m As Integera = Val(Text1.Text):b = Val(Text2.Text):c = Val(Text3.Text)d = Val(Text4.Text):e = Val(Text5.Text):f = Val(Text6.Text)Call max(a, b, c, m)Call max(m, d, e, m)Call max(m, f, f, m)Text7.Text = 【？？】End SubSub max(x, y, z【？？】)If x > y Thenm = xElsem = yEnd IfIf m < 【？？】Thenm = zEnd IfEnd Sub====================================================================== 10.'代码功能：输入一个数,若大于0,则显示"+"；若小于0，则显示"-"；若等于"0",则显示"零"。
Private Sub Command1_Click()x = Val(Text1.Text)Select Case x【？？】Label1.Caption = "+"Case Is < 0【？？】【？？】Label1.Caption = "零"End SelectEnd Sub====================================================================== 11. '题目：窗体上建立了一个文本框Text1("输入口令")和一个命令按钮Command1("检查")。