Vb上机实验答案.doc

第一题1. 制作如图所示窗体界面。（用真实的姓名、班级及学号）2. 使时间每隔1秒刷新一次3. 单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大值4. 在列表框中输入20、22、24、26、28Private Sub Command1_Click()Dim a(1 To 5) As IntegerFor i = 1 To 5 a(i) = InputBox(please input a number)Next immax = a(1)For i = 1 To 5 If a(i) mmax Then mmax = a(i) End IfNext iMsgBox mmax End SubPrivate Sub Timer1_Timer()Label2.Caption = TimeEnd Sub第二题1. 两个文本框里输入两个数字从而确定一个范围。2. 单击“计算”按钮求出这个范围中能被3或5整除的数的平方和，结果显示在label3中。3. Label3的背景色每隔1.5秒蓝红交替。Private Sub Command1_Click()Dim a As IntegerDim b As Integera = Text1.Textb = Text2.Texts = 0For 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 = sEnd SubPrivate Sub Timer1_Timer()If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End IfEnd Sub第三题1、 单击按钮，在文本框中显示1到终值的所有整数的平方和2、 单击生成列表按钮，在列表框中显示1到终值之间的所有整数Private Sub Command1_Click()Dim a As Integera = Text1.Texts = oFor i = 1 To as = s + i * iNext iText2.Text = sEnd SubPrivate Sub Command2_Click()Dim a As Integera = Text1.TextFor i = 1 To aList1.AddItem iNext iEnd Sub第四题1、 “大家好”的背景颜色红蓝黄交替，单击“停止”按钮时停止颜色变化2、 在文本框中写入任意数字，单击“生成列表”按钮，将1到文本框中输入数字之间所有能被3整除得数在列表框中显示Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()Dim a As Integera = Text1.TextFor i = 1 To aIf i Mod 3 = 0 ThenList1.AddItem iEnd IfNext iEnd SubPrivate Sub Timer1_Timer()If Label1.ForeColor = vbRed ThenLabel1.ForeColor = vbBlueElseIf Label1.ForeColor = vbBlue ThenLabel1.ForeColor = vbYellowElse: Label1.ForeColor = vbRedEnd IfEnd Sub第五题1、 “大家好”电子滚动平当单击按钮“开始”时从左向右滚动，当滚动到屏幕最右端的时候，从新回到最左端开始滚动；单击“停止”按钮时停止滚动2、 在文本框中写入任意内容，单击“添加”按钮可以将文本框中的内容加入到列表框中Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click() List1.AddItem Text1.TextEnd SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left + 100 If Label1.Left Form1.Width - Label1.Width Then Label1.Left = 0End IfEnd Sub第六题1、 标签中写入“大家好”，每秒钟“大家好”和“哈哈”交替出现（即，第一秒出现“大家好”。第二秒出现“哈哈”依次交替）2、 提示：使用计时器控件完成交替出现3、 两个文本框中任意输入数字，当单击“显示”按钮，在标签2中显示数值大的数，如果输入的数值相同，在标签2中显示“数值相等”。Private Sub Command1_Click()If Text1.Text Text2.Text Then Label2.Caption = Text1.TextElse If Text1.Text = Text2.Text Then Label2.Caption = 数值相等 Else Label2.Caption = Text2.Te