[填空题]编写如下通用过程：
Sub proc(By Val Rum As Long，ByRef ren As Long)
Dim k As Long
K=1
hum=Abs(NUN)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
ren=k
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim m As Long, r As Long
n=InputBox("请输入一个整数")
n=CLng(n)
proc n, r
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中345，输出结果是______。

更多"编写如下通用过程： Sub proc(By Val Rum As L"的相关试题:

[填空题]编写如下通用过程：
Sub proc(By Val num As Long， ByRef ren As Long)
　　Dim k As Long
　　K = 1
　　hum = Abs(num)
　　Do While num
　　　　k = k *(num Mod 10)
　　　　num = num/ 10
　　Loop
　　ren = k
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
　　Dim n As Long， r As Long
　　n = InputBox("请输入一个整数")
　　n = CLng(n)
　　proc n， r
　　Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中345，输出结果是______。

查看答案

[填空题]编写如下通用过程：
Sub proc(By Val num As Long，ByRef ren As Long)
Dim k As Long
K = 1
num=Abs(num)
Do While num
k= k *(num Mod 10)
num=num/ 10
Loop
ren=k
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（　）
Dim n As Long， r As Long
n=InputBox("请输入一个整数")
n = CLng(n)
proc n，r
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是【15】。

查看答案

[单项选择]在窗体上画一个命令按钮，然后编写如下程序： Sub S1(By Val x As Integer, By Val y As Integer) Dim t As Integer t=x x=y y=r End Sub Private Sub Command1_Click（　） Dim a As Integer, b As Integer a=10 b=30 S1 a，b Print"a=";"b=";b End Sub 程序运行后，单击命令按钮,．输出结果是______。
A. a=30 b=10
B. a=30 b=30
C. a=10 b=30
D. a=10 b=10

查看答案

[单项选择]假定有以下两个过程：
Sub SI (By Val x As Integer，By Val y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Sub S2(x As Integer，y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
则以下说法中正确的是______。
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现
B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现
C. 用过程S1和S2都可以实现交换两个变量的值的操作
D. 用过程S1和S2都不能实现交换两个变量的俏的操作

查看答案

[单项选择]有下列两个过程：
Sub S1(By Val x As Integer, By Val y As Integer)
Dim t As Integer
t=X
x=y
y=t
End Sub
Sub S2(x As Integer, y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
则下列叙述中正确的是( )。
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现
B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现
C. 用过程S1和S2都可以实现交换两个变量的值的操作
D. 用过程S1和S2都不能实现交换两个变量的值的操作

查看答案

[单项选择]假定有以下两个过程：
Sub S1(By Val x As Integer，By Val y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Sub S2(x As Integer，y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
则以下说法中正确的是 ______。
A. 用过程S1可以实现交换两个变量的值的操作，S2不能实现
B. 用过程S2可以实现交换两个变量的值的操作，S1不能实现
C. 用过程S1和S2都可以实现交换两个变量的值的操作
D. 用过程S1和S2都不能实现交换两个变量的值的操作

查看答案

[单项选择]单击窗体时，下列程序的执行结果是　　Private Sub Invert(By Val xstr As String，ystr As String)　　　　Dim tempstr AS String　　　　Dim I AS Integer　　　　I=Len(xstr)　　　　Do While I＞=1　　　　　tempstr=tempstr + Mid(xstr，I，1)　　　　　I=I - 1　　　　Loop　　　　ystr=tempStr　　End Sub　　Private Sub Form_Click( )　　　　Dim s1 As String，s2 As String　　　　S1="abcdef"　　　　Invert S1，S2　　　　Print S2　　End Sub
A. abcdef
B. afbecd
C. fedcba
D. defabc

查看答案

[单项选择]编写如下事件过程：
Private sub sub1 (ByVal x1 As String, y1 As String)
Dim xt As String
Dim i As Integer
i = Len(x1)
Do While i＞= 1
xt = xt + Mid(x1, i, 1)
i=i-1
Loop
y1 = xt
End Sub
Private Sub Form Click（　）
Dim s1 As String, s2 As String
s1= "teacher"
sub1 s1, s2
Print s2
End Sub
程序运行后，单击窗体，则窗体上显示的内容是
A. rehcaet
B. tahreee
C. themee
D. eerthea

查看答案

[填空题]设有如下程序
Private Sub Search(a（　）As Variant,By Val key As Variant,index%)
　　Dim I%
　　For I=LBound(a) To UBound(a)
　　If key=a(I) Then
　　Index=I
　　Exit Sub
　　End If
　　Next I
　　Index=-1
End Sub
Private Sub Form_Load（　）
Show
Dim b（　） As Variant
Dim n As Integer
b=Array(1,3,5,7,9,11,13,15)
Call Search(b,11,n)
print n
End Sub
程序运行后，输出结果是______。

查看答案

[填空题]有一个过程如下： Sub Sub1(m As Integer，total As Long) Dim i AS Integer 　　total=1 　　For i=1 To m 　　　　total=total*i 　　Next End Sub 调用它的事件过程如下： Private Sub Command1_Click（　） Dim tot As Long，a As Integer 　　a=Val(InputBox("请输入数据")) 　　Call Subl(a,tot) 　　Print tot End Sub 则输入数据5，运行结果为______。

查看答案

[填空题]有一个过程如下：
Sub Sub1(m As Integer，total As Long)
Dim i AS Integer
　　total=1
　　For i=1 To m
　　　　total=total*i
　　Next
End Sub
调用它的事件过程如下：
Private Sub Command1_Click（　）
Dim tot As Long，a As Integer
　　a=Val(InputBox("请输入数据"))
　　Call Subl(a,tot)
　　Print tot
End Sub
则输入数据5，运行结果为______。

查看答案

[单项选择]设有如下通用过程： Public Sub Fun(a（　），By Val x As Integer) Fori=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下的事件过程： Private Sub Commandl_Chck（　） Dimart(5)As Variant Fori=1 To 5 arr(i)=i Next n=10 Call Fun(alt（　），n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是( )。
A. 10
B. 15
C. 25
D. 24

查看答案

[单项选择]有如下的一个函数过程：
Function fn(By Val hum AS Long)
Dim k As Long
k=l
num=Abs(nam)
Do While nnm
k=k*(nnm Mod 10)
num=num/10
Loop
fn=k
End Function
以下是一个调用该函数的事件过程，运行程序后，在输入对话框输入数字“123”，该过程的运行结果是( )。
Private Sub Command5_Click（　）
Dim n AS Long
Dim r AS Long
n=InputBox(“请输入一个数值”)
n=CLng(n)
r=fn(n)
Print r
End Sub
A. 12
B. 6
C. 3
D. 1

查看答案

我来回答:

提交