填空题

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

【参考答案】

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

填空题
在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下事件过程： Private Sub Form_Load() Show Text1.Text= Text2.Text= Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) Text1. Text=Text1.Text+Chr(KeyCode-4) End Sub 程序运行后，如果在Text2文本框中输入“efghi”，则Text1文本框中的内容为 【11】 。
填空题
以下Prime过程，用于判断一个数是否为素数。素数是只能被1和数本身整除的自然数。一个自然数不是素数，就是合数。用被测试的数除以从2开始到该数本身的数，如果能除尽(余数为0)，则为合数；如果都除不尽(余数均不为0)，则为素数。请在划线处将下面过程补充完整： Function Prime(inputvar As Integer)As Integer For i=2 To inputvar-1 If inputvar Mod i= 【13】 Then Go To comfinish End If Next i Prime=inputvar Print 素数 Go To 【14】 comfinish： Prime=inputvar Print 合数 finish： End Function
相关试题