Question

vb程序 高分悬赏 在线等................................

1、设计程序界面如图所示，要求：单击某单选按钮则在文本框中显示指定的信息，复选框指定显示信息的字体格式。（显示信息为“学号”、“姓名”、“年龄”，字体格式为“粗体”、“斜体”、“下划线”、“红色”中任意3个）
2.设计程序界面如图所示，要求程序运行后在窗体上定时从下到上显示一串椭圆。
3、求1+2*X+3*X^2+4*X^3+....+(N+1)*X^n<10000的最大n值。（x 为输入的数据）。
4、计算S=1*（1+2）*（1+2+3）*......*（1+2+3+...+n）。（n为输入的数据）
1.2题图发不上来，大家帮帮忙~~~
速度越快越好！！！！！！

Answer 1

1.
Private Sub Check1_Click()
Text1.FontBold = True
End Sub

Private Sub Check2_Click()
Text1.FontItalic = True
End Sub

Private Sub Check3_Click()
Text1.FontUnderline = True
End Sub

Private Sub Check4_Click()
Text1.ForeColor = RGB(255, 0, 0)
End Sub

Private Sub Command1_Click()
Text1.Text = "学号 姓名 年龄"
End Sub

Private Sub Form_Load()
Check1.Caption = "粗体"
Check2.Caption = "斜体"
Check4.Caption = "下划线"
Check3.Caption = "红色"
End Sub
2.
Dim i%

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
i = i + 1
Circle (1000, 1000 + i * 100), 500, , , , 0.5
End Sub
3.
Private Sub Command1_Click()
Sum = 1
n = 1
x = Val(InputBox("输入一个整数"))
Do While Sum < 10000
n = n + 1
Sum = Sum + n * x ^ (n - 1)
Loop
Print n
End Sub
4.
Private Sub Command1_Click()
Dim sum As Double
Dim sum1 As Double
sum = 1
n = Val(InputBox("输入一个整数"))
For i = 2 To n
For x = 1 To i
sum1 = sum1 + x
Next x
sum = sum * sum1
Next i
Print sum
End Sub

Answer 2

2.
Dim i%

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
i = i + 1
Circle (1000, 1000 + i * 100), 500, , , , 0.5
End Sub

3.
Private Sub Command1_Click()
Sum = 1
n = 1
x = Val(InputBox("输入一个整数"))
Do While Sum < 10000
n = n + 1
Sum = Sum + n * x ^ (n - 1)
Loop
Print n
End Sub
4.
Private Sub Command1_Click()
Dim sum As Double
Dim sum1 As Double
sum = 1
n = Val(InputBox("输入一个整数"))
For i = 2 To n
For x = 1 To i
sum1 = sum1 + x
Next x
sum = sum * sum1
Next i
Print sum
End Sub