Vb上机实验答案
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第一题
1.制作如图所示窗体界面。（用真实的姓名、班级及学号）
2.使时间每隔1秒刷新一次
3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大
值
4.在列表框中输入20、22、24、26、28
Private Sub Command1_Click()
Dim a(1 To 5) As Integer
For i = 1 To 5
a(i) = InputBox("please input a number")
Next i
mmax = a(1)
For i = 1 To 5
If a(i) > mmax Then
mmax = a(i)
End If
Next i
MsgBox mmax
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Time
End Sub
第二题
1.两个文本框里输入两个数字从而确定一个范围。
2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和，
结果显示在label3中。
bel3的背景色每隔1.5秒蓝红交替。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = Text1.Text
b = Text2.Text
s = 0
For i = a To b
If a Mod 3 = 0 Or b Mod 5 = 0 Then
Label3.Caption = Label3.Caption & i & ","
s = s + i * i
End If
Next i
Label3.Caption = s
End Sub
Private Sub Timer1_Timer()
If Label3.BackColor = vbRed Then
Label3.BackColor = vbBlue
Else
Label3.BackColor = vbRed
End If
End Sub
第三题
1、单击按钮，在文本框中显示1到终值的所有整数的平方和
2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数
Private Sub Command1_Click()
Dim a As Integer
a = Text1.Text
s = o
For i = 1 To a
s = s + i * i
Next i
Text2.Text = s
End Sub
Private Sub Command2_Click()
Dim a As Integer
a = Text1.Text
For i = 1 To a
List1.AddItem i
Next i
End Sub
第四题
1、“大家好”的背景颜色红蓝黄交替，单击“停止”按钮时停止
颜色变化
2、在文本框中写入任意数字，单击“生成列表”按钮，将1到文
本框中输入数字之间所有能被3整除得数在列表框中显示
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
Dim a As Integer
a = Text1.Text
For i = 1 To a
If i Mod 3 = 0 Then
List1.AddItem i
End If
Next i
End Sub
Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbBlue
ElseIf Label1.ForeColor = vbBlue Then
Label1.ForeColor = vbYellow
Else: Label1.ForeColor = vbRed
End If
End Sub
第五题
1、“大家好”电子滚动平当单击按钮“开始”时从左向右滚动，
当滚动到屏幕最右端的时候，从新回到最左端开始滚动；单击“停止”按钮时停止滚动
2、在文本框中写入任意内容，单击“添加”按钮可以将文本框中
的内容加入到列表框中
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
List1.AddItem Text1.Text
End Sub