VB期末考试试题(A、B卷)[1]
Visual Basic程序设计期末复习试题(A)含答案
（1）编写一个子过程，计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
VB课程试卷（A）卷第1页共3页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
3.执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
6.返回系统当前日期和时间的函数是(D)。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是(B)。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（D）属性设置成False。
Print x , y
14.下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r
vb期末考试题库及答案
vb期末考试题库及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. Both A and BD. None of the above答案：C2. VB中，用于声明变量的关键字是？A. DimB. DeclareC. VarD. Let答案：A3. 在VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. +D. Concatenate答案：C4. 如果要声明一个整型变量并初始化为5，正确的语句是？A. Integer x = 5B. Dim x As Integer = 5C. Dim x = 5D. x = 5答案：B5. VB中，哪个控件用于显示文本，并且用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B6. 在VB中，以下哪个选项是正确的循环结构？A. For EachB. WhileC. Both A and BD. None of the above答案：C7. VB中，以下哪个语句用于结束当前程序的执行？A. EndB. ExitC. StopD. All of the above答案：D8. 在VB中，以下哪个选项是正确的条件判断语句？A. If...Then...ElseB. Switch...CaseC. Both A and BD. None of the above答案：C9. VB中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TodayD. Time答案：C10. 在VB中，以下哪个属性用于设置窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个字符型变量可以使用关键字________。
答案：Dim2. VB中，数组的声明格式为________。
VB期末考试考卷及答案
VB期末考试考卷及答案一、选择题（每题1分，共5分）1. 在VB中，下列哪个函数用于返回字符串的长度？A. Len()B. Length()C. Size()D. Count()A. DimB. IntegerC. IntD. Var3. 在VB中，下列哪个语句用于退出当前循环？A. Exit ForB. BreakC. Exit DoD. ContinueA. OpenB. LoadC. CreateD. Read5. 在VB中，下列哪个事件在窗体加载时发生？A. LoadB. InitializeC. FormLoadD. FormOpen二、判断题（每题1分，共5分）1. VB中的变量必须先声明后使用。
（）2. 在VB中，Sub过程可以返回值。
（）3. VB中的数组下标从1开始。
（）4. 在VB中，可以使用Select Case语句进行多条件判断。
（）5. VB中的字符串可以用单引号(')表示。
（）三、填空题（每题1分，共5分）1. 在VB中，用于声明常量的关键字是______。
2. VB中的逻辑运算符包括______、______和______。
3. 在VB中，要实现两个变量的值交换，可以使用______变量作为中间变量。
4. 在VB中，______方法用于设置文本框的字体。
5. VB中的______事件在用户单击按钮时发生。
四、简答题（每题2分，共10分）1. 简述VB中事件的执行过程。
2. 请列举三种VB中的数据类型。
3. 简述如何使用Select Case语句进行多条件判断。
4. 请说明如何使用VB中的循环结构实现1到100的累加。
5. 简述如何使用VB中的文件操作函数读取文件内容。
五、应用题（每题2分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
2. 编写一个VB程序，实现用户输入一个字符串，程序将其逆序输出。
3. 编写一个VB程序，使用循环结构输出九九乘法表。
大学_vb期末考试试题
VB期末考试试题A卷一、填空题1、VB程序设计的主要特点是和（2）。
2、在VB中,最主要的两种对象是 (3）和（4）。
3、工程是构成应用程序文件的（5) 。
4、方法是VB提供的一种（6) ，用来完成一定的操作。
5、浮点类型数据包括单精度型和___(7)__数据。
6、事件是窗体或控件对象识别的___（8）____.7、可用窗体的___（9）_ 方法在窗体中显示文字.8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。
9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。
10、双击工具箱中的控件图标，可在窗体的（13) 出现一个尺寸为缺省值的控件。
11、在MsgBox函数中,如果缺省title参数，则使用（14）作为消息框的标题。
12、设x＝34。
58，语句Print Format（x,“000。
0”）的输出结果是（15） .13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。
14、设置窗体的（19）属性，可在窗体上显示图片。
15、程序运行工程中,清除MP图片框中的图片应使用语句（20）。
二、选择题1、菜单控件只包括一个事件，即 (1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。
A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条控件(如图所示）的Max属性所设置的是（2) .A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句 Select ＊ Form student 中的＊表示 (3）。
A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是 (4） .A、EnabledB、CaptionC、DefaultD、Font5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5) 。
vb期末测试题及答案
vb期末测试题及答案一、单选题（每题2分，共20分）1. VB中，以下哪个是合法的变量名？A. 2variableB. Variable2C. Variable-2D. Variable 2答案：B2. 在VB中，以下哪个是正确的字符串连接运算符？A. +B. &&C. &D. ||答案：C3. VB中，以下哪个函数用于计算字符串的长度？A. LenB. LengthC. SizeD. Count答案：A4. 在VB中，以下哪个循环结构用于重复执行代码块，直到满足某个条件？A. For...NextB. Do...LoopC. While...WendD. If...Then答案：B5. VB中，以下哪个关键字用于声明常量？A. DimB. ConstC. StaticD. Public答案：B6. 在VB中，以下哪个是正确的数据类型用于存储日期？A. DateB. DateTimeC. StringD. Integer答案：B7. VB中，以下哪个是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Procedure MySub()D. Method MySub()答案：A8. 在VB中，以下哪个是正确的数组声明？A. Dim arr(10)B. Dim arr() As IntegerC. Dim arr(10) As IntegerD. Dim arr As Integer(10)答案：C9. VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. When...Then...ElseC. If...Then...End IfD. If...Then...Else...End答案：C10. 在VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Load()B. Public Sub Form_Load()C. Private Function Form_Load()D. Public Function Form_Load()答案：A二、填空题（每题2分，共20分）1. VB中，用于声明变量的关键字是________。
VB期末试题 (含答案)(精品文档)_共4页
6、变量命名规则组成，长度
不超过
个字符。
三.程序阅读题（每题 2 分，共 10 分）
1. 以下 VB 程序, 程序运行结果：____15________.
s=0
For i=1 to 5
s=s+i
next i
Print s 2.执行下面的程序段后，变量 S 的值为_______9_________
D．Image 控件和 PictureBox 控件都能在属性窗口装入图形文件，也都能在运行期间装
入图形文件
4.为使计时器控件每隔 5 秒钟产生一个计时器事件(Timer 事件)，则应将其 Interval 属性值
设置为( D )
A．5 B．500 C．10 D．5000
5.能显示窗体的方法是（ B ）。
一、单选题（每题 1.5 分，共 30 分）
1.在 VB 中，假定有以下程序段, 则执行结束后 k 的值是：（ A ）
For i =1 To 3
k = i+2
Next i
A． 5
B．4
C． 3
D．6
2. 以下控件中可以作为容器控件的是（ B ）
A．Image 图像框控件
B．PictureBox 图片框控件
Else Label1.Caption=“命令按钮不可以使用!“
End If End Sub A．判断命令按钮是否可见，以便在标签上显示不同的信息 B．判断命令按钮是否可用，以便在标签上显示不同的信息 C．判断命令按钮是否设置了默认按钮，以便在标签上显示不同的信息 D．If 语句中的条件不合法，事件过程错误，不能执行。 16. 下列（ C ）是日期型常量。
A. Visible B. enabled C. borderstyle
vb期末考试试题和答案
vb期末考试试题和答案**VB期末考试试题和答案**一、单选题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 下列哪个选项是Visual Basic的事件驱动编程模型？A. 用户操作B. 程序流程C. 函数调用D. 循环执行答案：A3. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A4. 如果要声明一个变量用于存储字符串，应该使用以下哪个数据类型？A. IntegerB. StringC. DoubleD. Boolean答案：B5. 在Visual Basic中，哪个函数用于将字符串转换为小写？A. UCaseB. LCaseC. StrCompD. Trim答案：B6. Visual Basic中，以下哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B7. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Return答案：A8. Visual Basic中，以下哪个控件用于创建下拉选择列表？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B9. 在Visual Basic中，以下哪个关键字用于声明一个过程？A. SubB. FunctionC. PropertyD. Event答案：A10. Visual Basic中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TimeD. Timer答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。
vb考试期末试题及答案
vb考试期末试题及答案[正文]第一部分：选择题1. VB的全称是什么？A. Visual BasisB. Visual BasicC. Viewer BasicD. Virtual Basic答案：B2. VB是哪个公司开发的？A. MicrosoftB. AppleC. GoogleD. IBM答案：A3. VB是一种什么类型的语言？A. 编译型语言B. 解释型语言C. 面向对象语言D. 脚本语言答案：A4. 下面哪个不是VB的数据类型？A. IntegerB. StringC. BooleanD. Float答案：D5. VB中，用于显示消息框的函数是什么？A. MsgBoxB. AlertC. PrintD. Display答案：A6. VB中，用于定义变量的关键字是什么？A. VarB. DimD. Define答案：B7. VB中，用于循环执行一段代码的结构是什么？A. For LoopB. While LoopC. Do While LoopD. If-Else答案：C8. VB中的事件是指什么？A. 用户的操作或系统的消息B. 变量的赋值C. 函数的调用D. 数据的排序答案：A9. VB中，用于创建函数的关键字是什么？A. FunctionB. SubD. Define答案：A10. VB中，用于调试代码的工具是什么？A. DebuggerB. CompilerC. InterpreterD. Editor答案：A第二部分：编程题（请在空白处编写代码）1. 编写一个VB程序，实现输入两个数字并将它们相加的功能。
Dim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = InputBox("请输入第一个数字:")num2 = InputBox("请输入第二个数字:")sum = num1 + num2MsgBox "两个数字的和是:" & sum2. 编写一个VB程序，实现计算一个数组中所有元素之和的功能。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB期末考试试题（A卷）一、选择题1.要改变控件的宽度，应修改该控件的（ B ）属性。
A、TOPB、widthC、LeftD、Height2.将命令按钮Command1设置为不可见，应修改该命令按钮的（A）属性。
A、VisibleB、ValueC、CaptionD、Enabled3.单机滚动条两端的任何一个滚动箭头，将触发该滚动条的（ C ）事件。
A、Scroll B 、KeyDown C、change D、Dragver4.（ D ）对象具有clear方法。
A、图片框B、窗体C、复选框D、列表框5.中心定义图片框控件的坐标系统，可采用该图片框的（ A ）A、scaleB、Scale XC、scale YD、setFocus6.将通过对话框CommdDialog1的类型设置成另存为对话框，可调用该控件的（ B）方法。
A、ShowopenB、ShowsaveC、ShowColorD、ShowFont7.形状控件所显示的图形不可能是（ D ）A、圆B、椭圆C、圆角正方形D、等边三角形8.由Fro K=10 TO oslept 3：next K循环语句控件的循环次数是（ B ）A、12B、0C、-11D、-109.下列数据类型中，占用内存最大值是（ D ）A、BoolwanB、ByteC、LntegerD、Single10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（ C ）属性决定了该图片的颜色。
A、BackColroB、ForelklorC、FillcolorD、Dlawstyle一、选择题1.要在垂直位置上移动控件，应利用控件的（C）属性。
A、LeftB、WidthC、TopD、Height2.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置（ D）属性为False。
A、TxetB、EnabledC、VisibleD、Multline3.用键盘的光标键选中某一菜单项，并按回车触发菜单的（ C ）的事件。
A、KeyPressB、KeyDownC、ClickD、Keyllp4.一下（ D ）对象不具有Clear方法。
A、列表框B、组合框C、剪贴框D、图片框5.软件列表中设定“文件列表”显示文件类型应改该控件的（ D ）属性。
A、PathB、FileNameC、NameD、Patterw 6．组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style属性值应为（ B ）A、0B、1C、2D、37.下列可调整图片框的大小以适合图片的属性是（ B ）A、StretchB、autosizeC、pictureD、oledropmode8.要想清除文本框中的内容则可利用（ A ）进行。
A、CaptionB、TextC、ClearD、Cls9.下列表达式中，其值为0的是（ C ）A、7/9B、7mod 15C、7\9D、15 mod 910.求以10 为底X的常用对数的表达式为（ A ）A、LoG（X）/LoG（10）B、LN（X）C、LoG（X）/LoG(E)D、LoG（X）三、编程题1随机产生n个两位正整数（n由对话框输入，切n>0)。
求出其中的偶数之和，并在标签框Labol1上显示。
程序写在命令按钮Command1的click事件中。
Private Sub Command1_Click()Dim n As IntegerDim i As Integer, sum As Longn = Val(InputBox("Please input a integer", "Input N value"))For i = 1 To nrnddat = (10 + Int(90 * Rnd))If rnddat Mod 2 = 0 Thensum = sum + rnddatEnd IfNext iLabel1.Caption = sumEnd Sub2由输入对话框中输入100个数值数据，放入数组a，将其中的整数放入数组b，然后运用选择分类将数组b 中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。
注：程序写在窗体form的click事件上。
Private Sub Form_Click()Dim a(1 To 100)Dim b() as integerDim i As Integer, j As Integer, k As Integer, pos As Integer,temp as integerFor i = 1 To 100a(i) = Val(InputBox("Please input data"))If a(i) = Int(a(i)) Thenj = j + 1ReDim Preserve b(j)b(j) = a(i)End IfNext iFor k = 1 To j - 1pos = kFor m = k To jIf b(m) < b(pos) Then pos = mNext mIf k <> pos Thentemp = b(k)b(k) = b(pos)b(pos) = tempEnd IfNext kFor k = 1 To jIf k Mod 5 = 0 Then Print b(k) Else Print b(k); Next kEnd Sub四、程序阅读题（每小题6分，共18分）1．程序1：Dim Y As IntegerPrivate Stub Command_Click()Dim X As IntegerX=1Y=1Call AA(Y+1)Z=BB(X)Print X, Y, ZEnd SubPrivate Sub AA(ByVal Z As Integer)Y = Z + XZ = X + YEnd SubPrivate Function BB (ByRef Y As Integer)Y = Y + 1BB=X + YEnd Function 结果：（ 2 2 2 ）2．程序2：private sub Form_click()N = 3Dim A(3，3) As IntegerFor I = I To NFor J = I To NA(I, J) = (J – l) * N + INext JNext IFor I = 2 To NFor J = 1 To I – 1TEMP = A(I, J)A(I, J) =A(J, I)A(J, I) = TEMPNext JNext IFor X = 1 To NPrint X, A(X, N +X - I), A(X, X)Next XEnd Sub 结果：（ 1 0 42 7 83 11 12 )3．程序3：Private Sub Form_click()Dim f1 As Integer,f2 As Integer,f3 As IntegerOpen "c:\a1.dat"For Output As #1f1=2:f2=3Print #1,"NO."; 3,f1Print #1,"NO."; 4,f2For I=5 To 7f3=f1+f2Print #1,"NO.";I,f3f1=f2f2=f3Next IClose #1End Sub写出文件a1.dat的最终结果。
（NO.3 2NO.4 3NO.5 5NO.6 8NO.7 13）五、程序填空题（每小题9分，共18分）1.从计算机输入三个数,找出中间数Private Sub FindMidNum( )X=INPUTBOX(“PLEASE INPUT THE FIRST NUMBER”)Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER)Z=INPUTBOX(“PLESSE INPUT THE THIRD NUMBER) IF（X<Y）THENA=XX=YY=AENDIFIF （Y>=Z）THENPRINT YELSEIF （X>=Z） THENPRINT ZELSEPRINT XENDIFEnd Sub2. 打印以下杨辉三角形 11 11 2 1 1 3 3 11 4 6 4 11 5 10 10 5 1Dim Q() As IntegerN = InputBox("PLEASE INPUT N")ReDim Q(N, N)For I = 1 To NFor J = 1 To NQ(I, J) = （0）Next JNext IFor K = 0 To （N – 1）Q(K + 1, 1) = 1Print 1;For I = 1 To KQ(K + 1, I + 1) = （ Q(K, I + 1)） + Q(K, I)Print （Q(K + 1, I + 1)）Next IPrintNext KVB期末考试试题（B卷）二、填空三、程序阅读题，阅读下列程序书写结构。
程序1Private Static Sub Command1_Click()Dim x As Integer, s As Integerx = Val(InputBox("请输入一个正整数＝"))If x < 5 Thens = s * xElses = s + xEnd IfText1.Text = "s=" + Str(s)End Sub程序运行时连续三次单击Command1，且设输入的数是5，2和4时，分别写出文本框text1.text的值。
结果：（s=5 s=10 s=40 ）b) 程序2Private Sub Form_Click()Form1.Clsw = 3For k = 2 To 6 Step 2Form1.Print "w="; w, "k="; kw = w + 1Next kForm1.Print "w="; w, "k="; kEnd Sub写出程序运行时单击窗体后，Form１上输出结果。
结果为：（ w=3 k=2W=4 k=4W=5 k=6W=6 k=8 ）c) 程序3Rem 在窗体的通用声明区声明两个模块级变量a和y Dim a As Integer, y As IntegerPrivate Sub Form_Load()Open "c:\a1.dat" For Output As #1Close #1End SubPrivate Sub Command1_Click()Open "c:\a1.dat" For Append As #1Call aa(5)y = y + aPrint #1, "y="; y, "a="; a: Close #1End SubSub aa(i As Integer)x = 1Do Until x > ia = a + xx = x + 3LoopEnd Sub写出程序运行时连续三次单击Command1后，a1.dat 文件的最终结果为：（y=5 a=5y=15 a=10y=30 a=15 ）五、程序填空题（每小题9分，共18分）a) 程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图１所示。