假定有以下函数过程:Function Fun(S As String)As StringDim Sl AS StringFor i=1 TO Len(S)sl=U
假定有以下函数过程: Function Fun(S As String) As String Dim sl As String For i=1 To Len(S) s1=UCase (Mid(S,i,1))+s1 Next i Fun=s1 End Function则Str2=Fun("abcdefg”)的输出结果为()。
A.abcdefg
B.ABCDEFG
C.gfedcba
D.GFEDCBA
假定有以下函数过程: Function Fun(S As String)As String Dimsl As String Fori=1 To Len(S) s1=UCase(Mid(S,i,1))+s1 Nexti Fun=s1 End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() DimStrl As String,Str2 As Str
A.abcdefg
B.ABCDEFG
C.gfedcba
D.GFEDCBA
(33)假定有以下函数过程:
Function Fun(S As String)As String
Dim s1 As String
For i=1 To Len(S)
s1=LCase(Mid(S, i, 1))+s1
Next i
Fun=s1
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Srt2
End Sub
程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”按钮后在窗体
上的输出结果为()。
A)ABCDEFG
B)abcdefg
C)GFEDCBA
D)gfedcba
假定有以下函数过程: Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1=UCase(Mid(S,i,1))+s1 Next i Fun=S1 End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim Str1 As String,Str2 As String Str1=Input Box(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”按钮后在窗体上的输出结果为
A.abederg
B.ABCDEFG
C.gfedcba
D.GFEDCBA
假定有以下函数过程: Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1 = UCase(Mid(S, i, 1)) +s1 Next i Fun =s1 End Function 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim Str1 As String, Str2 As String Strl = InputBox(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定” 按钮后在窗体上的输出结果为,
A.abcdefg
B.ABCDEFG
C.gfedcba
D.GFEDCBA
A. Private Function f(x As String ) As Single
B. Private Function f(x As String )
C. Private Sub f(x As String ) As Single
D. Private Sub f(x As String )
A.Private Function f(x As String ) As Single
B.Private Function f(x As String )
C.Private Sub f(x As String ) As Single
D.Private Sub f(x As String )
设有以下函数过程:
Functiofun(m As Integer)As Integer
Dimk As Integer,sum As Integer
sum=0
Fork=m To 1 Step-2
sum=sum+k
Nextk
fun=sum
End Function
若在程序中用语句s=fun(10)调用此函数,则s的值为______。
计算n!的函数过程如下:
Private Function fact(n As Integer)As Long
f = 1
For i = 1 To n
f = f * i
Next i
(___________________)
End Function
下划线处需要编写的语句是()。
A. f = 1
B. f = fact
C. fact = f
D. 不需要其他任何语句
设有一个窗体,内有一个名称为Command1的命令按钮,该模块内还有一个函数过程:
Public Function f(x As Integer)As Integer
Dim y As Integer
x=20
y=2
f=x*y
End Function
Private Sub Command1_Click()
Dim y As Integer
StatiC x As Integer
x=10
y=5
y=f(x)
Debug.Print x;y
End Sub程序运行后,如果单击命令按钮,则在立即窗口上显示的内容是( )。
A.10 5 B.20 5 C.20 40 D.10 40
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!