关于VBA编程在Access的操作
创建一个窗体如图，在文本框中输入一个数值，点击“判断奇偶”按钮，弹出一个消息框提示该数值为奇数或偶数。...
创建一个窗体如图，在文本框中输入一个数值，点击“判断奇偶”按钮，弹出一个消息框提示该数值为奇数或偶数。
展开
1个回答
展开全部
Dim a As Integer
Dim msg As String
a = CInt(Text1.Text)
If a Mod 2 = 0 Then
msg = a & "是偶数"
Else
msg = a & "是奇数"
End If
MsgBox msg
Dim msg As String
a = CInt(Text1.Text)
If a Mod 2 = 0 Then
msg = a & "是偶数"
Else
msg = a & "是奇数"
End If
MsgBox msg
追问
a = CInt(Text1.Text)
第二个Text是什么意思啊，这一句代码不明白，能解释一下吗
追答
a = CInt(Text1.Text) Text1是你的输入文本框的名字，Text1.Text是该文本输入框的值，是字符串类型，因为这里你输入的应该是个Int型的数据需要强制将转换为Int型
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
ZESTRON
2024-09-04 广告
在Dr. O.K. Wack Chemie GmbH，我们高度重视ZESTRON的表界面分析技术。该技术通过深入研究材料表面与界面的性质，为提升产品质量与可靠性提供了有力支持。ZESTRON的表界面分析不仅涵盖了相变化、化学反应、吸附与解吸...
点击进入详情页
本回答由ZESTRON提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
