单选题:在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Dim SW As BooleanFunction f

  • 题目分类:VB
  • 题目类型:单选题
  • 查看权限:VIP
题目内容:
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Dim SW As Boolean
Function func(X As Integer)As Integer
If X<20Then
Y=X
Else
Y=20+X
End If
Func=Y
End Function
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
SW=False
End Sub
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
SW=True
End Sub
Private Sub Command l Click()
Dim intNurn As Integer
IntNtim=InputBox(…f)
If SW Then
Print func(intNum)
End If
End Sub
程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果为(  ) A.输出0
B.输出25
C.输出45
D.无任何输出
参考答案:
答案解析:

以下程序的功能是:用冒泡法对数组的10个元素进行排序,最后在窗体上打印排序后的数据。冒泡法的思路:将相邻两个数比较,将小

以下程序的功能是:用冒泡法对数组的10个元素进行排序,最后在窗体上打印排序后的数据。冒泡法的思路:将相邻两个数比较,将小的调到前面。请在空白处填上适当的内容,将

查看答案

在窗体上画一个名称为Command 1的命令按钮,然后编写如下代码:Option Base lPrivate Sub C

在窗体上画一个名称为Command 1的命令按钮,然后编写如下代码:Option Base lPrivate Sub Command 1 Click()d=0c

查看答案

在窗体上画一个名称为Command 1的命令按钮,然后编写如下程序:Option Base lPrivate Sub C

在窗体上画一个名称为Command 1的命令按钮,然后编写如下程序:Option Base lPrivate Sub Command 1_Click()Dim

查看答案

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command 1_Click()Dim a(5)

在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command 1_Click()Dim a(5)As StringFor i=1 T0

查看答案

在窗体上画一个命令按钮,其名称为Command 1,然后编写如下事件过程:Private Sub Command_Cli

在窗体上画一个命令按钮,其名称为Command 1,然后编写如下事件过程:Private Sub Command_Click()Dim a1(4,4),a2(4

查看答案