Question

VB题目求解 2.使用单选按钮来改变文本框中字体的字体形状（至少三种字体） 3.利用计时器每隔一秒

VB题目求解
2.使用单选按钮来改变文本框中字体的字体形状（至少三种字体）
3.利用计时器每隔一秒对标签（Label）上的字体进行放大，当放大到一定程度后减小到合适大小，使其重复放大过程。
4.采用通用过程（Sub或Function）方法计算5! + 10! + 15!（）
5.打印“九九乘法表”
做出来全对的话追加100财富值

Answer 1

第2题

Private Sub Option1_Click(Index As Integer)

Text1.Font = Option1(Index).Caption

End Sub

第3题

Private Sub Timer1_Timer()

Static i

i = i + 1

If i = 100 Then i = 10

Label1.FontSize = i

End Sub

第4题

Private Sub Command1_Click()

Text2 = "5!+10!+15!=" + Str(jc(5) + jc(10) + jc(15))

End Sub

Function jc(n As Integer) As Double

Dim i%, m

m = 1

For i = 1 To n

m = m * i

Next

jc = m

End Function

第五题

Private Sub Command2_Click()

Dim i%

For i = 1 To 9

  For j = 1 To i

  Print j & "×" & i & "=" & i * j & Space(3);

  Next j

  Print

  Next i

  

End Sub

追问

其他的呢…

其他的呢

追答

我已修改你重新看看

看到了吗