20. 有人编写了如下程序: Private Sub Form_Click() Dim s As Integer, x As Integer s=0 x=0 Do While s=10000 x=x+1 s=s+x^2 Loop Print s End Sub 上述程序的功能是:计算s=1+22+32+…+n2+…,直到s>10000为止。程序运行后,发现得不到正确的结果,必须进行修改。下列修改中正确的是。
21. 设有如下程序: Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后,单击窗体,输出结果是。
24. 设有如下程序: Private Sub Form_Click() Dim i As Integer, x As String, y As String x="ABCDEFG" For i=4 To 1 Step-1 y=Mid(x, i, i)+y Next i Print y End Sub 程序运行后,单击窗体,输出结果为。
25. 设有如下程序: Private Sub Form_Click() Dim ary(1 To 5)As Integer Dim i As Integer Dim sum As Integer For i=1 To 5 ary(i)=i+1 sum=sum+ary(i) Next i Print sum End Sub 程序运行后,单击窗体,则在窗体上显示的是。
26. 有一个数列,它的前3个数为0,1,1,此后的每个数都是其前面3个数之和,即0,1,1,2,4,7,13,24,…… 要求编写程序输出该数列中所有不超过1000的数。 某人编写程序如下: Private Sub Form Click() Dim i As Integer, a As Integer, b As Integer Dim c As Integer, d As Integer a=0:b=1:c=1 d=a+b+c i=5 While d<=1000 Print d; a=b:b=c:c=d d=a+b+c i=i+1 Wend End Sub 运行上面的程序,发现输出的数列不完整,应进行修改。以下正确的修改是。
29. 阅读程序: Function fac(ByVal n As Integer)As Integer Dim temp As Integer temp=1 For i%=1 To n temp=temp*i% Next i% fac=temp End Function Private Sub Form_Click() Dim nsum As Integer nsum=1 For i%=2 To 4 nsum=nsum+fac(i%) Next i% Print nsum End Sub 程序运行后,单击窗体,输出结果是。
30. 在窗体上画一个命令按钮和一个标签,其名称分别为Command1和Label1,然后编写如下代码: Sub s(x As Integer, y As Integer) Static z As Integer y=x*x+z z=y End Sub Private Sub Command1 Click() Dim i As Integer, z As Integer m=0 z=0 For i=1 To 3 S i, Z m=m+z Next i Labell. Caption=Str(m) End Sub 程序运行后,单击命令按钮,在标签中显示的内容是。
33. 在窗体上画一个名称为CD1的通用对话框,并有如下程序: Private Sub Form_Load() CD1. DefaultExt="doc" CD1. FileName="c:\file1.txt" CD1.Filter="应用程序(*.exe)|*.exe" End Sub 程序运行时,如果显示了“打开”对话框,在“文件类型”下拉列表中的默认文件类型是。
7. 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() x=1 Result=1 While x<=10 Result=______ x=x+1 Wend Print Result End Sub 上述事件过程用来计算10的阶乘。请填空。
8. 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() t=0:m=1:Sum=0 Do t=t+ Sum=Sum+ m=m+2 Loop While Print Sum End Sub 该程序的功能是,单击命令按钮,则计算并输出以下表达式的值: 1+(1+3)+(1+3+5)+…+(1+3+5+…+39) 请填空。
9. 在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click() Dim M(10) As Integer For k=1 To 10 M(k)=12-k Next k x=6 Print M(2+M(x)) End Sub 程序运行后,单击命令按钮,输出结果是______。
10. 在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim n As Integer n=Val(InputBox("请输入一个整数:")) If n Mod 3=0 And n Mod 2=0 And n Mod 5=0 Then Print n+10 End If End Sub 程序运行后,单击命令按钮,在输入对话框中输入60,则输出结果是______。
11. 在窗体上画一个命令按钮,名称为command1,然后编写如下程序: Private Sub Command1_Click() Dim ct As String Dim nt As Integer Open "e:\stud. txt" Do While True ct=InputBox("请输入姓名:") If ct=Then Exit Do nt=Val(InputBox("请输入总分:")) Write #1, Loop Close #1 End Sub 以上程序的功能是,程序运行后,单击命令按钮,则向e盘根目录下的文件stud. txt中添加记录(保留已有记录),添加的记录由键盘输入;如果输入“end”,则结束输入。每条记录包含姓名(字符串型)和总分(整型)两个数据。请填空。