VB程序设计试题及答案分享

1、文档供参考，可复制、编制，期待您的好评与关注！ VB程序设计期末模拟试题及答案VB期末复习题及答案 综合复习题一、填空题1创建一个VB应用程序三个主要的步骤是_创建应用程序界面_、_设置属性_和_编写代码_。2当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的_属性_窗口中，把此文本框的_text_属性设置成空白。3Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用_Label_控件；若允许用户输入文本，则应使用_TextBox_控件。4窗体的常用方法有_Load方法_、_show方法_、 Hide方法_和_Unlo

2、ad方法_。5要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是_Txtshow.Text="GOOD WORK"_。6若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。Private Sub Cmdopen_ Click()_Frm1.show_End Sub7Visual Basic 6种类型的表达式是_数算表达式_、_字符串表达式_、_关系表达式_、_布尔表达式_、_日期表达式_、_对象表达式_。Visual Basic根据表达式的_运算符_来确定表达式的类型。8表达式93 7

3、 Mod 2 2 的值是_1_。9已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c<a+b的值是_True_。表达式c>a And Not b<c的值是_False_。10日期表达式 #2/24/02# - #2/12/02# 的值为_12_。11数学表达式sin2x+ 写成等价的Visual Basic表达式为_Sin(x) 2 + Sqr(x 2 - y 2) / (2 * x)_。12设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句

4、为_Dim A(1 To 5，-2 To 6) As String_。13事件就是在对象上所发生的事情，Visual Basic中的事件如_单击_、_双击_、_装载_等。一个对象响应的事件可以有_多_个，用户不能建立新的事件。事件过程是指_响应某个事件后所执行的程序代码_。假设某一事件过程如下：Private Sub cmd1_Click()   Form1.Caption="VB示例"End Sub则响应该过程的对象名是_cmd1_，事件名是_click_。14对象的方法用于_完成某种特定的功能_。当方法不需要任何参数并且也没有返回值时，调用对象的方法

5、的格式为_对象名.方法名_，例如，对窗体Form1使用Show方法，应写成_Form1.show。15PictureBox控件可通过设置其_autosize_属性为True使之可自动调整大小；而Image控件可通过设置其_stretch_属性为True，使其加载的图片能自动调整大小以适应Image。16在Visual Basic程序中实现复制文件“c:”到d:盘根目录下的语句为_FileCopy "c:"，"d:"_。二、单项选择题1下列控件中没有Caption属性的是（   B   ）A、标签 

6、;      B、文本框         C、框架        D、命令按纽2除框架外，能对单选按纽分组的控件是（   C ）。A、窗体        B、标签     C、图片框      

7、60; D、图像3下列符号不能作为VB中变量名的是（  C  ）。      A 、 ABCDEFG     B、 P00000      C、 89YWDDF     D、xyz4 下列不属于Visual Basic数据文件的是（  D  ）。A、顺序文件     B、随机文件   &#

8、160;  C、二进制文件       D、数据库文件5若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（  D  ）A、Text属性值为*         B、Caption属性值为*C、Password属性值为空    D、PasswordChar属性值为*6表达式2*32+2*8/4+32的值为（   B  ）

9、。     A、64       B、31         C、49        D、427表达式mid("abcdefg",3,2)的值是（   B   ）A、abc   B、cd      &#

10、160; C、bcd       D、abcde8数学表达式Sin25°写成VB表达式是（ D   ）。A、Sin25       B、Sin（25） C、Sin（25°）      D、Sin（25*3.14/180）9Sub过程与 Function过程最根本的区别是（  D  ）。A、Sub过程可以使用Call语句或直接使用过程名调用，而Fun

11、ction过程不可以。B、Function过程可以有参数，Sub过程不可以。C、两种过程参数的传递方式不同。D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。10选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（  C  ）A、T>=1.7 And W<=62.5             B、T<=1.7 Or W>=62.5C、T>1.7 And W<6

12、2.5               D、T>=1.7 Or W<62.511.下列对象不能响应 Click事件的是（ D   ）    A、列表框       B、图片框           C、窗体  &#

13、160;       D、计时器12在Visual Basic中，按文件的访问方式不同，可以将文件分为（ A    ）A、顺序文件、随机文件和二进制文件         B、文本文件和数据文件C、数据文件和可执行文件                 

14、  D、ASC文件和二进制文件13将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（  C  ）方法。A、ShowOpen      B、ShowSave        C、ShowColor        D、ShowFont三、指出下列句中的错误，修改或者说明原因。1sum和int.sum都可以作为VB的变量名。int.sum 不正

15、确。变量名中不能包括小数点。2变量名的长度最长可达1024个字符。变量名的长度最长可达255个字符。3下列程序运行结果：3，3Option ExplicitPrivate Sub Command1_Click()Dim a，b As Integera = 3.6b = 3.6Text1.Text = aText2.Text = bEnd Sub 3.6 ， 4,因为a 不是整型变量。 4程序可以改变定长字符串的内容和长度。 不正确。程序不可以改变字符的长度，这是VB规定。5Variant是一种特殊的数据类型，可以包含任何种类型的数据。不完全正确。Variant是一种特殊的数据类型，除了定长字符

16、串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。6下列程序运行结果为True    Private Sub Command1_Click()a = 1b = 2c = 3Text1.Text = c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2End Sub False 。逻辑表达式计算结果。7#12/31/1999# - #12/20/1999#的运算结果是#12/11/1999# 不正确。两个日期型数据相减，其结果是一个数值型数据。8可以在窗体的通用部分声明静态

17、变量。不正确。静态变量为局部变量，只能在过程中声明。9 使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串""，定长字符串用空格填充，Variant变量被初始化为 Empty，布尔型的变量被初始化为False。10事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。11将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。12当图像控件（Image）的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。 不正确。该属性设为Ture时，Image控件不能自动

18、调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。1程序运行后，单击窗体，输出结果为：11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 5 6 5 4 3 2 11 2 3 4 5 6 7 6 5 4 3 2 11 2 3 4 5 6 7 8 7 6 5 4 3 2 11 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1四、读程序题，写出程序运行结果。1Private Sub Form_Click()    For I = 1 To 9   &#

19、160;    For j = 1 To 30 - 3 * I            Print " "        Next j        For k = 1 To I           P

20、rint k;        Next k        For k = I - 1 To 1 Step -1            Print k;        Next k        Print

21、60;   Next IEnd Sub2Option ExplicitPrivate Sub Command1_Click()     Static S As Integer     Dim i As Integer     S = 1     For i = 1 To 5        S = S * i   

22、60; Next i     Print SEnd Sub 程序运行后，单击按钮Command1，输出结果为：120。 3 *     *     *     *     *3    For X = 5 To 1 Step -1      For Y = 1 To 6 - X   

23、0;    Print Tab(Y + 5); "*"      Next Y      PrintNext Xaabb          -30           Falseaabb-30 False30+60    

24、;      9030+60 904   Private Sub Form_Activate()Print "aa" & "bb",-5 * 6,Not 2 <= 3Print "aa" & "bb" -5 * 6; Not 2 <= 3PrintPrint "30+60",Print 30 + 60？"30+60" 30 + 60End Sub5X=1Do While X<

25、;=10If X Mod 7 =0 ThenY = X + 6ElseZ = XEnd IfX = X + 2LoopPrint X,Y,Z 11            13            9五、编程题1设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令

26、按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成。程序运行后，用户单击清除按钮，则清除文本框中显示的内容。单击计算按钮，如果成绩填写不完全，则给出提示信息，否则计算三科平均成绩。单击退出按钮则退出。Private Sub Command1_Click()    Text1.Text = ""    Text2.Text = ""    Text3.Text = ""   

27、 Text4.Text = ""End SubPrivate Sub Command2_Click()    a = Trim(Text1.Text)    b = Trim(Text2.Text)    c = Trim(Text3.Text)    If a = "" Or b = "" Or c = "" Then      

28、60; MsgBox "成绩填写不完全！", vbCritical    Else        Text4.Text = (Val(a) + Val(b) + Val(c) / 3    End IfEnd SubPrivate Sub Command3_Click()    Unload MeEnd Sub2 设计程序。要求：从文本框Text1中接收输入的数据，当单击确定按钮（command1）时，如果该数据满足

29、条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。Private Sub Command1_Click()    x = Val(Text1.Text)    If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then        Print x    Else        Text1.SetFocus        Text1.SelStart = 0        Text1.SelLength = Len(Text1.Text)    End IfEnd Sub3 设计一个欢迎程序。