Question

For X=1 to 2 a=0 For y=1 to X+1 a=a+1 Next y Print a Next X

Answer 1

下列程序运行后,输出的结果是（ 2,3）

For X=1 To 2

a =0

For y=1 To x+1

a =a+1

Next y

Print a

Next x

Private Sub Check1_Click()

If Check1.Value = 1 Then

____text1. FontName=“宋体”______________________ (将字体改为宋体)

Else

Text1.Visible = False

End If

End Sub

Private Sub Check2_Click()

___text1.FontiTalic=true_____________ (设置选中斜体,不选则取消斜体设置)

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

____text1._FontSize=16_________________ (设置字号为16)

Else

____text1._FontSize=_12_________________ (设置字号为12)

End If

End Sub

Private Sub Check4_Click()

If Check4.Value = 1 Then

____text1.ForeColor =vbpurple___________________ (设置字体为紫色)

Else

__________text1.ForeColor =vbblack________________ (设置字体为黑色)

End If

End Sub

太湖的?我都找到了...