[阅读程序写结果.docVIP

阅读程序写结果 题目：1、 在窗体模块中编写以下Function过程和窗体Click事件过程 Private Function CommFun(n As Integer)As Integer Dim I As Integer S=1 For i=1 To n s=s*i Next i CommFun=s End Function Private Sub Form_Click() Dim Sum As Integer Dim K As Integer sum=0 For k=1To 3 sum=sum+CommFun(k) Next k Print sum End sub 当程序运行时，在窗体中单击鼠标左键时，则程序的输出结果是 。 答案：9 权重：1 难易度：1 题目：2、 在窗体模块中编写以下Sub过程和窗体Click事件过程 Private Sub suba(x As Integer , y As Integer) Dim t As Integer t=x: x=y: y=t End Sub Private Sub Form_Click() Dim a As Integer,b As Integer a=10:b=20 Call suba(a,b) Print a;b Call suba(b,a) Print a;b End Sub 当程序运行时，在窗体中单击左键时，则程序的输出结果是 。 答案：20 10 20 权重：2 难易度：1 题目：3、 在窗体模块中编写以下Function过程和窗体Click事件过程 Private Function funa(x As Integer) As Integer Static s As Integer s=s+x funa=funb(s) End Function Private Function funb(y As Integer)As Integer Static sum As Integer sum=sum+y funb=sum End Function Private Sub Form_Click() Dim acc As Integer ,i As Integer acc=0 For i=1 to 3 acc=acc+funa(i) Next i Print acc End Sub 当程序运行时，在窗体中单击左键时，则程序的输出结果是 。 答案：15 权重：1 难易度：2 题目：4、 在窗体模块中编写以下Sub过程和窗体Click事件过程 Private Sub sub1(ByVal a As Integer,b As Integer) a=a+b b=a+b End Sub Private Sub Form_Click() Dim x As Integer ,y As Integer x=10:y=20 Call sub1(x,y) sub1 x,y Print x;y End Sub 当程序运行时，在窗体中单击左键时，则程序的输出结果是 。 答案：10 110 权重：2 难易度：1 题目：5、在窗体中添加一个文本框（名称为Text1）和一个命令按钮（名称为Command1）， 编写Command1的Click事件过程和通用过程mysub，代码如下： Private sub mysub(pal As String,a As Integer,b As Integer) Dim str As String ,n As Integer,i As Integer n=Len(Trim(pal)) For i=1 to n If Mid(pal,i,1)=”A” And Mid(pal,i,1)=”Z” Then a=a+1 ElseIf Mid(pal,i,1)=”0” And Mid(pal ,i,1)=”9” Then B=b+1 End If Next i End Sub Private Sub Command1_Click() Dim x As Integer ,y As Integer x=0:y=0 Call mysub(Text1.text,x,y) Print x;y End Sub 程序运行过程中，当在Text1文本框中输入：“There are 12 student studying VB”，然后 单击命令按钮时，则程序的输出结果