更多"在窗体上画一个命令按钮，然后编写如下程序：
Function fu"的相关试题:
[填空题]在窗体上画一个命令按钮，然后编写如下程序：
Function fun(ByVal num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num/10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click（ ）
Dim n As Long
Dim r As Long
n=InputBox(“请输入一个数”)
n=CLng(n)
r=fun(n)
MsgBox r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为 【14】 。
[填空题]在窗体上有一个命令按钮，然后编写如下程序：
Function Trans(ByVal num As Long) As Long
Dim k As Long
k=l
Do While num
k=k * (num Mod 10)
num=num/10
Loop
Trans=k
Print Trans
End Function
Private Sub Commandl_Click( )
Dim m As Long
Dim s As Long
m=InputBox("请输入一个数")
s=Trans(m)
End Sub
程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 【11】 ，在输入对
话框中输入“987”输出 【12】 ，在输入对话框中输入“879”，输出结果为 【13】 。
[单项选择]先在 窗体上添加一个命令按纽，然后编写如下程序：
Function fun(ByVal nm As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num/10
Loop
fun=k
End Function
Private Sub Command1_Click（ ）
Dim n As Long
Dim r As Long
n=InputBox(“请输入一个数”)
n=CLng(n)
r=fun(n)
Print r
End Sub
则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是______。
A. 0
B. 100
C. 200
D. 300
[单项选择]在窗体上画一个命令按钮，然后编写如下程序
Private Sub Command1_Click( )
Dim a As Integer，b As hiteger
a=1
b=2
Print N(a，b)
End Sub
Function N(x As Integer，y As Integer)As Integer
N=IIf(x>y，x，y)
End Function
程序运行后，单击命令按钮，输出结果为
A. 1
B. 2
C. 5
D. 8
[单项选择]在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String*20 End Type Private Sub Command1_Click（ ） Dim MaxSize.NextChar，MyChar Open"D:/temp/female.txt"For Input As #1 MaxSize=LOF(1) For NextChar=1 To MaxSize Seek#1，NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub 程序运行后，单击命令按钮，其输出结果为 ______。
A. True
B. False
C. 0
D. Null
[填空题]在窗体上画一个命令按钮Command1，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim arr（ ）As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox(“请输入一个数学”)
If Val(x)＞4 Then
ReDim arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后，单击命令按钮，在输入对话框中输入12，输出结果为 【10】 。
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl Click（ ）
Dim a（ ）
a＝Array(1，3，5，7)
s=O
For i＝1 TO 3
S=S*10十a(i)
Next i
PrInt S
End Sub
程序运行后，输出结果为( )。
A. 135
B. 357
C. 531
D. 753
[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim Arr1(12)As Integer，Arr2(3)As Integer
Dim Smm As Integer
Sum=2
For i=1 To 12
A. 程序运行后，单击命令按钮，在窗体上的输出结果是______。 16
B. 24
C. 32
D. 36
[单项选择]窗体上画一个命令按钮，然后编写如下代码：
Private Type Record
ID As Integer
Name As String * 20
End Type
Private Sub command1 _ Click(
Open "c: /file. txt" for Input As
MaxSize = LOF (1)
for NextChar =MaxSize To Step-1
Seek #1, NextChar
MyChar=Input(1，#1)
Next NextChar
Print EOF(1)
Close #1
End Sub
程序运行后，单击命令按钮，其输出结果为______。
A. True
B. False
C. 0
D. Null
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_click（ ）
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行一面的程序，单击命令按钮，其输出结果是 【15】 。
[单项选择]在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码：
Dim SaveAll As String
Private Sub Form_Load（ ）
Show
Text1.Text=" "
Text1.SetFocus
End Sub Private Sub Command1_Click（ ）
Text1.Text=LCase(SaveAll)+SaveAll
End Sub Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为( )
A. vbVB
B. 不显示任何信息
C. VB
D. 出错
[填空题]在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Command1_click（ ）
Dim M(10)As Integer
For k=1 To 10
M(k)=12-k
Next k
x=6
MsgboxM(2+M(x))
End Sub
程序运行后，单击命令按钮，消息框显示的是 【13】 。
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（ ）
Do Until b＜O
a=InputBox("输入a的值")
a=Val(A)
b=InputBox("输入b的值")
b=Val(B)
a=a+b
Loop
Print a
End Sub
程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是______。
[填空题]在窗体上画一个命令按钮，然后编写如下程序：
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private Sub Commandl_Click（ ）
inc 2
inc 3
inc 4
Msgbox x；
End Sub
程序执行后，单击Commandl命令按钮，消息框显示结果是 【14】 。
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click（ ）
Do Until b a＝In put Box("输入a的值")
a＝Val(a)
b＝Input Box("输入b的值")
b=Val(b)
a=a＋b
Loop
Print a
End Sub
程序运行后，依次输入5，4，3，2，1，0，-1，-2，则输出结果是【14】。
