B.MsgBox函数没有返回值
C.MsgBox函数有返回值,且返回值类型为字符型
D.通过MsgBox函数中的第一个参数,可以设置信息框中的图标以及按钮的个数与类型
二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行) 1.执行下面程序,单击命令按钮Command1,窗体上显示的第一行内容是___(1)___,第二行内
容是___(2)___,第三行内容是___(3)___
Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer, i As Integer a = 1 b = 5
For i = b To a Step -1 a = a + i b = b + a
If b > 30 Then Exit For Print a, b Next i
Print a, b End Sub
2.执行下面程序,单击命令按钮Command1,最终A(2,2)的值是___(4)___,A(3,1)的值是
___(5)___,A(4,2)的值是___(6)___。 Option Explicit Option Base 1
Private Sub Commandl_Ciick()
Dim A(4,4)As Integer,i As Integer,j As Integer,k As Integer For i=1 To 4
For j=1 To 4 k=k+1 A(i,j)=k Next j Next i
Call Transform(A) For i=1 To 4 For j=l To 4
Text1=Text1 &Right(\ Next j
Text1=Text1 & vbCrLf Nexti End Sub
Private Sub Transform(A() As Integer)
Dim i As Integer,j As Integer,n As Intege,t As Integer,k As Integer n=UBound(A,1) k=n+1
For i=1 To n/2 For j=1 To n
If i<>j And j<>k-i Then t=A(i,j) A(i,j)=A(k-i,k-j) A(k-i,k-j)=t End If Next j Next i End Sub
3.执行下面程序,单击命令按钮Cmd1后,窗体上显示的第一行内容是___(7)___,第二行内容
是___(8)___,第三行内容是___(9)___。 Option Explicit
Private Sub Cmd1_Click()
Dim st As String,ch As String*1,t As Integer Dim i As Integer st=\ For i=1 To Len(st) ch=Mid(st,i,1)
If ch<>\t=t*10+Val(ch) Else
If pd(t) Then Print t t=0 End If
Next i End Sub
Private Function pd(ByVal n As Integer)As Boolean Do While n<>1
If n Mod 2<>0 Then Exit Function EndIf n=n\\2 Loop pd=True
End Function
4.执行下面程序,单击命令按钮CmdRun后,图片框Pic1第一行显示内容是___(10)___,第二
行显示内容是___(11)___,最后一行显示内容是___(12)___。 Option Explicit
Private Sub CmdRun_Click()
Dim N As Integer,M As Integer M=135 N=8
Pic1.Print Fun(M,N) EndSub
Private Function Fun(ByVal N As Integer,ByVal R As Integer)As String Dim L As Integer If N Fun=N Else L=N\\R
Fun=Fun(L,R)
Fun=Fun & N Mod R End If
Pic1.Print N End Function
5.执行下面程序,单击命令按钮CmdRun后,文本框Text1中第一行显示的内容是___(13)___ ,
第二行显示的内容是___(14)___。第三行显示的内容是___(15)___ 。 Option Explicit
Private Sub CmdRun_Click()
Dim S As String,Subs As String,P As Integer S=\ Do
P=InStr(S,\If P<>0 Then
Subs=Left(S,P-1) Else
Subs=S End If
S=Mid(S,P+1)
Text1=Text1 &Complement(Subs) & vbCrLf Loop Until Len(S)=0 Or P=0 End Sub
Private Function Complement(S As String)As Integer Dim P As Integer,L As Integer L=Len(S)
If Left(S,1)=1 Then Complement=-32 End If P=1
Do Until P=0
P=InStr(P+1,S,\
If P<>0 Then
Complement=Complement+2^(L-P) End If Loop
End Function
6.本程序的功能是按公式求S的近似值(计算到第n项的绝对值小于等于10^-7为止)。 S=x-+
*
+(-1)
*
请完善本程序。 Option Explicit
Private Sub Command1_Click()
Dim x As Single,n As Single,T As Single,S As Single x=Val(Text1) S=x Do
___(16)___
T=afun(x,n) S=S+T
Loop Until ___(17)___
Text2=Format(S,\End SUb
Private Function afun(x As Single,n As Single)As Single Dim i As Single,p As Single P=1
For i=1 To n p= ___(18)___ Next i
afun=(-1)^n*p*x^(2*n+1)/(2*n+1) End Function
7.本程序的功能是找出10到60之间所有不可以表示成两个平方数之和的数,请完善本程序?
Option Explicit
Private Sub CmdFind_Click()
Dim i As Integer,j As Integer,k As Integer Dim p As Integer,q As Integer For i=10 To 60
For j=1 To Int(Sqr(i)) ___(19)___ q=i-P
If q<>0 And judge(q) Then Exit For Next j
相关推荐：
loading