48．若s=1*2*3*4*……*n，下列VB程序的功能是求s不大于1000时的最大n值，请将程序中横线处补充完整。 Dim s As Integer, n As Integer s = 1 n = 1 Do While n = n + 1 s = Loop
Print \– 1
49.如果一个正三位整数等于它的每个数字的立方和，则称次数为“水仙花数”（如：153=1^3+5^3+3^3）。下列程序用于求出100-999之间的所有“水仙花数”，请讲画线处的语句补充完整。 Private Sub Command1_Click() Dim m As Integer, n As Integer
Dim a As Integer, b As Integer, c As Integer For m = 100 To 999 a = b = c =
n = a^3+b^3+c^3
If Then List1.AddItem Str(m) Next m
50．编写计算 1 + 1/2 + 1/3 + 1/4 + ...... + 1/100 的程序，请填空补充完善程序。
说明：使用三个控件，
①LABEL控件用于提示说明累加什么。如：\计算1 + 1/2 + 1/3 + 1/4 + ...... + 1/100\
②COMMANDBUTTON控件用于事件单击触发。
11 / 12
③TEXT控件用于显示结果，并放于变量a中。 Private Sub Command1_click() Dim a As Double Dim b As Double Dim i As Integer a = 0
For i = 1 To b = a = a + b Next i
Text1.Text = a
三、vb函数练习
Abs(-10)=Int(3.2+5.1)= Int(-9.9)=sqr((-2)^2)=
rnd取值范围_________________
int(rnd*10)+10取值范围___________________ int(rnd*10+1)+10 取值范围_________________ mid(“abcdefg”,3,2)=len(“abcedfg”)=
val(“456”)= str(123)= chr(65)= asc(“A”)=
12 / 12
高中信息技术习题vb部分
