一道关于VB的题目如何用VB判奇偶我这个代码为什么不行为什么什么数都是偶数?Private Sub Command1_C

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/11 12:48:12

一道关于VB的题目
如何用VB判奇偶
我这个代码为什么不行
为什么什么数都是偶数?
Private Sub Command1_Click()
a = Val(Text1.Text)
If Int(n / 2) = n / 2 Then
b = "这个数是偶数"
Else
If Int(n / 1) = n / 1 Then
b = "这个数是奇数"
Else
b = "这个数不是整数"
End If
End If
Label2.Caption = b
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label2.Caption = ""
End Sub

a = Val(Text1.Text) '你这里读的是a
If Int(n / 2) = n / 2 Then '到这里变成n了
改为
n = Val(Text1.Text)
就可以了

vb Private Sub Command1_Click() VB里面Private Sub form_click()什么意思 VB里的“Private Sub Command1_Click()”是什么意思? 请教下面VB 代码的意思 Private Sub Command1_Click() If Combo1.Text "" VB问题Private Sub Command1_Click() 冒泡排序VB代码输入五个数,并降序排列Private Sub Command1_Click()Dim a As Doub 在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X VB里的sub单词是什么意思,比如private sub……、end sub Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As In 一道VB题Private Sub Commad ClickPrint "s=";s(5)End SubPrivate F 问一道VB填空题：Private Sub Form_Click（） Dim x As Integ 如何用VB求两个数的最大公约数和最小公倍数?