VB实验报告册答案及考试大纲

DDBAB,CC(D)DDC,ADDCA 二、填空题 Windows 中断 工具箱 代码 分类

form2.show 有语法错误 错误 事件 结构化

文件名和结构 工程 代码

双击任意控件或右健快捷菜单选“代码窗口”

vb的安装文件夹 属性 方法 font load 对象 三、编程 1-1

Private Sub Command1_Click() Print Sqr(8), 8 ^ (1 / 3) End Sub 1-2

Private Sub Command2_Click() For i = 100 To 110 Print Sqr(i) Next i End Sub

1-3（基本设置在属性窗口完成！） Private Sub Command3_Click() Print \"郑州大学在前进!\" End Sub

1-4（基本设置在属性窗口完成！） Private Sub Command4_Click()

Label1 = \"蓝天、白云、绿水、青山\" End Sub 实验二 一

BCBCC,CBBDA,CCCBA,CBDCC 二

form_click() interval,5000 vbp,frm

top,left,height,width,像素 picture load locked

font,alignment gotfocus,lostfocus 属性窗口，代码 三 2-1

Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub

Private Sub Command2_Click() Label3 = Text1 / Text2 End Sub 2-2

Private Sub Command1_Click() Picture1.Visible = True

Picture1 = LoadPicture(\"C:\\Documents and Settings\\All Users\\Documents\\My Pictures\\示例图片\\Water lilies.jpg\") End Sub

Private Sub Command2_Click() Picture1.Visible = True

Picture1 = LoadPicture(\"C:\\Documents and Settings\\All Users\\Documents\\My Pictures\\示例图片\\Winter.jpg\") End Sub

Private Sub Command3_Click() Picture1.Visible = False End Sub 2-3

Private Sub Command1_Click() Label3 = Text1 * Text2 End Sub 2-4

Private Sub Command1_Click() Text2 = Text1 End Sub

Private Sub Command2_Click() Text1 = \"\" Text2 = \"\" End Sub

Private Sub Text1_Change() Command1.Visible = True Command2.Visible = True End Sub 2-5

Private Sub Command1_Click() Timer1.Interval = 500 End Sub

Private Sub Command2_Click() Timer1.Interval = 0 End Sub

Private Sub Timer1_Timer()

Image1.Left = Int(Rnd * (Form1.ScaleWidth - Image1.Width))

Image1.Top = Int(Rnd * (Form1.ScaleHeight - Image1.Height)) End Sub 实验三 一

A(BC)(BC)AA,A(BCD)DBB,B 二

3，4，5，6，8，10，11，12，14，15，16 三

abs(x+y) (3+x*y)^2

(-b+sqr(b^2-4*a*c)/(2*a) sin(30*3.14/180)+exp(2) 四

int(rnd*71+20) x*y<0

x mod 3=0 or xmod 7=0 x>=10 and x<20 x>=\"A\" and x<=\"Z\" left(s,3) 或者,mid(s,1,3) 五 3-2

Private Sub Command1_Click() Dim x As Single x = Val(Text1)

Print Format(x ^ 2, \"##.000\"), Format(Sqr(x), \"##.000\"), Format(x ^ 3, \"##.000\"), Format(x ^ (1 / 3), \"##.000\") End Sub 3-3

Private Sub Command1_Click() Dim x As Integer

x = Int(Rnd * 900 + 100) Text1 = Trim(Str(x))

Text2 = Right(Text1, 1) + Mid(Text1, 2, 1) + Left(Text1, 1) End Sub 3-4

Private Sub Command1_Click() Dim max, min As Integer min = Val(Text1) max = Val(Text2) Randomize

Print Int(Rnd * (max - min + 1) + min), Int(Rnd * (max - min + 1) + min), Int(Rnd * (max - min + 1) + min) End Sub 3-5

Private Sub Command1_Click() Text1 = Date Text2 = Time

Text3 = WeekdayName(Weekday(Date))

End Sub 实验四 一

CDCDA,DBBAC 二

(1) 48.71E-01,-4.8712 (2) 关系，逻辑，数值 (3) 900，100，mid(a,2,1),c (4) m 1,2,3

print m & \"月是第二季度\" end select 三

(1) x=4 y=13 (2) 10 四 4-1

Private Sub Command1_Click() Dim num, a1, a2, a3 As Single num = Val(Text1) * 180 / 3.14 a1 = Int(num) num = num - a1 a2 = Int(num * 60) num = num * 60 - a2

a3 = Format(num * 60, \"##.000\") Print a1, a2, a3 End Sub 4-2

Private Sub Command1_Click() Dim y As Integer y = Val(Text1)

If (y Mod 400 = 0 Or y Mod 4 = 0 And y Mod 100 <> 0) Then

MsgBox y & \"是闰年\" Else

MsgBox y & \"不是闰年\" End If End Sub 4-3 Private Sub Command1_Click() Dim x, y, z, t As Integer

x = Val(InputBox(\"input x:\")) y = Val(InputBox(\"input y:\")) z = Val(InputBox(\"input z:\")) If x > y Then t = x: x = y: y = t If y > z Then

t = y: y = z: z = t

If x > y Then t = x: x = y: y = t End If

Print x, y, z End Sub 4-4

Private Sub Command1_Click()

Dim nettime As Integer, money As Single nettime = Val(InputBox(\"每月上网时数：\上网费用\"))

If nettime = -1 Then money = 0

ElseIf nettime < 10 Then money = 25

ElseIf nettime < 50 Then money = nettime * 2 ElseIf nettime < 100 Then money = nettime * 1.5 ElseIf nettime < 200 Then money = nettime Else

money = 200 End If

If money <> 0 Then MsgBox \"该月上网费用为\" & money & \"元\" 实验五 一

BCBAC 二

（1）for x=1 to 10 s*(1-1/x) (2) 0

t<1E-6 (3) j

t (4) 5

11 5 三 5-1

Private Sub Command1_Click() Dim i, sum As Integer sum = 0

For i = 1 To 100 sum = sum + i Next i

Print \"1+2+...+100=\"; sum End Sub 5-2

Private Sub Command1_Click() Dim x, y As Integer For x = 0 To 20 For y = 0 To 33

If 5 * x + 3 * y + (100 - x - y) / 3 = 100 Then

Print x, y, 100 - x - y End If Next y Next x End Sub 5-3

Private Sub Command1_Click() Dim i As Integer i = 7 Do

If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print i Exit Do Else

i = i + 7 End If Loop End Sub 5-4

Private Sub Command1_Click() Dim x, y, z As Integer For x = 1 To 9 For y = 1 To 9 For z = 0 To 9

If 100 * x + 10 * x + z + 100 * y + 10 * z + z = 532 Then

Print x, y, z End If Next z Next y Next x End Sub 5-5

Private Sub Command1_Click() Dim sum As Single, n As Integer sum = 1

Do While sum <= 4 sum = sum * 1.1 n = n + 1 Loop

Print \"经过\"; n; \"年销售收入翻两番\" End Sub 5-6

Private Sub Command1_Click() Dim sum, i, n As Integer sum = 0

n = Val(InputBox(\"请输入n的值：\")) For i = 1 To n

sum = sum + i * (-1) ^ (i + 1) Next i

Print \"1-2+3-4+...=\"; sum End Sub 5-7

Private Sub Command1_Click()

Dim sum, isum, i, n As Integer sum = 0 isum = 0

n = Val(InputBox(\"请输入n的值：\")) For i = 1 To n

isum = isum + i sum = sum + isum Next i

Print \"1+(1+2)+(1+2+3)+...=\"; sum End Sub 5-8

Private Sub Command1_Click() Dim pi, ti As Single Dim i As Integer pi = 0 ti = 1 i = 1

Do While Abs(ti) >= 0.0001 ti = (-1) ^ (i + 1) / (2 * i - 1) pi = pi + ti i = i + 1 Loop End Sub 5-9

Private Sub Command1_Click() Dim i, j, k As Integer Print \"水仙花数有：\" For i = 1 To 9 For j = 0 To 9

For k = 0 To 9

If i * 100 + j * 10 + k = i ^ 3 + j ^ 3 + k ^ 3 Then

Print i, j, k End If Next k Next j Next i End Sub 5-10

Private Sub Command1_Click() Dim i, j, k As Integer k = 0

For i = 999 To 100 Step -1 For j = 2 To Int(Sqr(i))

If i Mod j = 0 Then Exit For Next j

If j = Int(Sqr(i)) + 1 Then k = k + 1: Print i

If k = 3 Then Exit For Next i

End Sub 5-11

Private Sub Command1_Click() Dim i, n, min, max As Integer Dim aver As Single min = 100 max = 50

For i = 1 To 20

n = Int(Rnd * (99 - 51) + 51) Print n;

If i Mod 5 = 0 Then Print If n > max Then max = n If n < min Then min = n aver = aver + n Next i

Print \"max=\"; max Print \"min=\"; min

Print \"average=\"; aver / 20 End Sub 5-12

Private Sub Command12_Click() Dim i, j As Integer For i = 1 To 5

For j = 1 To (2 * i - 1)

Print Tab(20 - i + j); \"*\";

Next j Next i

End Sub 实验六 一

BCCCD DDDCA 二、 6-1

Option Base 1

Private Sub Command1_Click() Dim ia(10) As Integer

Dim Max, min, aver As Integer, iMax, imin As Integer

For i = 1 To 10

ia(i) = Int(Rnd * 51 + 50) Print ia(i); Next i Print

Max = ia(1): iMax = 1 min = ia(1): imin = 1 aver = ia(1) For i = 2 To 10

aver = aver + ia(i)

If ia(i) > Max Then Max = ia(i): iMax = i

If ia(i) < min Then min = ia(i): imin = i Next i

Print \"max=\"; Max, \"imax=\"; iMax Print \"min=\"; min, \"imin=\"; imin Print \"aver=\"; aver / 10 End Sub 6-2

Private Sub Command1_Click() Dim ia(20), num(5) As Integer

Dim Max, min, aver As Integer, iMax, imin As Integer

For i = 1 To 20

ia(i) = Int(Rnd * 101) Print ia(i);

Select Case ia(i) Case Is < 60

num(1) = num(1) + 1 Case 60 To 69 num(2) = num(2) + 1 Case 70 To 79

num(3) = num(3) + 1 Case 80 To

num(4) = num(4) + 1 Case 90 To 100

num(5) = num(5) + 1 End Select Next i Print

Print \"各分数段的人数分别是(0~59,60~69,70~79,80~,90~100)：\" For i = 1 To 5 Print num(i); Next i End Sub 6-3

Private Sub Command1_Click() Dim a(10) As Integer, t% For i = 1 To 10

a(i) = Int(Rnd * 51) Print a(i); Next i Print

For i = 1 To 9

For j = i + 1 To 10

If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t

Next j Next i

Print \"排序后：\" For i = 1 To 10 Print a(i); Next i

End Sub 6-4

Private Sub Command1_Click() Dim a(20) As Integer, t% For i = 1 To 20

a(i) = Int(Rnd * 51) Print a(i);

If (i + 1) Mod 5 = 0 Then Print Next i End Sub 6-5

Private Sub Command1_Click() Dim a(9), b(3, 3) As Integer, s%, t% For i = 1 To 9

a(i) = Int(Rnd * 101) Print a(i);

If i Mod 3 = 0 Then t = 3: s = i / 3 Else

t = i Mod 3: s = i \\ 3 + 1 End If b(s, t) = a(i) Next i Print

For i = 1 To 3 For j = 1 To 3 Print b(i, j); Next j Print Next i End Sub 6-6

Private Sub Command1_Click() Dim a() As Integer n = InputBox(\"n=?\") ReDim a(n, n) For i = 1 To n For j = 1 To n

a(i, j) = Int(Rnd * 10) Print a(i, j); Next j Print Next i

End Sub 6-7

Private Sub Command1_Click() Dim a() As Integer n = InputBox(\"n=?\") ReDim a(n, n) For i = 1 To n a(i, i) = 1 Next i

For i = 1 To n For j = 1 To n Print a(i, j); Next j Print Next i End Sub 6-8

Private Sub Command1_Click() Dim ia() As Integer

Dim Max As Integer, iMax, jmax As Integer m = InputBox(\"m=?\") n = InputBox(\"n=?\") ReDim ia(m, n)

Max = 0: iMax = 0: jmax = 0 For i = 1 To m For j = 1 To n

ia(i, j) = Int(Rnd * 101) Print ia(i, j);

If ia(i, j) > Max Then Max = ia(i, j): iMax = i: jmax = j Next j Print Next i

Print \"max=\"; Max, \"imax=\"; iMax, \"jmax=\"; jmax End Sub 实验七 一

CCDAB DDAAA 二

（1）n！

（2）1到n累加和 （3）n是否是素数 （4）冒泡排序

（5）递归调用实现斐波那契数列 （6）求最大公约数和最小公倍数 三 7-1

Private Sub Command1_Click() Dim n, sum As Integer n = Val(InputBox(\"n=?\")) sum = jsh(n)

Print \"1!+2!+...+\"; n; \"!=\"; sum End Sub

Public Function jsh(n) As Integer Dim i, s, t As Integer s = 0 t = 1

For i = 1 To n t = t * i s = s + t Next i jsh = s

End Function 7-2

Private Sub Command1_Click() Dim n, flag As Integer n = Val(InputBox(\"n=?\")) flag = 1 sushu n, flag Print \"n=\"; flag End Sub

Public Sub sushu(n, flag) Dim i As Integer For i = 2 To n - 1

If n Mod i = 0 Then flag = 0: Exit For Next i End Sub 7-3

Private Sub Command1_Click() Dim flag As Integer, str As String str = InputBox(\"n=?\") flag = huiwen(str)

If flag = 1 Then Print str; \"是回文数\" Else Print str; \"不是回文数\" End Sub

Public Function huiwen(str) As Integer Dim lens, m, i As Integer lens = Len(str)

For i = 1 To Int(lens / 2)

If Mid(str, i, 1) <> Mid(str, lens - i + 1, 1) Then Exit For Next i

If i = Int(lens / 2) + 1 Then huiwen = 1 Else huiwen = 0 End Function 7-4

Private Sub Command1_Click()

Dim n, m, c1, c21, c22, c23 As Integer n = Val(InputBox(\"n=?\")) m = Val(InputBox(\"m=?\"))

c1 = jc1(n) / (jc1(m) * jc1(n - m)) Print \"函数计算c1=\"; c1 jc2 n, c21 jc2 m, c22 jc2 n - m, c23

Print \"子过程计算c2=\"; c21 / (c22 * c23) End Sub

Public Sub jc2(n, c) Dim i As Integer c = 1

For i = 1 To n c = c * i Next i End Sub

Public Function jc1(n) Dim i As Integer s = 1

For i = 1 To n s = s * i Next i jc1 = s

End Function 7-5

Private Sub Command1_Click() Dim str1 As String

str1 = InputBox(\"请输入一个实数：\") MsgBox sum(str1) End Sub

Public Function sum(str As String) Dim lens, i, n As Integer Dim c As String * 1 lens = Len(str) n = 0

For i = 1 To lens c = Mid(str, i, 1)

If c <= \"9\" And c >= \"0\" Then n = n + Val(c) End If Next i sum = n

End Function 7-6

Private Sub Command1_Click() Dim str1 As String

str1 = InputBox(\"请输入一个字符串：\") Print str1; \"中有数字字符\"; num(str1); \"个。\" End Sub

Public Function num(str As String) Dim lens, i, n As Integer Dim c As String * 1 lens = Len(str) n = 0 For i = 1 To lens c = Mid(str, i, 1)

If c <= \"9\" And c >= \"0\" Then n = n + 1 End If Next i num = n

End Function 7-7

Private Sub Command1_Click()

'可参考本实验填空第六题或采用本方法，注意两法的形参是传地址还是传值的区别 Dim m, n, y, b As Integer

m = Val(InputBox(\"please input a integer(m):\"))

n = Val(InputBox(\"please input a integer(n):\")) Print m; \"和\"; n; gysgbs m, n, p

Print \"的最大公约数为\"; n Print \"最小公倍数为\"; p End Sub

Public Sub gysgbs(a, b, c) Dim r As Integer c = a * b r = a Mod b Do While r <> 0 a = b b = r

r = a Mod b Loop c = c / b End Sub

《Visual Basic程序设计》课程考试大纲

（本学期19周，1-16周上课，周4学时，课程总学时，其中：理论32+上机32）

【基本要求】

熟悉Visual Basic集成开发环境；了解Visual Basic中对象的概念和事件驱动程序的基本特性；掌握Visual Basic的基本语句；了解简单的数据结构和算法；掌握Visual Basic常用控件及其控件的三个要素；掌握模块化程序设计的过程设计（包括函数过程、子过程）方法；能针对简单的实际问题构造算法，并能正确地实现算法与程序之间的转换，具有使用Visual Basic编制和上机调试简单程序的能力；培养利用计算机解决问题的意识、思路和能力，为今后进行计算机应用奠定基础。

【考试范围】

1. Visual Basic程序设计概述

 发展、特点、版本、安装、启动、退出

 Visual Basic 6.0集成开发环境（7个主要窗口） 2. Visual Basic程序设计的相关概念  对象和类的概念  对象的建立和编辑

 对象的属性、事件和方法  事件驱动的实质

 窗体和控件的基本属性

 窗体、标签、文本框、命令按钮、时钟（主要属性、事件、方法）  常用方法（Print 和 Cls）  工程的管理

 环境的设置（利用“工具”菜单下的“选项”命令提供的选项卡完成）  帮助系统的使用  程序调试

3. Visual Basic语言基础

 基本数据类型（Integer、Single、String、Date、Variant等）  常量和变量

 局部变量和全局变量  缺省声明  编码规则  运算符

 算术运算符  字符串运算符

 关系运算符（=、>、>=、<、<=、<>）  逻辑运算符（Not、And、Or）  表达式

 常用内部函数

 数学函数

 转换函数（Str、Val、Int、Round、Ucase、Lcase等）

 字符串函数（Len、Mid、Trim、String、Space等）

 日期函数（DateAdd、DateDiff、Date、Time、Now、Month、MonthName、

WeekDay、WeekDayName等）

4. 基本控制结构  赋值语句  Inputbox函数  Msgbox过程  If语句

 Select Case语句  For-Next  Do-Loop

 结构嵌套（循环、选择）

 辅助控制语句（Exit for、Exit do、End if、End Sub、End Function） 5. 数组

 数组的基本概念  静态数组及其声明  动态数组及其声明  一维数组基本操作

 给数组元素赋初值、数组元素的输入、数组元素的赋值、数组元素的输出、求

数组中最大（小）元素及其下标、求元素之和、交换数组元素、数组中元素的插入和删除等

 二维数组基本操作

 给数组元素赋初值、数组元素的输入、数组元素的赋值、数组元素的输出、求

数组中最大（小）元素及其下标、求元素之和（积）等

6. 过程

 函数过程的定义和调用  子过程的建立和调用  参数传递  作用域 7. 文件

 文件的基本概念

 文件的定义及其分类 8. 常用算法

 累加、连乘、穷举、递推、最大公约数、最大值、最小值、平均值、排序（选择、

冒泡）、顺序查找、分类统计、简单的字符处理应用等。

【考试方式】

上机考试（网上考试系统），考试时间100分钟，满分100分。

【考试题型】

一、单项选择题（40道小题，每小题1分，共40分）

二、填空题（5道小题，每小题2个空，1个空2分，共20 分） 三、综合应用题（3道小题，共40分）

郑州大学信息工程学院

2008-05-6