【单选题】P17.窗体中有文本框Text1和标签Label1,运行程序单击按钮Command1,输入整数m(m>0),程序判断m是否为素数,若是素数,则Label1显示“m是素数”,否则显示“m是含数”。 事件代码如下: Private Sub Command1_Click() Dim result As string m=Val(Me!Textl) result=m&"是素数" k=2 Do Whie k...
【简答题】窗体中有文本框Text1和标签Label1。运行程序,输入大于0的整数m,单击按钮Command1,程序判断m是否为素数,若是素数,则Label1显示"m 是素数",否则显示"m 是合数"。事件代码如下:Private Sub Command1_Click()m = Val(Me!Text1)result = m & " 是素数"k = 2Do While k <= m / 2If m Mod k...
【单选题】窗体中有文本框Text1和标签Label1。运行程序,输入大于0的整数m,单击按钮Command1,程序判断m是否为素数,若是素数,则Label1显示"m是素数",否则显示"m是合数"。事件代码如下:Private Sub Command1_Click() m = Val(Me!Text1) result = m & " 是素数" k = 2 Do While k <= m / 2 If m Mo...