更多"在窗体上画一个命令按钮(名称为Command1),并编写如下代码: "的相关试题:
[单项选择]在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:
Function Func(By Val x As Integer, Y As Integer)
y=x*y
If y>0 Then
Func=x
Else
Func=y
End If
End Function
Private Sub Command1_Click( )
Dim a As Integer, b As Integer
a=3
b=4
c=Func(a, B)
Print" a="; a
Print" b="; b
Print" c="; c
End Sub
程序运行后,单击命令按钮,其输出结果为______。
A. a=3 b=12 c=3
B. a=3 b=4 c=3
C. a=3 b=4 c=12
D. a=13 b=12 c=12
[单项选择]在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:
Function Func(ByVal x As Integer, y As Integer)
y=x*y
If y >0 Then
Func = x
Else
Func = y
End If
End Function
Private Sub Command1_ Click( )
Dim a As Integer, b As Integer
a=3
b=4
c = Func(a, B )
Print "a="; a
Print "b="; b
Print "c="; c
End Sub
程序运行后,单击命令按钮,其输出结果为______。
A. a=3 b=12 c=3
B. a=3 b=4 c=3
C. a=3 b=4 c=12
D. a=13 b=12 c=12
[填空题]在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:
Function M(x As Integer,y As Integer) As Integer
M=IIf(x>y,x,y)
End Function
Private Sub command1 Click( )
Dim a As Integer,b AS Integer
a=100
b=200
Print M(a,b)
End Sub
程序运行后,单击命令按钮,输出结果为 【15】 。
[填空题]在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:
Function M(x As Integer,y As Integer)
M=пf(x>y,x,y)
End Function
Private Sub Command1_Click( )
Dim a As Integer, b As Integer
a=100
b=200
Print M(a,B)
End Sub
程序运行后,单击命令按钮,输出结果为 【15】 。
[填空题]在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序:
Function M(x As Integer,y As Integer)
M=IIf(x>y,x,y)
End FUNction
Private Sub Command1 Click( )
Dim a As Integer,b As Integer
a=100
b=200
Print M(a,B)
End Sub
程序运行后,单击命令按钮,输出结果为 【15】 。
[填空题]在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序:
Function M(x As Integer ,y As Integer)
M=IIf(x>y,x,y)
End Function
Private Sub Command1_Click( )
Dim a As Integer,b As Integer
a=100
b=200
Print M(a,B)
End Sub
程序运行后,单击命令按钮,输出结果为 【15】 。
[填空题]在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test .dat中。请在空格处填上适当的内容,将程序补充完整。
Private Sub Command1_Click( )
Open "c:/test.dat"For 【14】 As #1
For i=1 to Len(Text1.text)
print#1,mid(Text1.Text,i,1)
Next
Close #i
End Sub