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
VisualBasic程序设计教程第版实验答案)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)