VB编程题.输入一个整数判断他是否是5 的倍数
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/10 14:49:41
VB编程题.输入一个整数判断他是否是5 的倍数
Private Sub CommandButton1_Click()
Dim nNum As Long
If IsNumeric(TextBox1.Text) Then
nNum = Val(TextBox1.Text)
If nNum Mod 5 = 0 Then
MsgBox "能被5整除!",vbInformation,"提示"
Else
MsgBox "不能被5整除!",vbInformation,"提示"
End If
Else
MsgBox "输入不正确!",vbExclamation,"提示"
TextBox1.SetFocus
End If
End Sub
再问: VB编程题。输入一个整数判断他是否是5 的倍数,要求文本框输入整数,由标签框输出判断结果!
再答: Option Explicit Private Sub Form_Load() Text1.Text = "" End Sub Private Sub Text1_Change() Dim nNum As Long If Text1.Text = "" Then Label1.Caption = "请输入一个整数!" Exit Sub End If If IsNumeric(Text1.Text) Then nNum = Val(Text1.Text) If nNum Mod 5 = 0 Then Label1.Caption = "能被5整除!" Else Label1.Caption = "不能被5整除!" End If Else Label1.Caption = "输入不正确!" End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Then '可以退格 ElseIf KeyAscii >= 48 And KeyAscii
Dim nNum As Long
If IsNumeric(TextBox1.Text) Then
nNum = Val(TextBox1.Text)
If nNum Mod 5 = 0 Then
MsgBox "能被5整除!",vbInformation,"提示"
Else
MsgBox "不能被5整除!",vbInformation,"提示"
End If
Else
MsgBox "输入不正确!",vbExclamation,"提示"
TextBox1.SetFocus
End If
End Sub
再问: VB编程题。输入一个整数判断他是否是5 的倍数,要求文本框输入整数,由标签框输出判断结果!
再答: Option Explicit Private Sub Form_Load() Text1.Text = "" End Sub Private Sub Text1_Change() Dim nNum As Long If Text1.Text = "" Then Label1.Caption = "请输入一个整数!" Exit Sub End If If IsNumeric(Text1.Text) Then nNum = Val(Text1.Text) If nNum Mod 5 = 0 Then Label1.Caption = "能被5整除!" Else Label1.Caption = "不能被5整除!" End If Else Label1.Caption = "输入不正确!" End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 8 Then '可以退格 ElseIf KeyAscii >= 48 And KeyAscii
VB编程题.输入一个整数判断他是否是5 的倍数
编程实现;从键盘上输入一个整数,判断是否能被3或5整除.如果能,则输出"该整数是3或5的倍数.”
编写一个程序,输入一个数,判断它是否是5的倍数
C语言编程 判断输入的一个数是否是5的倍数
使用MyEclips:从键盘输入一个整数,判断是否能被3或者5整除.如果能,输出该整数是3或5的倍数,否者输出:
vb编程 1 已知三个数abc(用随机数产生)找出其中最大值 2输入一个整数,判断它能否被3,5,7整除
VB编程,输入n个整数,求它们的最大公约数.
编程vb题,编程求200–400范围内5的倍数或7的倍数(一个数如果同时是7和5的倍数,则只能加
在vb中编辑程序,输入一个整数,判断是0,正整数,还是负整数
vb例题:任意输入一个整数,编写程序判断该整数的奇偶数
输入一个正整数,编程判断其是否既是5又是7的倍数.若是,则输出“yes”;否则输出“no”.
c语言题 判断输入的整数是否是2或3或4的倍数