填空题

在窗体上画一个命令按钮，其名称为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】 。

【参考答案】

200
<上一题 目录 下一题>
热门 试题

填空题
下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。Private Sub Command1_Click()Dim x AS Integerx=Val(Right (Text1．Text，2))If x Mod 2=0 ThenLabe11．Caption=“偶数”ElseLabe11．Caption=“奇数”End IfText1．SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If 【10】 ThenKeyAscii=0End Sub
填空题
在下面程序的执行过程中，将要进行 【13】 次循环，而在第3次循环输出的数据是 【14】 。Private Sub Command1 Click()Dim b(-1 To 3)For i=LBound(b，1)To UBound(b，1)b(i)=2*iPrint i，b(i)Next iEnd Sub
相关试题