填空题

在窗体上画一个命令按钮，其名称为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 Integer x=Val(Right (Text1．Text，2)) If x Mod 2=0 Then Labe11．Caption=“偶数” Else Labe11．Caption=“奇数” End If Text1．SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If 【10】 ThenKeyAscii=0 End Sub
填空题
假定定义了一个记录类型，名为Rt，同时建立了一个名为Sp.txt的文件，然后编写如下的程序段： Dim Rv As Rt r1=Len(Rv) Open Sp.txt For Random As # 1 x=LOF(1) n=x r1 执行上面的程序段后，变量n中存放的是文件 【6】 中所存放的是 【7】 记录类型的记录数。
相关试题