作业帮设计一个应用程序,其界面如图4.1所示.要求定义一个判断奇偶数的自定义函数过程,程序运行时,在文本框控件Text1中输入一个整数,单击按钮控件Command1“判断奇偶性”调用该函数过程,在文本框
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/06 00:28:35
设计一个应用程序,其界面如图4.1所示.要求定义一个判断奇偶数的自定义函数过程,程序运行时,在文本框控件Text1中输入一个整数,单击按钮控件Command1“判断奇偶性”调用该函数过程,在文本框
设计一个应用程序,其界面如图4.1所示.要求定义一个判断奇偶数的自定义函数过程,程序运行时,在文本框控件Text1中输入一个整数,单击按钮控件Command1“判断奇偶性”调用该函数过程,在文本框控件Text2中输出判定结果.
设计一个程序,其界面如图5.1所示.要求文本框控件在窗体上水平居中显示,文本框内显示的字体为黑体,字号24磅,前景色为红色；程序运行时,单击任一单选按钮后,文本框中将以“我是XXXX级学生”显示学生的年级.
这是VB程序设计的题,请用VB来回答问题,谢谢!
设计一个应用程序,其界面如图4.1所示.要求定义一个判断奇偶数的自定义函数过程,程序运行时,在文本框控件Text1中输入一个整数,单击按钮控件Command1“判断奇偶性”调用该函数过程,在文本框
用excel做的,打开excel文件,在sheet1上点右键,查看代码就可以了
1的程序代码
Private Sub CommandButton1_Click()
If Val(TextBox1.Text) Mod 2 = 0 Then
TextBox2.Text = Trim(TextBox1.Text) & "是偶数"
Else
TextBox2.Text = Trim(TextBox1.Text) & "是奇数"
End If
End Sub
2的程序代码
Private Sub OptionButton1_Click()
TextBox1.Text = ""
TextBox1.Text = "我是" & OptionButton1.Caption & "学生"
End Sub
Private Sub OptionButton2_Click()
TextBox1.Text = ""
TextBox1.Text = "我是" & OptionButton2.Caption & "学生"
End Sub
Private Sub OptionButton3_Click()
TextBox1.Text = ""
TextBox1.Text = "我是" & OptionButton3.Caption & "学生"
End Sub
Private Sub OptionButton4_Click()
TextBox1.Text = ""
TextBox1.Text = "我是" & OptionButton4.Caption & "学生"
End Sub
