程序设计复习提纲

《程序设计复习提纲》由会员分享，可在线阅读，更多相关《程序设计复习提纲（73页珍藏版）》请在金锄头文库上搜索。

1、1VBVB 程序设计复习提纲程序设计复习提纲说明：说明：本复习提纲是信科系教师根据等级二级考试大纲和数据库与程序设计基础教学大纲而拟定的。建议学生按提纲提供的知识要点，回顾这些内容是否掌握，再阅读教材相关部分内容，然后把练习册后的题全部都独立完成，要注重知识的理解与应用。当然因为教学课时所限，提纲很多要点并不列入考试范围（加粗部分表示重点内容！加粗部分表示重点内容！），学生可根据自己的学习情况和学习习惯，选择适用自己的学习方法，为备考计算机二级打下坚实的基础(每章标有日期的题是二级历年真题)。最后感谢杨扬、傅伟新、司琳婷、石慧、李媛、郭兰君同学做的大量工作。对象、属性、方法、事件、事件过程工程

2、的组成（工程文件、窗体文件、模块文件、类模块文件）工程 VB 程序的运行机制VBVB 的的基本概基本概念念VB 集成开发环境（三种运行模式、各种窗口的特点）关键字类型符占字节数前 缀大小范围字节字节Byte无1B0255逻辑类型逻辑类型Boolean无2FTrue 或 False（-1 或0）整型整型Integer%2i-32,76832,767长整型长整型Long Next j Print Next i End Sub 程序运行后，单击命令按钮，窗体上显示的是 A）1 2 3 B)2 3 4 C) 1 4 7 D)1 2 3252 4 6 3 4 5 2 5 8 4 5 6 3 6 9 4

3、5 6 3 6 9 7 8 961. (2006-9) 在窗体上画一个命令按钮，名称为 Command1，然后编写下列事 件过程：Option Base 0 Private Sub Command1_Click( ) Dim A(4) As Integer, B(4) As Integer For k=0 To 2 A(k+1)=InputBox(“请输入一个整数“) B(3-k)=A(k+1) Next k Print B(k) End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入 2、4、6，输出结果为 A) 0 B) 2 C) 3 D) 462. (2006-9) 设有下列通

4、用过程：Public Function Fun(xStr As String) As String Dim tStr As String, strL As Integer tStr=“ “ strL=Len(xStr) i=1 Do While i B）While 26循环体 循环体 Loop Wend C）Do D）Do Until 循环体 循环体 LoopUntil Loop65. (2007-4) 为了计算 1+3+5+99 的值，某人编程下列程序：k=1 s=0 While k9 Print t End Sub 此程序计算并输出一个表达式的值，该表达式是 A) 9！ B) 10！ C)

5、 1！+ 2！+ 9！ D) 1！+2！+10！70. （2008-4）在 Visual Basic 中，表达式 3 *25 Mod 3 的值是 A）1 B）0 C）3 D）出现错误提示71. (2008-4) 设工程文件包含两个窗体文件 Form1.frm、 Form2.frm 及一个标准 模块文件 Module1.bas。两个窗体上分别只有一个名称为 Command1 的命 令按钮。Form1 的代码如下： Public x As Integer Private Sub Form_Load() x = 1 y = 5 28End Sub Private Sub Command1_Click

6、() Form2.Show End Sub Form2 的代码如下： Private Sub Command1_Click() Print Form1.x, y End Sub Module1 的代码如下： Public y As Integer 运行以上程序，单击 Form1 的命令按钮 Command1，则显示 Form2；再单击 Form2 上的命令按钮 Command1，则窗体上显示的是 A)1 5 B) 0 5 C) 0 0 D) 程序有错72. (2008-4) 现有如下程序：Private Sub Command1_Click() s = 0 For i = 1 To 5 s =

7、 s + f(5 + i) Next Print s End Sub Public Function f(x As Integer) If x = 10 Then t = x + 1 Else t = x + 2 End If f = t End Function 运行程序，则窗体上显示的是 A）38 B）49 C）61 D）7073. (2008-9) 执行下列语句 strInput=InputBox (“请输入字符串“，“字符串对话框 “，“字符串“) 将显示输入对话框。此时如果直接单击“确定”按钮，则变 量 strInput 的内容是 A）“请输入字符串“ B）“字符串对话框“ C）“字

8、符串“ D）空字 符串74. (2008-9) 窗体上有 Command1、Command2 两个命令按钮。现编写以下程 序：Option Base 0 Dim a( ) As Integer, m As Integer Private Sub Command1_Click( ) m=InputBox(“请输入一个正整数“) 29ReDim a(m) End Sub Private Sub Command2_Click( ) m=InputBox(“请输入一个正整数“) ReDim a(m) End Sub 运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入

9、整数 5，再单击 Command2 后输入整数 5，则数组 a 中元素的个数是 A) 5 B) 6 C) 10 D) 1175. (2008-9) 在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分 别为 Label1、Label2 的标签，然后编写如下程序代码：Private X As Integer Private Sub Command1_Click( ) X=5: Y=3 Call proc(X, Y) Label1.Caption=X Label2.Caption=Y End Sub Private Sub proc(a As Integer, ByVal b As

10、Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是 A）25 和 3 B）5 和 3 C）25 和 6 D）5 和 676. (2008-9) 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( ) Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行

11、后，单击命令按钮，在文本框中显示的值是 A) 2 B) 3 C) 4 D) 577. (2008-9)假定有以下函数过程：Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S, i, 1)+s130Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim Str1 As String, Str2 As String Str1=InputBox(“请输入一个字符串“) S

12、tr2=Fun(Str1) Print Srt2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg” ，则 单击“确定”按钮后在窗体上的输出结果为 A）ABCDEFG B）abcdefg C）GFEDCBA D）gfedcba78. (2009-3) 执行语句 Dim X, Y As Integer 后 A）X 和 Y 均被定义为整型变量 B）X 和 Y 均被定义为变体类型变量 C）X 被定义为整型变量，Y 被定义为变体类型变量 D）X 被定义为变体类型变量，Y 被定义为整型变量79. (2009-3) 以下关系表达式中，其值为 True 的是 A）“XY

13、Z“XYz“ B）“VisualBasic“ 0 Then mystr=mystr Next col Print “*“ Next row End Sub 3. Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer, max As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text4.Text) If a b Then max = a Else max = b70End If If c max Then max = c End If

14、 Text4.Text = Str(max) End Sub 4. Private Sub Command1_Click() Dim a As Integer, i As Integer, sum As Integer a = Val(Text1.Text) sum = 0 For i = 1 To a sum = sum + i Next i Text2.Text = Str(sum) End Sub 5. Private Sub Command1_Click() Dim a As Integer, i As Integer, fac As Integer a = Val(Text1.Tex

15、t) fac = 1 For i = 1 To a fac = fac * i Next i Text2.Text = Str(fac) End Sub 6. Private sub Form_Click() Dim x as string X=inputbox(“请输入一个正整数”)X=right(x,1)+left(x,1) Print x End sub 7. private sub command1_click() Print (val(text1.text)val(text2.text) + val(text3.text)/3End sub 8. Private Sub Form1_Load() Command2.Enabled = False End Sub Private Sub Command1_Click() Text1.Text