Question

大学VB试题 急用 采纳后加悬赏~~

在窗体Form1上有一个文本框Text1,1个命令按钮Command1，要求单击按钮时，在文本框中显示窗体的体积。
在窗体Form1上有一个定时器，1个命令按钮，1个标签，编写程序使得单击按钮后，标签的前景颜色和背景颜色每隔一秒钟变换一次。
在窗体Form1上有一个文本框Text1，一个命令按钮Command1，编写程序，使得命令按钮被单击时，将文本框中用户输入的内容显示为窗体的标题。
在窗体Form1上有一个文本框Text1，一个命令按钮Command1，要求单击按钮时，通过输入框（InputBox）输入一个整数，在文本框中显示从1至该数的平方和。
在窗体上有一个复选框Check1，一个文本框Text1，编写程序使得Check1选中时文本框中的字体变成粗体，否则变成非粗体。

Answer 1

'1、在窗体Form1上有一个文本框Text1,1个命令按钮Command1，要求单击按钮时，在文本框中显示窗体的体积。
Private Sub Command1_Click()
Text1.Text = (Me.Height / 567) * (Me.Width / 567) & "平方厘米" '在默认分辨率(96dpi)下，缇/567=厘米
End Sub

'2、在窗体Form1上有一个定时器，1个命令按钮，1个标签，编写程序使得单击按钮后，标签的前景颜色和背景颜色每隔一秒钟变换一次。
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.BackColor = RGB(Int(225 * Rnd), Int(225 * Rnd), Int(225 * Rnd))
Label1.ForeColor = RGB(Int(225 * Rnd), Int(225 * Rnd), Int(225 * Rnd))
End Sub

'3、在窗体Form1上有一个文本框Text1，一个命令按钮Command1，编写程序，使得命令按钮被单击时，将文本框中用户输入的内容显示为窗体的标题。
Private Sub Command1_Click()
Me.Caption = Text1.Text
End Sub

'4、在窗体Form1上有一个文本框Text1，一个命令按钮Command1，要求单击按钮时，通过输入框（InputBox）输入一个整数，在文本框中显示从1至该数的平方和。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Long
j = Val(InputBox("请输入一个整数"))
For i = 1 To j
t = t + i ^ 2
Next
Text1.Text = t
End Sub

'5、在窗体上有一个复选框Check1，一个文本框Text1，编写程序使得Check1选中时文本框中的字体变成粗体，否则变成非粗体。
Private Sub Check1_Click()
If Check1.Value = vbChecked Then Text1.FontBold = True Else Text1.FontBold = False
End Sub