' 功能:在窗体上建立两个文本框 Text1( 输入数 ) 及 Text2( 显示结果 ) ,一个命令按钮 Command1(" 判断 ") 。单击按钮时判断 Text1 中输入的数值是否是 4 的倍数。 '------------------------------------------------------- Private Sub Command1_Click() Dim x As Integer '**********SPACE********** If IsNumeric(Text1.Text) = 【 ? 】 Then Text2.Text = " 输入错误 " Exit Sub End If '**********SPACE********** x = CInt( 【 ? 】 ) '**********SPACE********** If 【 ? 】 = 0 Then Text2.Text = " 是 4 的倍数 " Else Text2.Text = " 不是 4 的倍数 " End If End Sub