设计一个应用程序,其界面如图4.1所示.要求定义一个判断奇偶数的自定义函数过程,程序运行时,在文本框控件Text1中输入一个整数,单击按钮控件Command1“判断奇偶性”调用该函数过程,在文本框
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 02:47:01
![设计一个应用程序,其界面如图4.1所示.要求定义一个判断奇偶数的自定义函数过程,程序运行时,在文本框控件Text1中输入一个整数,单击按钮控件Command1“判断奇偶性”调用该函数过程,在文本框](/uploads/image/z/13869398-38-8.jpg?t=%E8%AE%BE%E8%AE%A1%E4%B8%80%E4%B8%AA%E5%BA%94%E7%94%A8%E7%A8%8B%E5%BA%8F%2C%E5%85%B6%E7%95%8C%E9%9D%A2%E5%A6%82%E5%9B%BE4.1%E6%89%80%E7%A4%BA.%E8%A6%81%E6%B1%82%E5%AE%9A%E4%B9%89%E4%B8%80%E4%B8%AA%E5%88%A4%E6%96%AD%E5%A5%87%E5%81%B6%E6%95%B0%E7%9A%84%E8%87%AA%E5%AE%9A%E4%B9%89%E5%87%BD%E6%95%B0%E8%BF%87%E7%A8%8B%2C%E7%A8%8B%E5%BA%8F%E8%BF%90%E8%A1%8C%E6%97%B6%2C%E5%9C%A8%E6%96%87%E6%9C%AC%E6%A1%86%E6%8E%A7%E4%BB%B6Text1%E4%B8%AD%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%95%B4%E6%95%B0%2C%E5%8D%95%E5%87%BB%E6%8C%89%E9%92%AE%E6%8E%A7%E4%BB%B6Command1%E2%80%9C%E5%88%A4%E6%96%AD%E5%A5%87%E5%81%B6%E6%80%A7%E2%80%9D%E8%B0%83%E7%94%A8%E8%AF%A5%E5%87%BD%E6%95%B0%E8%BF%87%E7%A8%8B%2C%E5%9C%A8%E6%96%87%E6%9C%AC%E6%A1%86)
设计一个应用程序,其界面如图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