程序设计期末模拟试卷

1、VB程序设计期末模拟试卷 一、单项选择 （b ）1被对象所识别的动作与对象可执行的动作分别称为对象的_。     A方法、事件     B事件、方法     C事件、属性     D过程、属性（ c）2下列_是Single型变量。     ATime%     BName$     CSheight! 

2、60;    DCXYZ&（a ）3以下四个VB的变量名中，合法的是_。     AX23      B$Re      C Len      D3xy（ d）4在程序中使用 Dim str1,str2 As Long 语句对变量str1、str2进行声明后，下面正确的说法是_。     A. str1是整型，str2是长整型&#

3、160;     B. str1是长整型，str2变体型     C. str1、str2都是长整型      D. str1是变体型，str2是长整型（b ）5表达式(&O36>31) and (“A”>”B”) 的结果是 _。     ATrue      BFalse      C”&O3631

4、AB”      D&O3631（c ）6表达式“100” + 100 和表达式“100” & 100的值分别是_。     A200、200      B“100100”、“100100”      C200、“100100”      D“100100”、200（b ）7以下语句执行时，从键盘上输入Zhao，并按回车键。执行结果是_。&#

5、160;         Dim a As String          A=InputBox("Input", "", "Name")          Print a     AInput    

6、;  BZhao      CName      D空字符串（b）8语句Print 4 + 5 6 * 7 / 8 Mod 9的运行结果是_。     A4      B5      C6      D7（ d）9在窗体的通用段声明变量时，不能使用_ 关键字。   &#

7、160;  ADim      BPublic      CPrivate      DStatic（c ）10表达式Abs(-9) + Len("I am a student") 的值是_。     A9 I am a student     B9 I am a student     C23&#

8、160;     D出错（a ）11设a为整型变量，不能正确表达数学关系10 < a < 15的VB表达式是_。     A10 < a < 15      Ba = 11 Or a = 12 Or a = 13 Or a = 14     Ca > 10 And a < 15      DNot ( a<= 10) And Not (

9、 a >=15)（b ）12在窗体的“通用”部分用Private定义的变量，其作用域是_。     A局部变量      B窗体/模块级变量     C全局变量      D静态变量（ b）13假设 A = "Good Morning."，B = "Afternoon,Boys."，则下列_表达式的结果等于"Good Boys."。 

10、0;   ALeft(A, 10) + Right( B, 6)      BLeft(A, 5) + Right( B, 5)     CMid( A ,1, 5) + Mid(B, 1, 6)      DMid( A +B ,1, 11)（a ）14执行下面的程序段后，X的值为_。          X=3   

11、       For I = 1 To 10 Step 2               X = x +I 3          Next I     A3      B10    

12、  C-1      D4（ a）15在窗体上添加一个名称为Command1的命令按钮，然后编写如下程序：     Private Sub Command1_Click()          Dim A As Integer          Static B As Integer   &

13、#160;      Cls          B = 2          B = B + 3          A = 3 + A          Print A, B &#

14、160;   End Sub程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为_。     A3 5      B6 6     C9 5      D3 3（d ）16下列_事件不属于文本框的事件。     AChange      BKeyPress   &#

15、160; CLostFocus      DDropDown（b ）17在程序中可以通过复选框和单选按钮的_属性值来判断它们的当前状态。     ACaption      BValue     CChecked      DSelected（c）18决定窗体标题条显示内容的属性是_。     AText  

16、    BName      CCaption      DBackStyle（ c）19用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是_。     AList      BListIndex      CText      DListCount（b ）20在窗体

17、上有两个文本框控件，名称分别为Text1和Text2，以下程序实现的功能是希望在文本框Text1中输入字符时，输入的字符也将出现在Text2文本框中。下划线处应填_。     Private Sub Text1_()          Text2.Text = Text1.Text     End Sub     ASetFocus    

18、0; BChange      CGetFocus      DClick（c ）21要把名称为List1的列表框中当前选中的一项删除，应执行_语句。     AList1.Clear      BList1.Delete List1.ListIndex     CList1.RemoveItem List1.ListIndex   &#

19、160;  DList1.Clear List1.ListIndex（c ）22要使文本框能显示多行文字，则需设定它的_属性为True。     ACaption      BPasswordChar      CMultiLine      DValue（c ）23列表框的_属性代表着列表框中项目的总数目。     AList  

20、60;   BListIndex      CListCount      DSelected（d ）24用下面语句定义的数组元素个数是_。     Dim Arr1(-2 To 6) As Integer     A6      B7     C8     

21、 D9（d ）25当Form1_Click事件发生时，程序的输出结果是_。     Private Sub Form_Click()          Dim M As Integer, k As Integer, t As Integer          M = 6: k = 8        

22、  Select Case M              Case Is < 0                    M = M + 5          

23、60;   Case 1 To 10                    t = M: M = k: k = t              Case Is > 10       &#

24、160;            M = k Mod 3          End Select          Print M, k, t     End Sub     A6 6 8   

25、0;  B6 8 6     C8 6 8      D8 6 6（a ）26假定有以下程序段：     For I = 1 To 3          For j = 5 To 1 Step 1               Pr

26、int I * j     Next j,I则语句Print I * j 的执行次数是_。     A15      B16      C17      D18（b ）27当拖动某对象A经过对象B时，将会发生对象B的_事件。     ADragDrop      BDragOve

27、r     CDragDown     DDrag（a ）28参数传递有按值传递和按地址传递，_关键字表示按值传递。     AByVal     BByRef     CValue     DRefrence（ a）29当Form_Click事件发生时，写出在窗体上显示的第二行和第三行是_。     Private

28、a As Integer, c As Integer     Private Sub Form_Click()         Dim a As Integer, b As Integer         a = 10: b = 10: c = 10         Print a, b, c  &

29、#160;      Call test1(a, b)         Print a, b, c     End Sub     Private Sub test1(m As Integer, ByVal n As Integer)         Dim c As Integer  &

30、#160;      m = 5: n = 5: c = 5         Print m, n, c     End Sub     A5 5 5         5 10 10      B5 5 5     &#

31、160;  5 5 10     C5 5 10         5 10 10      D5 5 5        10 10 10（c ）30如果想要名为MenuItem1的菜单项在运行时变灰显示，则应执行_语句。     AMenuItem1.Enabled = True   &#

32、160; BMenuItem1.Checked = True     CMenuItem1.Enabled = False      D MenuItem1.Visible = False二、填空题1设置对象属性的方法有两种，其一是在设计阶段，在_属性窗口_中直接修改相应属性的值；其二是在应用程序运行时，通过_赋值语句_来动态设置。2书写程序时，要在一行内写多个语句，语句间用_，_间隔；语句前有一个 ' (单引号)的语句是_注释_语句。3写出数学式的VB表达式_。4当用户增加、删除或修改文本框（T

33、extBox）的内容时，都会触发文本框的_事件。5InputBox函数返回值的类型为_string_。6可使用列表框的_additem_方法向列表框中增加一个项目。7要使文本框Text1中显示的字符为宋体，使用的语句是_fontname=宋体_。8组合框有三种不同的风格：下拉式组合框、_简单组合框_和下拉式列表框，可通过它的_style_属性进行设置。9计时器事件之间的时间间隔通过_interval_属性设置。10某菜单项显示出来的标题为“文件（F）”，那么在菜单编辑器中输入的标题应为_。11在VB中，有三种文件访问的类型：顺序访问、_随机访问_和二进制访问。12当采用手工拖放模式时，需要使用

34、_方法来实现控件的拖放操作。13在Visual Basic中，通用过程分为两类，Function和_sub_。14Visual Basic的数组下标的下界默认为_0_，可通过_opertionbase1_语句使数组下标从1开始。15表达式Abs(-32) + Int(-23.02)的值为_8_。16下列程序执行时，从键盘上依次输入123和456，则程序的输出结果是123456      Private Sub Form_Click()          A

35、=InputBox("请输入第一个整数")          B= InputBox("请输入第二个整数")          Print a + b      End Sub 三、按要求填空 1.下列程序执行时，要求输入一个密码，如果密码不正确则显示出非法用户的对话框。请填空：    

36、Const PassWord="12345678"     Dim inpass As String     Inpass=_("请输入你的密码"，"输入密码")     If inpass=PassWord Then           Exit Sub     Else &#

37、160;        msgbox "对不起！你是非法用户。"     Unload Me     End If2.以下程序的输出结果是_13_。     X=12.7     X=Int(x +0.5)     Print X3. 下面程序的功能是求100999之间的所有素数，所谓素数是指只能被

38、1和它本身整除的数。     Private Sub Form_Click()          Dim i As Integer          Dim k As Integer          For i = 100 To 999    &#

39、160;         For k = 2 To i - 1                  If _i Mod k = 0_ Then                 

40、60;    _ Exit For_                  End If              Next k            &

41、#160; If _k >= i_Then                  Print i              End If         Next i     E

42、nd Sub4.下列程序的功能是：单击窗体时将随机生成12个三位正整数，分别赋给3*4的数组，找出数组中最大元素，并指出该元素所在的行和列。请填空。     Option Base 1     Private Sub Form_Click()           Dim a(3, 4) As Integer, i As Integer, j As Integer    

43、0;      Dim max As Integer, max_i As Integer, max_j As Integer           Randomize           For i = 1 To 3           &#

44、160;    For j = 1 To 4                   a(i, j) = Int(999 - 100) * Rnd) + 100                Next j   &#

45、160;       Next i           max = _ a(1, 1)_: max_i = 1: max_j = 1           For i = 1 To 3             &

46、#160;  For j = 1 To 4                      If _ a(i, j) > max_ Then                    

47、       max = a(i, j)                           max_i = i              

48、             max_j = j                      End If              &

49、#160; Next j           Next i           Print max, max_i, max_j     End Sub5. 编写一个对列表框进行项目添加、修改和删除操作的应用程序，如图1所示。列表框（名为lstBooks）中的选项在Form_load事件中加载。“添加”按钮（cmdAdd）的功能是将文本框（txtItem）中的

50、内容添加到列表框中，“删除”按钮（cmdDelete）的功能是删除列表框中选定的项目。如果要修改列表框中的选项，可先选定选项，然后单击“修改”(cmdModify) 按钮，所选的项目显示在文本框（txtItem）中，当在文本框中修改完之后，单击“确定修改”按钮（cmdModifty_OK）将更新列表框。程序运行之初，“确定修改”按钮是处于无效状态（灰色）。程序代码如下，请填空。图1     Private Sub cmdAdd_Click()         lstBooks

51、._ txtItem         txtItem.Text = ""     End Sub     Private Sub cmdDelete_Click()         lstBooks.RemoveItem _     End Sub     P

52、rivate Sub cmdModify_Click()         txtItem.Text = lstBooks.Text         txtItem.SetFocus         cmdAdd.Enabled = False         cmdDelete.

53、Enabled = False         cmdModify.Enabled = False         cmdModify_OK.Enabled = _     End Sub     Private Sub cmdModify_OK_Click()        

54、lstBooks.List(_) = txtItem         cmdModify_OK.Enabled = False         cmdAdd.Enabled = True         cmdDelete.Enabled = True         cmdMo

55、dify.Enabled = True         txtItem.Text = ""     End Sub     Private Sub Form_Load()         lstBooks.AddItem "计算机文化基础"      

56、0;  lstBooks.AddItem "VB6程序设计教程"         lstBooks.AddItem "操作系统"     End Sub6.窗体中有命令按钮Command1，当程序运行时，只要鼠标移到命令按钮上，该按钮就会随机移动到新位置，用户很难用鼠标单击到它。请补充完善以下程序：    Private Sub Command1_MouseMove()  &#

57、160;      X = Abs(Rnd(1) * Form1.Width - Command1.Width)         Y = Abs(Rnd(1) * Form1.Height - Command1.Height * 2)        _ Command1.Move X, Y_     End Sub7. 求Fibonacci数列中的前20个数，并存放在一个数组中。在窗体上按每行5个数的形式输出。Fibonacci数列的前两个数为1，1，以后每个数都是其前两个数之和。请完善下列程序，计算结果如图2所示。图2     Private Sub Command1_Click()        &