vb阅读.doc

YDCX_Ti Ti_H Ti_Mu Re_ABCD Result 1 在窗体模块中编写以下Function过程和窗体Click事件过程Private Function CommFun(n As Integer)As IntegerDim I As IntegerS=1 For i=1 To ns=s*iNext iCommFun=sEnd Function Private Sub Form_Click()Dim Sum As IntegerDim K As Integersum=0For k=1 To 3sum=sum+CommFun(k)Next kPrint sumEnd sub 当程序运行时,在窗体中单击鼠标左键时,则程序的输出结果是( )。 9 2 在窗体模块中编写以下Sub过程和窗体Click事件过程Private Sub suba(x As Integer , y As Integer)Dim t As Integert=x: x=y: y=tEnd Sub Private Sub Form_Click()Dim a As Integer,b As Integer a=10:b=20Call suba(a,b)Print a;b;Call suba(b,a)Print a;bEnd Sub当程序运行时,在窗体中单击左键时,则程序的输出结果是( )。 20 10 10 20 3 在窗体模块中编写以下Function过程和窗体Click事件过程Private Function funa(x As Integer) As IntegerStatic s As Integers=s+xfuna=funb(s)End FunctionPrivate Function funb(y As Integer)As IntegerStatic sum As Integersum=sum+yfunb=sumEnd FunctionPrivate Sub Form_Click()Dim acc As Integer ,i As Integeracc=0For i=1 to 3acc=acc+funa(i)Next iPrint accEnd Sub当程序运行时,在窗体中单击左键时,则程序的输出结果是 ( )。 15 4 在窗体模块中编写以下Sub过程和窗体Click事件过程Private Sub sub1(ByVal a As Integer,b As Integer)a=a+bb=a+bEnd SubPrivate Sub Form_Click()Dim x As Integer ,y As Integerx=10:y=20Call sub1(x,y)sub1 x,yPrint x;yEnd Sub当程序运行时,在窗体中单击左键时,则程序的输出结果是( )。 10 110 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 nIf Mid(pal,i,1)=A And Mid(pal,i,1)=Z Thena=a+1ElseIf Mid(pal,i,1)=0 And Mid(pal ,i,1)=9 ThenB=b+1End IfNext iEnd SubPrivate Sub Command1_Click()Dim x As Integer ,y As Integerx=0:y=0Call mysub(Text1.text,x,y)Print x;yEnd Sub程序运行过程中,当在Text1文本框中输入:There are 12 student studying VB,然后单击命令按钮时,则程序的输出结果为 ( )。 3 2 6 在窗体模块中编写以下Sub过程和窗体Click事件过程Private Sub sub1(arr() As Integer , ByVal n As Integer)For i=1 To 5arr(i)=i^nNext iEnd SubPrivate Sub form_click()Dim a(1 To 5) As Integer ,i As IntegerCall