柠檬试题库
search
首页 计算机 公务员 驾照 关于
result
若有以下窗体单击事件过程： Private Sub Form_Click() 　　result＝1 　　For i＝1 To 6 step 3 　　　　　　result＝result * i 　　Next i 　　MsgBox result End Sub 打开窗体运行后，单击窗体，则消息框的输出内容是(　　)。
窗体中有命令按钮Command1和文本框Text1，事件过程如下： Function result(ByVal x As Integer)As Boolean 　　If x Mod 2＝0 Then 　　　　 result＝True 　　Else 　　　　 result＝False 　　End If End Function Private Sub Command1_Click() 　　x＝Val(InputBox("请输入一个整数")) 　　If 【 】 Then 　　　　Text1＝Str(x)& "是偶数." 　　Else 　　　　Text1＝Str(x)& "是奇数." 　　End If End Sub 运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数”。那么在程序的括号内应填写(　　)。
窗体中有文本框Text1。运行程序，输入大于0的整数m，单击按钮Command1，程序显示由星号组成的高度为m的等腰三角形。例如，当m=5时，显示图形如下。 * * * * * * * * * * * * * * * * * * * * * * * * * 事件代码如下。 Private Sub Command1_Click() m = Val(Me!Text1) result = "" For k = 1 To m For n = 1 To k + m - 1 If 【 】 Then result = result & " " Else result = result & " *" End If Next n result = result + Chr(13) Next k MsgBox result, , "运行结果" End Sub 程序【 】处应填写的语句是
窗体中有文本框Text1和标签Label1。运行程序时单击按钮Command1，输入整数m（m>0），判断m是否为素数，如果是素数，则在Label1中显示"m 是素数"，否则显示"m 是合数"。 事件代码如下： Private Sub Command1_Click() Dim result As String m = Val(Me!Text1) result = m & " 是素数" k = 2 Do While k <= m / 2 If m Mod k = 0 Then result = m & " 是合数" Exit Do End If k = k + 1 Loop 【 】= result End Sub 程序【 】处应填写的语句是
窗体中有文本框为Text1和Text2。运行程序时单击"运行"按钮Command1，在Text1中输入整数m（m>0），在Text2中显示输出m的全部除1和自身之外的因子。例如，20的因子有2,4,5,10，输出结果为"2,4,5,10,"；16的因子为2,4,8，输出结果为"2,4,8,"。 事件代码如下： Private Sub Command1_Click() m = Val(Me!Text1) resule = "" k = 2 Do If m Mod k = 0 Then result = result & k & "," k = k + 1 Loop While 【 】 Me!Text2 = result End Sub 程序【 】处应填写的语句是
在窗体中有文本框Text1和Text2。运行程序时，在Text1中输入整数m（m>0），单击Command1"运行"按钮，程序能够求出m的全部除1之外的因子，并在Text2显示结果。例如，18的全部因子有2,3,6,9,18，输出结果为"2,3,6,9,18,"；28的全部因子为2,4,7,14,28，输出结果为"2,4,7,14,28"。 事件代码如下： Private Sub Command1_Click() m = Val(Me!Text1) resule = "" For k = 2 To 【 】 If m Mod k = 0 Then result = result & k & "," End If Next k Me!Text2 = result End Sub 程序【 】处应填写的语句是
在窗体中变量m对应的文本框为Text1，"运行"按钮Command1对应的事件代码如下： Private Sub Command1_Click() Dim result As String m = Val(Me!Text1) result = "" For k = 1 To m For n = 1 To k + m - 1 If n < m - k + 1 Then result = result & " " Else result = result & " *" End If Next n result = result + Chr(13) Next k MsgBox result, , "运行结果" End Sub 单击运行按钮后，输入m的值为5，程序的运行结果是