VB上机实验指导书(4)

vb上机实验

图4－4 程序运行结果

16

zjh

vb上机实验

实验五 循环结构

【实验目的】

1．掌握For语句的使用。 2．掌握Do语句的使用。

3．掌握如何控制循环条件，防止死循环或不循环。

【实验内容】

1. 利用For循环求S=1+(1+2)+(1+2+3)＋．．．+(1+2+3+．．．+n)的值。提示：本题是先进行内循环累加，再进行外循环累加，因此需要两个累加器．也可用一个循环来实现．括号内每累加一个数，就往S中累加一次。

2．输入一个正整数，利用“当型”循环判断是否素数。提示：“素数”是除了1和该数本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次2～n用做除数去除n，若n不能被其中任何一个数整除，则n为素数。

【实验步骤与指导】

1．实验内容 （1）建立用户界面。

（2）设置对象属性。参考图5－1所示。

图5－1 属性设置 图5－2 程序运行结果 （3）编写事件代码。

Private Sub Command1_Click( )

Dim n As Integer, i As Integer, j As Integer, s As Long

17

zjh

vb上机实验

n = Val(Text1.Text) j = 0: s = 0 For i = 1 To n j = j + i s = s + j Next i

Label2.Caption = \和数S=\Text1.SelLength = Len(Text1.Text) End Sub （4）运行程序

程序输出界面如图5－2所示。

2．实验内容

（1）建立用户界面。参考图5－3所示。

图5－3 界面设计

（2）设置对象属性。 （3）编写事件代码。

Private Sub Text1_GotFocus( )

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text) End Sub

Private Sub Command1_Click() Dim n As Long

Select Case Val(Text1.Text)

Case Is < 3

18

zjh

vb上机实验

MsgBox \请输入一个大于2的整数\注意\Case Is > 2147483647

MsgBox \该数太大\注意\Case Else

n = Val(Text1.Text) s = 0 i = 2

Do While i <= Sqr(n) And s = 0 If n Mod i = 0 Then

s = 1

Else: i = i + 1 End If Loop

If s = 0 Then

a = \是一个素数\Else

a = \不是一个素数\End If

Label1.Caption = Str(n) & a End Select Text1.SetFocus End Sub （4）运行程序

程序运行结果如图5－4所示。

图5－4 程序运行结果

19

zjh

vb上机实验

实验六 Sub过程

【实验目的】

1．掌握Sub过程的定义。 2．掌握Sub过程的调用。

3．掌握Sub过程参数传递规则。

【实验内容】

编写一个求阶乘的过程，调用该过程求4！和6！。

【实验步骤与指导】

1．设计界面

在窗体上添加两个命令按钮和两个标签。初始界面如图6－1所示。

图6－1 初始界面 图6－2 设置属性后的界面 2．设置属性

表6－1 属性设置

对象 Command1 Command2 Label1 Label1 Label2 Label2 属性 Caption Caption Caption BorderStyle Caption BorderStyle 求4！ 求6！ 1-Fixed Single 1-Fixed Single 属性值

设置属性后的界面如图6－2所示。

3．编写程序代码

20

zjh