vb实验报告-09上课（7）.doc

信息学院 软件工程教研室试 验 报 告（7）院（系）： 课程名称： 日期：班级学号实验室专业姓名计算机号实验名称VB控制结构（循环结构）成绩评定所用软件VB6.0教师签名实验目的或要求1.掌握For语句的使用。2.掌握Do语句各种形式的使用。实验步骤、心得体会1、下列程序段的执行结果为( C )a=5For k=1 To 0 a=a + kNext kPrint k;aA.-1 6B.-1 16C.1 5D.11 212、下列程序段的执行结果为( B ) a=3 b=1 For I=1 To 3 f=a+b a=b b=f Print f Next IA.4 3 6B.4 5 9C.6 3 4D.7 2 83、 有如下程序 Dim I% , J% For I = -3 to 3 Print Tab(7+Abs(I); For j= 1 To 7-2*Abs(I) Print “*”; Next j * print * Next I * 执行程序后结果是_*_。*4、有如下程序 i = 0: n = 0 Do While i =6 Print Number,sEnd Sub 程序运行后，输出的结果是( C )A.2 3B.3 18C.1 8D.10 207、在窗体上画一个名称为Commandl 的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print_ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在下划线处应填入的内容为( B ) A.A.Right(cl,i) B.Left(cl,i) C.Mid(cl,i,1) D.Mid(cl,i,i) 8、下面程序的功能是统计字符串中“i”的个数，请填空。 a=Beijing University of Technology Dim n As Integer n=Len(a) For i=1 To n b=_mid(a,i,1)_ If_i = b _Then x=x+1 Next i Printx=;x9、勾股定理中三个数的关系是a2+b2=c2。编写程序，输出1-20以内满足条件的整数组合。例如：3，4，5Private Sub Command1_Click()For a = 1 To 20 For b = 1 To 20 For c = 1 To 20 If a 2 + b 2 = c 2 Then Print A, b, c End If Next c Next bNext aEnd Sub10、（1）以上三角的形式输出九九乘法表Private Sub Command1_Click()For A = 1 To 9 For b = 1 To A Print Tab(b - 1) * 15); A; *; b; =; A * b; Next b PrintNext AEnd Sub （2）以下三角的形式输出九九乘法表Private Sub Command1_Click() For i = 1 To 9 For j = i To 9 Print Tab(j - 1) * 15); i; *; j; =; i * j; Next j Print Next iEnd Sub11、编写一个程序，输出所有水仙花数。所谓水仙花数，是指一个三位数，其各位数字立方和等于该数字本身，153是一个水仙花数，153=13+53+33Private Sub Command1_Click() For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 a = i * 100 + j * 10 + k If i 3 + j 3 + k 3 = a Then Print a End If Next k Next j Next iEnd Sub说明：也可确定一个三位数的取值范围，通过取模运算、除运算取得各个位上数字进行计算。12、编程计算下列S的值。(1)S=1+2+3+100 Private Sub Command1_Click() Dim s As Integer, i As Integer s = 0 For i = 1 To 100 s = s + i Next i Print sEnd Sub(2)S=123100Private Sub Command1_Click() Dim s As Double, i As Integer s = 1 For i = 1 To 100 s = s * i Next i Print sEnd Sub13、通过InputBox函数输入某班27个学生VB课程考试的成绩，编程求出该班这门课程的平均成绩。Private Sub Command1_Click() Dim sum As Single, mark As Single, i As Integer sum = 0 For i = 1 T