从文本框text1中输入一个整数单击判断command1判断其奇偶性并在label1中显示结果

提行位置说下，感想

举报该问题

第1个回答 2012-06-30

Private Sub Command1_Click()
If IsNumeric(Text1) Then Label1.Caption = IIf(Val(Text1) Mod 2 = 1, "奇数", "偶数") Else Label1.Caption = "error!"
End Sub
'---------------------
'换行？其实跟上面代码的意思完全一样，这样好理解一些
Private Sub Command1_Click()
If IsNumeric(Text1) Then
If Val(Text1) Mod 2 = 1 Then
Label1.Caption = "奇数"
Else
Label1.Caption = "偶数"
End If
Else
Label1.Caption = "error!"
End If
End Sub本回答被提问者采纳

第2个回答 2012-06-30

从数据

相似回答

用VB.NET编程,任意输入一个整数,判定该整数的奇偶性答：Private Sub Command1_Click()Dim i As Integer i = Text1.Text If i Mod 2 = 0 Then MsgBox "偶数"Else MsgBox "奇数"End If End Sub

输入一个整数,判断其是奇数还是偶数,如果是奇数,则输出"它是一个奇数...答：int main(void){ int i;scanf("%d",&i);if(i%2==0)printf("it's a Even");/*输出偶数*/ else printf("it's a odd"); /*输出奇数*/ getch();return 0;} 编译成功了！！绝对好用

输入一个整数,判断它的奇偶性,并输出判定结果.答：include <stdio.h> int main(void){ int a;scanf("%d",&a);if (a>0){ if (a%2==0)printf("偶数");else printf("奇数")} return 0;}

编写程序:在文本框TEXT1上任意输入一个整数判断该数的奇偶性 要文本框...答：Private Sub Text1_Change(Index As Integer)text2.Text = IIf(Val(Text1.Text) Mod 2 = 1, "奇数", "偶数")End Sub

VB中,怎么判定一个Textbox中输入的是正整数答：1、打开VB6.0软件，新建一个标准exe工程；2、在设计界面上添加一个Text控件和一个Command控件，Text1的属性Text设置为空，Command1的Caption属性设置为"判断";3、双击Command1控件，进入代码编辑窗口，在代码编辑窗口输入如下代码：Private Sub Command1_Click()Dim n As Doublen = Val(Text1.Text)If...

编写程序,用输入框输入一个整数,判断该数的奇偶性,用消息框输出。自行设...答：Dim i As Integer i = Text1.Text If i Mod 2 = 0 Then MsgBox "输入数为偶数"Else MsgBox "输入数为奇数"End If

大家正在搜

在单击文本框后按什么键删除文本框 ppt如何一个一个文本框出现 VB单击按钮文本框显示 vb单击按钮文本框清除文字 ppt文本框怎么一个个出现 vb文本框显示文字单击文本框结束放映清除文本框对象text1 单击文本框

VB程序编写，在文本框text1里任意输入一个整数，按下“确...

编写程序：在文本框TEXT1上任意输入一个整数判断该数的奇偶...

vb程序设计题，跪求大神解答...急，在线等....高分求答...

在文本框text1中输入n。编写command1的click...

在文本框中输入任意一个正整数,判断奇偶性,vb编程的

在文本框text1中输入5个数，并用逗号隔开，点击comma...

计算机编写程序输入一个整数，并判断其奇偶性。

在主函数中输入一个数,调用函数判断其奇偶性并输出相应信息. ...