VisualBasic程序设计教程第版实验答案)

s = 0 For i = 1 To 30 x = 0 For j = 1 To i x = x + 1 s = s + x Next j Next i

Label1.Caption = \前30项的和=\ End Sub

Private Sub command2_Click()

Dim i As Long, s As Double, x As Double i = 1 s = 1 x = 1 Do

i = i + 1 x = x + i s = s + x

Loop Until (s > 5000)

Label2.Caption = \前\项的和=\ End Sub

实验4-4

图2.4.4 实验4.4运行界面

提示：

① 要考虑字母的大写和小写。

② 首先利用Len函数求Text1.Text字符串长度，然后利用For循环结构和Mid函数逐一取字符进行判断是否为字母，若是字母，则利用语句“Text2.Text=字母 & Text2.Text”将字母连接到Text文本框前面，实现反序。 思考：若连接表达式为“Text2.Text & =字母”，效果如何？ Private Sub Command1_Click() Text2.Text = \

For i = 1 To Len(Text1.Text)

Text2.Text = Mid(Text1.Text, i, 1) & Text2.Text Next i End Sub

Private Sub Command2_Click() Text1.Text = \ Text2.Text = \ End Sub

Private Sub Command3_Click() End End Sub

实验4-5

计算

当第i项的值<10-4时结束

提示：

①本题的关键是找规律写通项。本题规律为：第i项的分母是前一项的分母加i，即分母通项为：Ti=Ti-1+i。

图2.4.5 实验4.5运行界面

Dim s!, t!, i&

Private Sub command1_click() t = 1 s = 0 i = 0

Do While t <= 100000 t = t + i s = s + 1 / t i = i + 1 Loop

Print \结构\项\ End Sub

Private Sub command2_Click()

t = 1 s = 0

For i = 1 To 10000 s = s + 1 / t

If t > 100000 Then Exit For t = t + i Next i

Print \结构\项\ End Sub

实验4-6

编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数

字立方和等于该数字本身。例如，153是水仙花数，因为

提示：

解该题的方法有两种：

① 利用三重循环，将三个数连接成一个3位数进行判断。

例如，将i,j,k，3个一位数连成一个3位数的表达式为：i*100+j*10+k；‘i,j,k