Question

设计vb程序，要求：从文本框Text1中接收输入的数据，当单击确定按钮（command）时，如果该

设计vb程序，要求：从文本框Text1中接收输入的数据，当单击确定按钮（command）时，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出，否则将焦点定位在文本框Text1中，选中其中的文本。

Answer 1

Private Sub Command1_Click()
Dim k As Long
Dim kmod As Integer
k = CLng(Text1.Text)
kmod = k Mod 3
If kmod = 2 Then
kmod = k Mod 5
If kmod = 3 Then
kmod = k Mod 7
If kmod = 4 Then
text2.Text = text2.Text & ";" & k
Exit Sub
End If
End If
End If

Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub

采纳吧。