Question

VB题，求大神帮帮忙，谢谢了~

1、从键盘输入一个正整数，编程判断该数是奇数还是偶数并在窗体上显示出是奇数还是偶数的信息,要求代码写在命令按钮的单击事件里。（10分）
2. 编写程序，使能输出如下图形。（10分）
*
* *
* * *
* * * * *
* * * * * *
* * * * * * *
3、新建工程，在窗体上创建一个命令按钮Command1、一个标签和三个单选钮OptionButton1～3。窗体和控件的大小适当、布局合理，要求：
(1)编写事件过程，设置命令按钮上的文字为“大小”，标签上的文字为“字体颜色”（3分）。
(2)编写事件过程，运行程序后，单击命令按钮可将标签文字改变为28磅（2分）。
(3)编写事件过程，运行程序后，分别单击三个单选钮，可改变标签文字为红色、绿色或蓝色（5分）。
4、判断题：
（ ）1．命令按钮能够响应单击事件
（ ）2．控件的属性值不可以在程序运行时动态地修改。
（ ）3．在VB中可以使用InputBox()函数实现数据的输入。
（ ）4．Integer 是VB的基本数据类型。
（ ）5．Exit For可以用于中途退出For…Next循环语句。
（ ）6．执行Do…Loop While语句时，不管条件真假，首先会无条件地执行一次循环。
（ ）7．a[8]是VB中合法的数组元素。
（ ）8．在过程中定义中过程名后面“（）”里的参数是实参。
（ ）9．在调用过程时给定的过程名后面的参数是实参。
（ ）10．对象的Enable属性决定对象在程序运行时是否可见。Enable 取值True时对象可见，取值False时对象不可见。

Answer 1

1.Private Sub Command1_Click()
a = Val(InputBox("请输入数据"))
If a Mod 2 = 0 Then
Print "偶数"
Else
Print "基数"
End If
End Sub

Answer 2

第二题的图形有没有打错误啊？

追问

没有。

追答

PS：昨天因为中了病毒被强制关机了，一直到现在才弄好，不好意思
1.Private Sub Command1_Click()
Dim X As Integer
X = InputBox("请输入一个正整数！")
If X Mod 2 = 1 Then Print X & "是偶数！" Else Print X & "是奇数！"
End Sub
2.For I = 1 To 6
For J = 1 To IIf(I < 4, I, I + 1)
Print "*";
Next J
Print
Next I
3.新建工程-设计界面-设置属性
Private Sub Form_Load()
Label1.Caption = "字体颜色"
Command1.Caption = "大小"
End Sub
Private Sub Command1_Click()
Label1.FontSize = 28
End Sub
Private Sub Option1_Click()
Label1.ForeColor = RGB(255, 0, 0)
End Sub
Private Sub Option2_Click()
Label1.ForeColor = RGB(0, 255, 0)
End Sub
Private Sub Option3_Click()
Label1.ForeColor = RGB(0, 0, 255)
End Sub
4.√×√√√√×√√×