更多"在窗体上画一个命令按钮,然后编写如下程序:
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】。