vb程序设计典型例题及答案,VB上机题目及答案06年9月

vb程序设计典型例题及答案,VB上机题目及答案06年9月详细介绍

本文目录一览： VB程序设计题 求各位大神们帮忙啊～～实在不会做，求答案！！

Private Sub Command1_Click() '计算按钮 x = InputBox("请输入x值") y = IIf(x >= 0, 1 + x, 1 - 2 * x) MsgBox "y=" & yEnd Sub'请参考采纳！谢谢！
Private Sub Form_Load()
Dim X!, Y!
Y = 0
X = InputBox("X的值为")
If X < 0 Then
Y = 1 - 2 * X
Else: Y = 1 + X
End If
Text1.Text = Y
End Sub
程序如下，望采纳
Private Sub Command1_Click()If Text1.Text = "" Then '判断x值是否为空MsgBox "请输入X的值"ElseEnd IfIf Val(Text1.Text) >= 0 Then '如果X的值大于等于0Text2.Text = 1 + Val(Text1.Text)ElseIf Val(Text1.Text) < 0 Then '如果X的值小于0Text2.Text = 1 - 2 * Val(Text1.Text)End IfEnd IfEnd Sub
这实际上是一个分段函数计算题。
在程序设计中，主要用到四部分内容：输入、判断、计算、输出。
程序设计方案有两种。第一种方式：文本框输入输出，不用循环语句。代码如下：
Private Sub Command1_Click()
Dim X
X = Val(Text1.Text)
Text2.Text = CStr(IIf(X >= 0, 1 + X, 1 - 2 * X))
Text1.Text = ""
End Sub
第二种方式：使用对话框输入输出，不使用循环，只计算一次：
Private Sub Command1_Click()
Dim X, Y
X =Val( InputBox("输入X值"))
If X < 0 Then
Y = 1 - 2 * X
Else
Y = 1 + X
End If
MsgBox Y
End Sub
第三种方式：使用对话框输入输出，使用循环，输入“X”时退出，可以计算多次：
Private Sub Command1_Click()
Dim S, X, Y
Do
S = InputBox("输入X值")
If LCase(S) <> "x" Then
X = Val(S)
If X < 0 Then
Y = 1 - 2 * X
Else
Y = 1 + X
End If
MsgBox Y
End If
Loop Until LCase(S) = "x"
End Sub

五道VB程序分析题，答案有，求大神给分析一下程序过程，急!

8、输入一个数X，如果X>=0，则Y=1-2*X，否则的话Y=1+X
9、循环，直到i大于7，每次循环i增加3，X增加5
10、RND函数是返回一个0—1之间的
随机数
，所以取整后X为4（只取
整数部分
），输出结果必为GOOD
11、循环，每一次循环X=(X+3)*(X+4)，N为循环次数，循环直到X>=60为止，输出N,X及和
12、X为字符框内数字，A为X除10求余，B为X除10求余后再除以10，C为X除100，因为均为整数型，所以最后结果都必须取整（四舍五入）

VB上机题目及答案06年9月

9月25日 13:20 全国计算机等级考试二级笔试试卷
Visual Basic语言程序设计
（考试时间90分钟，满分100分）
2004年9月18日
一、选择题（(1)—(20)每小题2分，(21)—(30)每小题3分，共70分）
下列各题 A) 、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
(1) 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：
A)text1.maxlength=0 B)text1.enabled=flase
C)text1.visible=flase D)text1.width=0
答案：B
(2) 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是
A) Form1.Name="VisualBasic窗体"
B) Form1.Title="VisualBasic窗体"
C) Form1.Caption="VisualBasic窗体"
D) Form1.Text="VisualBasic窗体”
答案:C
(3) 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：
以下能实现上述操作的程序段是
A) Private Sub HScroll_Change()
Text1.Text=HScroll1.Value
End Sub
B) Private Sub HScroll_Click()
Text1.Text=HScroll1.Value
End Sub
C) Private Sub HScroll_Change()
Text1.Text=HScroll.Caption
D) Private Sub HScroll_Click()
Text1.Text=HScroll.Caption
End Sub
答案A
(4) 设菜单中有一个菜单项为"Open"。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单编辑器中设置“Open"命令的方式是
A) 把Caption属性设置为&Open
B) 把Caption属性设置为O&pen
C) 把Name属性设置为&Open
D) 把Name属性设置为O&pen
答案A
(5) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是
A） 分支1 B） 分支2 C） Else分支 D) 程序出错
答案C
(6) 以下关于MsgBox的叙述中，错误的是
A） MsgBox函数返回一个整数
B) 通过MsgBox函数可以设置信息框中图标和按钮的类型
C) MsgBox语句没有返回值
D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量
答案D
(7)在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是
A）Timer1.InterVal=0.5 B) Timer1.Interval=5
C) Timer.Interval=50 D) Timer1.Interval=500
答案D
(8) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
Cls
For i=1 To 2
y=y+x
x=x+2
Next
Print x,y
End Sub
程序运行后，连续三次单击Command1按钮后，窗体上显示的是
A) 4 2 B) 12 18 C) 12 30 D) 4 6
答案：B
(9) 以下关于多重窗体程序的叙述中，错误的是
A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体
B）在多重窗体程序中，各窗体的菜单是彼此独立的
C）在多重窗体程序中，可以根据需要指定启动窗体
D）对于多重窗体程序中，而且单独保存每个窗体
答案：A
(10)以下关于文件的叙述中，错误的是
A）顺序文件中的记录一个接一个地顺序存放
B）随机文件中记录的长度是随机的
C）执行打开文件的命令后，自动生成一个文件指针
D）LOF函数返回给文件分配的字节数
答案B
(11) 以下叙述中错误的是
A）事件过程是响应特定事件的一段程序
B）不同的对象可以具有相同名称的方法
C）对象的方法是执行指定操作的过程
D）对象事件的名称可以由编程者指定
答案D
(12) 以下合法的Visual Basic标识符是
A) ForLoop B) Const C) 9abc D) a#x
答案A
(13) 当一个复选框被选中时，它的Value属性的值是
A) 3 B) 2 C) 1 D) 0
答案C
(14) 表达式 5 Mod 3+3\5*2的值是
A) 0 B) 2 C)4 D) 6
答案B
(15) 设x=4,y=8,z=7，以下表达式的值是
x

z) Or z
<x
A) 1 B) -1 C) True D) False

答案D

(16) 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

a$="VisualBasic"

Print String(3,a$)

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A） VVV B) Vis C) sic D) 11

答案A

(17) 设有如下程序段：

x=2

For i=1 To 10 Step 2

x=x+i

Next

运行以上程序后，x的值是

A) 26 B) 27 C) 38 D) 57

答案B

(18) 以下叙述中错误的是

A) 在KeyPress事件过程中不能识别键盘的按下与释放

B) 在KeyPress事件过程中不能识别回车键

C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母

D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符

答案B

(19) 执行如下两条语句，窗体上显示的是

a=9.8596

Print Format(a,"$00,00.00")

A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.86

答案D

(20)在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：

Private Sub Command1_Click()

CommonDialog1.FileName =""

CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"

CommonDialog1.FilterIndex=2

CommonDialog1.DialogTitle="VBTest"

CommonDialog1.Action=1

End Sub

对于这个程序，以下叙述中错误的是

A） 该对话框被设置为“打开”对话框

B） 在该对话框中指定的默认文件名为空

C） 该对话框的标题为VBTest

D） 在该对话框中指定的默认文件类型为文本文件(*.Txt)

答案D

(21) 设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：

Private Sub Command1_Click()

Dim a As Integer

a=10

Call g(Form2,a)

End Sub

Private Sub g(f As Form,x As Integer)

y=IIf(x>10,100,-100)

f,Show

f.Caption=y

End Sub

运行以上程序，正确的结果是

A) Form1的Caption属性值为100 B) Form2的Caption属性值为-100

C) Form1的Caption属性值为-100 D) Form2的Caption属性值为100

答案B

(22)在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

Private Sub Command1_Click()

Dim x As Integer

Static y As Integer

x=10

y=5

Call f1(x,y)

Print x,y

End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer)

x1=x1+2

y1=y1+2

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A) 10 5 B) 12 5 C) 10 7 D) 12 7

答案D

(23)设有如下程序

Option Base 1

Private Sub Command1_Click()

Dim a(10) As Integer

Dim n As Integer

n=InputBox("输入数据")

If n<10 Then

Call GetArray(a,n)

End If

End Sub

Private Sub GetArray(b() As Integer,n As Integer)

Dim c(10) As Integer

j=0

For i=1 To n

b(i)=CInt(Rnd()*100)

If b(i)/2=b(i)\2 Then

j=j+1

c(j)=b(i)

End If

Next

Print j

End Sub

以下叙述中错误的是

A） 数组b中的偶数被保存在数组c中

B） 程序运行结束后，在窗体上显示的是c数组中元素的个数

C） GetArray过程的参数n是按值传送的

D） 如果输入的数据大于10，则窗体上不显示任何显示

答案C

(24)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click()

Dim a

a= Array(1,2,3,4,5)

For i=1 To UBound(a)

a(i) = a(i)+i-1

Next

Print a(3)

End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是

A) 4 B) 5 C) 6 D)7

答案B

(25)阅读程序

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum = 0

arr = Array(1,3,5,7,9,11,13,15,17,19)

For i=1 To 10

If arr(i)/3 = arr(i)\3 Then

Sum =Sum+arr(i)

End If

Next i

Print Sum

End Sub

程序运行后，单击窗体，输入结果为

A）13 B）14 C）27 D） 15

答案C

(26)在窗体上画一个名称为File1的文件列表框，并编写如下程序：

Private Sub File1_DblClick()

x=Shell(File1.FileName,1)

End Sub

以下关于该程序的叙述中，错误的是

A) x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)

B)双击文件列表框中的文件，将触发该事件过程

C)要执行的文件的名字通过File1.FileName指定

D）File1中显示的是当前驱动器、当前目录下的文件

答案A

(27) 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500,如图所示。

编写如下程序：

Private Sub Form_Load()

Timer1.Enabled=False

End Sub

Private Sub Command1_Click()

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer()

If Label1.Left
<width then
Label1.Left = Label1.Left + 20

Else

Label1.Left=0

End If

End Sub

程序运行后，单击“开始”按钮，标签在窗体中移动。

对于这个程序，以下叙述中错误的是

A) 标签的移动方向为自右向左

B）单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

C) 当标签全部移出窗体后，将从窗体的另一端出现并重新移动

D）标签按指定的时间时隔移动

答案A

(28)执行以下程序段

a$="abbacddcba"

For i=6 To 2 Step -2

X=Mid(a,i,i)

Y=Left(a,i)

z=Right(a,i)

z=UCase(X&Y&z)

Next i

Print z

输出结果为

A)ABA B）BBABBA C)ABBABA D)AABAAB

答案B

(29)在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Option Base 1

Private Sub Command1_Click()

Dim a As Variant

a=Array(1,2,3,4,5)

Sum=0

For i=1 To 5

Sum = sum+a(i)

Next i

x=Sum/5

For i =1 To 5

If a(i)>x Then Print a(i);

Next i

End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是

A）1 2 B） 1 2 3 C) 3 4 5 D） 4 5

答案D

(30)假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。

Model1代码如下：

Public x As Integer

Public y As Integer

Sub S1()

x =1

S2

End Sub

Sub S2()

y=10

Form1.Show

End Show

Model2的代码如下：

Sub Main()

S1

End Sub

其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是

A） Form1->Model1->Model2

B) Model1->Model2->Form1

C) Model2->Model1->Form1

D） Model2->Form1->Model1

答案C

二、填空题(每空2分，共30分)

请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

(1) 设有如下程序段：

a$="BeijingShanghai"

b$=Mid(a$,InStr(a$,"g")+1)

执行上面的程序段后，变量b$的值为__Shanghai___。

(2) 以下程序段的输出结果是___3____。

num =0

While num<=2

num = num+1

Wend

Print num

(3) 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load()

For i=1 To 100

If i Mod 7 =0 Then

__List1.AddItem i____

End If

Next

End Sub

Private Sub Command1_Click()

Sum =0

For i=0 To__List1.ListCount-1___

Sum =Sum+__List1.List(i)_____

Next

Text1.Text=Sum

End Sub

(4) 本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。

Private Sub Command1_Click()

Randomize

n=CInt(Text1.Text)

n1=0

n2=0

For i=1 To__n___

r=Int(Rnd*2)

If r=___1____Then

n1=n1+1

Else

n2=n2+1

End If

Next

Text2.Text=n1

Text3.Text=n2

End Sub

(5) 阅读程序：

Option Base 1

Private Sub Form_Click()

Dim a(3) As Integer

Print "输入的数据是：";

For i=1 To 3

a(i)=InputBox("输入数据")

Print a(i);

Next

Print

If a(1)
<a(2) then
t=a(1)

a(1)=a(2)

a(2)=___t____

End If

If a(2)>a(3) Then

m=a(2)

ElseIf a(1)>a(3) Then

m=___a(3)___

Else

m=__a(1)___

End If

Print "中间数是：";m

End Sub

程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。

(6) 在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空;标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。

Private Sub Command1_Click()

Sum = 0

For i=0 To 4

Sum=Sum+__Label1(i).caption__

Next

___Label2.caption__=Sum

End Sub

(7) 在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值;如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。

Option Base 1

Dim a(3,2) As Integer

Private Sub Command1_Click()

For i=1 To 3

For j=1 To 2

__a(i,j)__=i+j

Next j

End Sub

Private Sub Command2_Click()

For j=1 To 3

For i=1 To 2

s=s+__a(j,i)___

Next i

Next j

Text1.Text= __s__

End Sub

评分标准和参考答案

一、选择题（(1)—(20)每小题2分，(21)—(30)每小题2分，共70分）

(1)－(10) BCAAC DDBAB

(11)－(20) DACBD ABBDD

(21)－(30) BDCBC AABDC

二、填空题(每空2分，共30分)

1、(1)"Shanghai"

2、（2）3

3、（3）list1.additem i (4) list1.listcount-1 (5) list1.list(i)

4、（6）n (7) 1

5、（8）t (9) a(3) (10) a(1)

6、（11）label1(i).caption (12) label2.caption

7、（13）a(i,j) (14) a(j,i) (15) s (注意:i,j 要换位置,别给迷惑到了)

祝你能顺利通过拉~！

</x

《vb程序设计教程》 王贺明主编 课后习题答案，谢谢啦！

第一题：
第二题：
第三题：
第四题：
第五题：
扩展资料这部分内容主要考察的是程序设计语言的知识点：
开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。 “Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序 。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
在使用传统的程序设计语言编程时，一般需要通过编写程序来设计应用程序的界面（如界面的外观和位置等），在设计过程中看不见界面的实际效果。而在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。
开发人员在界面设计时，可以直接用Visual Basic 6.0的工具箱在屏幕上"画"出窗口、菜单、命令按键等不同类型的对象，并为每个对象设置属性。开发人员要做的仅仅是对要完成事件过程的对象进行编写代码，因而程序设计的效率可大大提高。

vb程序设计实例100

试题一.1
Private Sub Form_Click()
Print fs_sum(100)
End Sub
Function fs_sum(ByVal n As Integer) As Single
Dim s!, nc! '和与倒数
s=0
For i = 1 To n
nc = 1 / i
s = s + nc
Next i
fs_sum = s
End Function
试题一.2
Private Sub Form_Click()
For i = 1 To 4
Print Space(4 - i);
For j = 1 To i
Print "* ";
Next j
Print
Next i
End Sub
待续，未完...

求vb设计程序编程题答案

你应该把题目分开 一个一个来问，这样太难回答了
'#1Dim sum As Integer, n As Integersum = 0For n = 1 To 100 If n Mod 3 = 0 Then sum = sum + nNextPrint "Summary:" & vbTab & sum'#2Dim prod As Integer, n As Integer, strInput As StringstrInput = InputBox("请输入n的值")If Not IsNumeric(strInput) Then Exit Sub '如果是Function的话, Sub改成Functionprod = 1For n = CInt(strInput) To 1 prod = prod * nNextPrint "Product:" & vbTab & prod'#3Dim sum As Integer, n As IntegerFor n = 30 To 1 sum = sum + (n + 1) * n / 2 '1 + 2 + 3 + ... + n 可以简化为 (n + 1) * n / 2NextPrint "s:" & vbTab & sum'#4Dim sum As Integer, prod As Integer, n As Integer, m As IntegerIf Not IsNumeric(Trim(Text1.Text)) Then Exit Subn = CInt(Trim(Text1.Text))For n = CInt(Trim(Text1.Text)) To 1 prod = 1 For m = n To 1 prod = prod * m Next sum = sum + prod NextLabel1.Caption = CStr(sum)先给你4题，剩下的追问

高分替兄弟求VB编程题

你是哪个学校的？
我的专业就是计算机，做毕业设计时，正好作的设计是你描述的那样的设计，如果咱们不是一个学校的我就把设计给你好了！
一、打开VBTEST子目录下的窗体文件Form1.frm，修改其中的程序，使能输出如下图形：
*
* *
* * *
* * * *
* * * * *
* * * * * *
程序如下：
Private Sub Command1_Click()
For i=1 to ____
For j=1 to ____
Print_____
Next j
Print
Next i
End Sub
二、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，
并输出判断结果。
程序中有三处错误，请打开VBTEST子目录下的窗体文件Form2.frm，调试更正。
程序如下：
Private Sub Command1_Click()
Dim a As Single
Dim py As String
a=Val(Text1)
If a>0 Then py="正数"
If a=0 Then py="零"
If a<=0 Then py="负数"
Label3.Caption=a
End Sub
三、打开VBTEST子目录下的窗体文件Form3.frm，修改程序，使能输出：
1-2+3-4+5-6+...+99-100的值
程序如下：
Private Sub Command1_Click()
s=_____
For i=1 To _____
s=s+(-1)^(______)*i
Next i
Print s
End Sub
四、打开VBTEST子目录下的窗体文件Form4.frm。已知一元二次方程的二次项系数、一次
项系数、常数项
分别为a、b、c，其中a不等于0。修改程序，求方程的根。
要求：如果方程无实数根，则输出“无实数根”，否则输出两个实数根。
Private Sub Command1_Click()
Dim a,b,c,d As Single
Dim x1,x2 As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
d=b^2-4*a*c
If d________ Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Label1.Caption=x1
Label2.Caption=x2
_______
Label3.Caption=______
End If
End Sub
五、下面的程序是求当r=2,JI=3.14，x=-3，y=1.2时代数式r*r*JI+[(64-6y)+3x]/5的值
，程序中有三处错误，
请打开VBTEXT子目录下的窗体文件Form5.frm，调试更正。
Private Sub Command1_Click()
Dim a As Single
r=2:pi=3.14:x=-3:y=1.2
a1=r*r*JI
a2=(64-6y)+3*x
a3=a2/5
Print a1+a2+a3
End Sub
六、下面的程序是求7!（7!=1*2*3...*6*7)的值，并在默认窗口输出这个值。程序中有
三处错误，请打开
VBTEST子目录下的窗体文件Form6.frm，调试更正。
Private Sub Command1_Click()
Dim a As Single
a=0
For i=1 to n
a=a*i
Next i
Print i
End Sub
七、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。程序中有三处错误，请
打开VBTEST子目录下
的窗体文件Form7.frm，调试更正。
Private Sub Command1_Click()
Dim s As Single
Dim i As Single
s=1
For i=1 to 100 Step 1
s=s*i
Next i
Print s
End Sub
八、下面的程序是当输入的考试成绩不低于60分时输出“及格”，否则输出“不及格”
。程序中有二处错误，
请打开VBTEST子目录下的窗体文件Form8.frm，调试更正。
Private Sub Command1_Click()
Dim cj As Integer
Dim py As String
cj=Val(Text1.Text)
If cj>60 Then
py="及格"
Else
py="不及格"
End If
label3.Caption=py
End Sub
九、打开VBTEST子目录下的窗体文件Form9.frm，完善其中的程序，使能输出如下图形。
--* * * * * *
----* * * * * *
------* * * * * *
--------* * * * * *
----------* * * * * *
------------* * * * * *
---表示空格
程序如下：
Private Sub Command1_Click()
For i=1 To 6
Print Tab(______);
For j=1 To_______
Print_______
Next j
Print
Next i
End Sub
十、打开VBTEST子目录下的窗体文件Form10.frm，修改下面的程序，使运行后输出如下
结果：
张大富 男 39岁
Private Sub Command1_Click()
Dim xm,xb,nl As String
xm=张大富 xb="男":nl="39岁"
Print xm
Print xb
Print nl
Print "岁"
End Sub
十一、打开VBTEST子目录下的窗体文件Form2.frm，完善已写在“计算”按钮的Click事
件下的程序代码，
将代码段中的“常量”、“变量1”、“变量2”处分别换成正确的常量值、变量名（其
他不动），使得当
鼠标单击命令按钮“计算”时，窗体上显示1+2+3+...+99+100的值。
命令代码如下：
Private Sub Command1_Click()
s=常量
For i=1 To 100 Step 1
s=s+变量1
Next i
Print 变量2
End Sub
十二、打开VBTEST子目录下的窗体文件Form3.frm，完善已写在“计算”按钮的Click事
件下的程序代码，
将代码段中的“常量”、“运算符”、“变量”处分别换成正确的常量值、运算符、变
量名，使得当
鼠标单击命令按钮“计算”时，窗体上显示10!(10!=1*2*3*...*10)的值。
命令代码如下：
Private Sub Command1_Click()
s=常量
For i=1 To 10
s=s 运算符 i
Next i
Print 变量
End Sub
十三、打开VBTEST子目录下的窗体文件Form4.frm，完善已写在“执行”按钮的Click事
件下的程序代码，
将代码段中的“常量”、“变量”、“表达式”处分别换成正确的常量值、变量名和具
体的表达式，
使得当鼠标单击命令按钮“执行”时，显示出满足条件2+4+6+...+x<80中最大的x的
值。
命令代码如下：
Private Sub Command1_Click()
s=0
x=0
Do
x=x+常量
s=s+变量
Loop Until s>=80
Print 表达式
End Sub
十四、打开VBTEST子目录下的窗体文件Form5.frm，在窗体适当的位置建立一个Command
1按钮，然后编写代码，
使得当鼠标单击命令按钮Command1时，窗体上的标签文字“Lable1”变为“江苏省信息
技术等级考试”。
十五、打开VBTEST子目录下的窗体文件Form10.frm，完善程序，将代码中的“常量”、
“关系运算符”、
“语句”、“变量”处分别换成正确的常量值、关系运算符、语句、变量名，使当点击
“输出”按钮时，
屏幕显示程序运行结果为：20-10=10
程序代码如下：
Private Sub Command1_Click()
a=10
b=常量
if a 关系运算符 b Then
Print a;"-";b;"=";a-b
语句
Print 变量;"-";a;"=";10
End If
End Sub
答案：
1、6 i "*";
2、Val(Text1)改为Val(Text1.Text) a < =0改为a < 0 Label3.Caption =
a改为Label3.Caption = py
3、0 100 i + 1
4、> 0 Else "无实数根"
5、JI改为pi 6y改为6 * y a1 + a2+ a3改为a1+a3
6、a = 0改为a = 1 n改为7 Print i改为Print a
7、s = 1改为s = 0 Step 1改为Step 2 s = s * i改为s = s + i
8、cj > 60改为cj >= 60 另一错误请同学们自己找
9、2 + i 6 "*";
10、
Private Sub Command1_Click()
Dim xm, xb, nl As String
xm = "张大富": xb = "男": nl = "39岁"
Print xm,
Print xb,
Print nl
End Sub
11、
Private Sub Command1_Click()
s = 0
For i = 1 To 100 Step 1
s = s + i
Next i
Print s
End Sub
12、
Private Sub Command1_Click()
s = 1
For i = 1 To 10
s = s * i
Next i
Print s
End Sub
13、
Private Sub Command1_Click()
s = 0
x = 0
Do
x = x + 2
s = s + x
Loop Until s >= 80
Print "x="; x - 2
End Sub
15、
Private Sub Command1_Click()
a = 10
b = 20
If a > b Then
Print a; "-"; b; "="; a - b
Else
Print b; "-"; a; "="; 10
End If
End Sub
一、选择题
1、 某一VB工程含F1、F2两个窗体，执行“F1．Show:F2．Hide”语句后，F1、F2窗体显示的结果为（ ）。
A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示
F2窗体
2、 在VB中，执行“Text1．Text= “0551-2649670” “Tel=0551-2649670”这行语句时，“，”后面的部分为（ ）。
A、注释部分，不是可执行代码 B、注释部分，但是可以执行代码
C、程序代码的一部分 D、程序代码的另一种写法
3、 VB的数据类型分为（ ）
A、 数值型、字符型、布尔型、日期型 B、数值型、字符型、对象型、日期型
C、基本类型、扩展类型 D、整型、实型、字符型、日期型、布尔型
4、VB中的变量如果没有显示声明其数据类型，则默认为（ ）
A、日期型 B、数据型 C、字符型 D、变体型
5在VB中，通过改变表框（ ）属性的值 ，可以为列表框添加项目。
A、List B、（名称） C、Caption D 、Text
6、在VB中，执行“A=5：A=A+5”语句后，变量A的值为（ ）
A、0 B、5 C、10 D、不一定
7、VB中运算符被分为四类，分别是（ ）
A、算术运算符、连接运算符、关系运算符、逻辑运算符
B、算术运算符、比较运算符、关系运算符、逻辑运算符
C、算术运算符、连接运算符、布尔运算符、逻辑运算符
D、连接运算符、比较运算符、逻辑运算符、关系运算符
8、在VB中，执行“A=18MOD4”语句后，A的值为（ ）。
A、2 B、4 C、6 D、8
9、A为True,B为False, 则 “AandB”和 “AOrB”的值分别是（ ）。
A、True,True B、True False C 、False,True D 、False,False
10、在VB中，执行 “DimA,B As String” 语句后，A，B的数据结构为（ ）。
A、整型数 B、实型数 C、字符型 D、字节型
11、在VB中，执行 “A=123：B=Str$(A)”语句后，B的数据结构为（ ）。
A、整型数、 B、字节型 C、实型数 D、字符型
12、在VB中，复写框（Check）的Value值有三种，分别是（ ）。
A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，0
13、在VB中，如要创建“年级”和“班级”两组单选按钮，具体的做法是（ ）
A、先创建“单选按钮”，然后用“框架”分别框住
B、先分别创建“单选按钮”和“框架”，然后将“单选按钮”拖到相应的框架中
C、先创建“框架”，然后在“框架”中创建“单选按钮”
D、以上方法均可
14、数学关系3〈= x〈10表示成正确的VB表达式为（ ）
A、3〈=x〈10 B、3〈=xANDx〈10 C、x〉=3ORx〈10 D、3〈=xAND〈10
15、Int（198.555*100+0.5）/100的值为（ ）
A、198 B、199.6 C、198.56 D、200
16、下面正确的赋值语句是（ ）
A、x+y=30 B、y= *r*r C、y=x+30 D、3y=x
17、为了给三个变量赋初值1，下面正确的赋值语句是（ ）
A、x=1：y=1：z=1 B、x=1，y=1，z=1 C、x=y=z=1 D、xyz=1
18、分支结构的程序在进行判断后可分别控制程序有（ ）个以上的走向。
A、1 B、2 C、3 D、8
19、语句If x=1 Then y=1,下列说法正确的是（ ）。
A、x=1和 y=1 均为赋值语句 B、x=1和 y=1均为关系表达式
C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=1为关系表达
20、可用于设置系统当前时间的语句是（ ）。
A、Date B、Date$ C、Time D、Timer
21、若要退出For循环，可使用的语句为（ ）。
A、Exit B、Exit Do C、Time D、Exit For
22、利用VB设计程序的基本步骤可分四步：
（1） 设计用户界；（2）（ ）；（3）运行调试程序；（4）生成执行文件。
A、编写代码 B、设计算法 C、信息反馈 D、系统集成
23、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是( )
A Form.C aption“时钟” B Form.Caption=“时钟”
C Caption=“时钟” D Fopm.Caption( “时钟”)
24 下列操作不能打开代码窗口的是( )
A选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令
B 选中对象,双击鼠标左键 C 按F7键 D按F4键
25 保存文件时,窗体的所有数据存储格式为( )
A *．PRG B *．FRM C.*．VBP D *．EXE
26窗体初始化程序应写在( )事件中.
A Load B Unload C Activate D GotFocus
27 在一个语句内写多条语句时,每个语句之间分隔符号是( )
A ， B ： C 、 D ；
28 一句语句要在下一行继续写,所用的续行符号为( ).
A ＋ B － C ＼―― D．．．X
29 下面是合法的变量名为( )
A x＿yz B 123abc C integer D X-Y
30 下面是合法的字符串常数为( )
A ABC $ B “ABC” C ‘ABC' D ABC
二 判断题
1、 VB 中的控件都是用来设计用户界面的。（ ）
2、在VB程序时,选中Form (窗体)上的某个控件,如果控件周围出现8个白色小方块,则表示该控件未被锁定。（ ）
4、 设计VB程序时，选中窗体上的“Text1”文本框控件，将其“BackColor”属性值设置为淡绿色，将“ForeColor”属性值设置为红色，则“Text1”文字为红色。（ ）
5、 在VB中，“方法”是指在对象上起作用的过程，也就是说用来控制对象的功能及操作的内部程序。（ ）
6、 在编写VB程序代码时，对象属性的表示方法为：方法名.对象名称。（ ）
7、 Click事件，就是鼠标单击事件。（ ）
8、 在程序执行的过程中，变量的值始终保持不变，常量的值随时改变。（ ）
程序代码的基本结构有三种，分别是顺序结构、选择结构（分支结构）、循环结构。（ ）
9、 在VB中，有一名称为LIST1的列表框，那麽执行“LIST1.ADDITEM“方周工作室””语句后，即在LIST1列表框中添加“方周工作室”这个项目。（ ）
10、 在VB中，运算级从高到底的顺序是：算数运算、连接运算、关系运算、逻辑运算。（ ）
一、 选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分）
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1）以下叙述中错误的是
A）Visual Basic 是事件驱动型可视化编程工具
B）Visual Basic应用程序不具有明显的开始和结束语句
C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D）Visual Basic中控件的某些属性只能在运行时设置
（2）以下叙述中错误的是
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B）以.BAS为扩展名的文件是标准模块文件
C）窗体文件包含该窗体及其控件的属性
D）一个工程中可以含有多个标准模块文件
（3）以下叙述中错误的是
A）双击鼠标可以触发DblClick事件
B）窗体或控件的事件的名称可以由编程人员确定
C）移动鼠标时，会触发MouseMove事件
D）控件的名称可以由编程人员设定
（4）以下不属于Visual Basic系统的文件类型是
A）.frm B）.bat C）.vbg D）.vbp
（5）以下叙述中错误的是
A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B）保存Visual Basic程序时，应分别保存窗体文件及工程文件
C）Visual Basic应用程序只能以解释方式执行
D）事件可以由用户引发，也可以由系统引发
（6）以下能正确定义数据类型TelBook的代码是
A）Type TelBook
B）Type TelBook
Name As String*10 Name As String*10
TelNum As Integer TelNum As Integer
End Type End TelBook
C）Type TelBook
D）Typedef TelBook
Name String*10 Name String*10
TelNum Integer TelNum Integer
End Type TelBook End Type
（7）以下声明语句中错误的是
A）Const var1=123 B）Dim var2 = 'ABC' C）DefInt a-z D）Static var3 As Integer
（8）设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是
A）List1.List B）List1.ListIndex C）List1.Index D）List1. Text
（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是
A）MouseDown B）MouseUp C）Load D）Click
（10）设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是
A）True B）False C）1 D）出错信息
（11）如果要改变窗体的标题，则需要设置的属性是
A）Caption B）Name C）BackColor D）BorderStyle
（12）以下能判断是否到达文件尾的函数是
A）BOF B）LOC C）LOF D）EOF
（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是
A）如果工程中含有Sub Main过程，则程序一定首先执行该过程
B）不能把标准模块设置为启动模块
C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D）任何时刻最多只有一个窗体是活动窗体
（14）窗体的MouseDown事件过程
Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
有4个参数，关于这些参数，正确的描述是
A）通过Button参数判定当前按下的是哪一个鼠标键
B）Shift参数只能用来确定是否按下Shift键
C）Shift参数只能用来确定是否按下Alt和Ctrl键
D）参数x,y用来设置鼠标当前位置的坐标
（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是
A）Combo1.RemoveItem Text
B）Combo1.RemoveItem 2
C）Combo1.RemoveItem 3
D）Combo1.RemoveItem Combo1.Listcount
（16）以下关于焦点的叙述中，错误的是
A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据
B）当文本框失去焦点时，触发LostFocus事件
C）当文本框的Enabled属性为False时，其Tab顺序不起作用
D）可以用TabIndex属性改变Tab顺序
（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为
A）= B）* C）& D）-
（18）执行语句Open "Tel.dat" For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是
A）只能写，不能读 B）只能读，不能写 C）既可以读，也可以写 D）不能读，不能写
（19）在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click()
n = Text1.Text
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < 10
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是
A）10 B）20 C）30 D）40
（20）设有以下循环结构
Do
循环体
Loop While

则以下叙述中错误的是

A）若"条件"是一个为0的常数，则一次也不执行循环体

B）"条件"可以是关系表达式、逻辑表达式或常数

C）循环体中可以使用Exit Do语句

D）如果"条件"总是为True，则不停地执行循环体

（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim num As Integer

num = 1

Do Until num > 6

Print num;

num = num + 2.4

Loop

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是

A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）无数据输出

（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a As Integer, s As Integer

a = 8

s = 1

Do

s = s + a

a = a－1

Loop While a <= 0

Print s; a

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是

A） 7 9 B） 34 0 C） 9 7 D）死循环

（23）设有如下通用过程：

Public Function f(x As Integer)

Dim y As Integer

x = 20

y = 2

f = x * y

End Function

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Static x As Integer

x = 10

y=5

y = f(x)

Print x; y

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A）10 5 B）20 5 C）20 40 D）10 40

（24）设有如下通用过程：

Public Sub Fun(a(), ByVal x As Integer)

For i = 1 To 5

x = x + a(i)

Next

End Sub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：

Private Sub Command1_Click()

Dim arr(5) As Variant

For i = 1 To 5

arr(i) = i

Next

n = 10

Call Fun(arr(), n)

Text1.Text = n

End Sub

程序运行后，单击命令按钮，则在文本框中显示的内容是

A）10 B）15 C）25 D）24

（25）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

d = 0

c = 10

x = Array(10, 12, 21, 32, 24)

For i = 1 To 5

If x(i) > c Then

d = d + x(i)

c = x(i)

Else

d = d－c

End If

Next i

Print d

End Sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为

A）89 B）99 C）23 D）77

（26）在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4~ Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是

A）Private Sub Command1_Click()

Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption))

End Sub

B）Private Sub Command1_Click()

Label3.Caption = HScroll1.Value * HScroll2.Value

End Sub

C）Private Sub Command1_Click()

Label3.Caption = HScroll1 * HScroll2

End Sub

D）Private Sub Command1_Click()

Label3.Caption = HScroll1. Text * HScroll2.Text

End Sub

（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

For n = 1 To 20

If n Mod 3 <> 0 Then m = m + n \ 3

Next n

Print n

End Sub

程序运行后，如果单击命令按钮，则窗体上显示的内容是

A）15 B）18 C）21 D）24

（28）在窗体上画一个名称为Text1的文本框，并编写如下程序：

Private Sub Form_Load()

Show

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Print "程序设计"

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Print "Visual Basic";

End Sub

程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是

A）Visual Basic B）程序设计 C）A程序设计 D）Visual Basic程序设计

（29）设有如下程序：

Private Sub Command1_Click()

Dim sum As Double, x As Double

sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

Next

End Sub

该程序通过For循环计算一个表达式的值，这个表达式是

A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4 C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5

（30）以下有关数组定义的语句序列中，错误的是

A） Static arr1(3) B）Dim arr2() As Integer

arr1(1) = 100 Dim size As Integer

arr1(2) = "Hello" Private Sub Command2_Click()

arr1(3) = 123.45 size = InputBox("输入：")

ReDim arr2(size)

．．．．．．

End Sub

C）Option Base 1 D）Dim n As Integer

Private Sub Command3_Click() Private Sub Command4_Click()

Dim arr3(3) As Integer Dim arr4(n) As Integer

．．．．．． ．．．．．．

End Sub End Sub

解答VB编程试题

* + 3
···现在在公司没有环境我可以告诉你思想，给多少分你决定
1 你可以直接查恺撒密码的实现
2 只能分别的列出。A中可以设置
if i=j
A（i）(j)=2
else
A(i)(j)=0
endif
B可以用循环语句
for i=1to 2
for j=1to3
B(i)(j)=Int(10 * Rnd)
exit j
exit i
第三列由于只有三个数我推荐你直接写相加好了
不过我想出题人是想你用循环语句
你自己决定
A+B也可以用个循环语句
for i=1 to 3
for j=1 to3
C(i)(j)=A(i)(j)+B(i)(j)
print C(i)(j)
exit j
exit i
3 这个在网上蛮多的，你可以直接查到
4 ··完全没意思，你先添加一个按钮控件，CAPTION＝+
然后复制，粘贴。分别把CAPTION改成-*/
那几个按钮的名称应该是
BUTTON（1）
BUTTON（2）
BUTTON（3）
BUTTON（4）
for i=1 to 4
if i=1 then
text3.text=text1.text+text2.text
endif
`
`
`
`
exit i
（1）
Dim a(10) As Integer, b(10) As Integer
For i = 1 To 10
a(i) = i - 1
Print a(i);
Next i
n = InputBox("输入位移的位数")
Print
For i = 1 To 10
j = i + n
If i + n > 10 Then j = j - 10
b(j) = a(i)
Next i
For i = 1 To 10
Print b(i);
Next i
（2）
Dim a(3, 3) As Integer, b(3, 3) As Integer, c(3, 3) As Integer
For i = 1 To 3
For j = 1 To 3
a(i, j) = 0
If i = j Then a(i, j) = 2
Print a(i, j);
If i < 3 Then
b(i, j) = Int(Rnd() * 10)
Else
b(i, j) = b(1, j) + b(2, j)
End If
Next j
Print
Next i
For i = 1 To 3
For j = 1 To 3
Print b(i, j);
c(i, j) = a(i, j) + b(i, j)
Next j
Print
Next i
For i = 1 To 3
For j = 1 To 3
Print c(i, j);
Next j
Print
Next i
（3）
Dim a() As Long
n = InputBox("输入三角形的行数")
ReDim a(n, n)
For i = 1 To n
For j = 1 To n
If j = 1 Or i = j Then
a(i, j) = 1
ElseIf i > 1 Then
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Print a(i, j);
Next j
Print
Next i
（4）
Private Sub Cmdoper_Click(Index As Integer)
Select Case Index
Case 0
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Case 1
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Case 2
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Case 3
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Select
End Sub

求教一道VB程序设计题，题目如下

代码部分如下：
sub command1_click()
dim a(1 to 3, 1 to 3) as integer, s as integer, i as integer,j as integer
s=0
for i=1 to 3
for j=1 to 3
a(i,j)=int(rnd*9)+1
s=s+a(i,j)
print a(i,j)," ";
next j
print
next i
print s
end sub