Question

VB新手求助：VB简单编程问题，敬请VB高手指点！

新建一个VB工程,工程文件名称为：“工程1.vbp”,并添加一个窗体文件：“Form1.frm。进行如下操作:
（1）在窗体“Form1.frm”中添加“Label1”控件，并设置该控件“Caption”属性值为“输入英寸长度”；
（2）在窗体“Form1.frm”中添加“CommandButton”控件，命名为“Command1”,并设置该控件“Caption”属性值为：“换算后的厘米长度”；
（3）在窗体“Form1.frm”中添加“TextBox”控件，命名为“Text1”,并文本内容为“Text1”；
（4）在窗体“Form1.frm”中添加“TextBox”控件，命名为“Text2”,并文本内容为“Text2”；
（5）编写代码使之实现如下功能：在上面的文本框中输入一个正整数，单击“换算后的厘米长度”按钮，在下面的文本框中输出换算后的长度！(注：1英寸＝2.54厘米）

请问：应该如何编写相应的详细代码？
题二：新建一个VB工程,工程文件名称为：“工程1.vbp”。
（1）在窗体“Form1.frm”中添加两个文本框控件“Text1”和“Text2”,再添加一个“Command1”命令按钮，,并设置该按钮的“Caption”属性值为：“判断”；
（2）编写代码，使之能够实现如下功能：在左边的文本框中输入一个100以内的整数（包括100），单击“判断”按钮，在右边的文本框显示是“奇数”还是“偶数”，输入大于100的整数则显示“输入的整数不能超过100”！

请问：具体的程序代码应如何编写？

Answer 1

（1）（2）（3）（4）自己做，如果连这个都不会，那你就别学VB了，嘿嘿！
（5）的代码给你：很简单。
Private Sub Command1_Click()
Dim Inch As Integer, Cm As Single
Inch = Text1.Text
Cm = Inch * 2.54
Text2.Text = Cm
End Sub
题二：
Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = Text1.Text
If n > 100 Then
MsgBox "输入的整数不能超过100!"
Else
If n Mod 2 = 0 Then
Text2.Text = "偶数"
Else
Text2.Text = "奇数"
End If
End If
End Sub