Vb上机实验答案

《Vb上机实验答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第一题1.制作如图所示窗体界面。（用真实的姓名、班级及学号）2.使时间每隔1秒刷新一次3.单击“最大值”命令按钮时，算出通过键盘输入的5个数的最大值4.在列表框中输入20、22、24、26、28 PrivateSubCommand1_Click()Dima(1To5)AsIntegerFori=1To5a(i)=InputBox("pleaseinputanumber")Nextimmax=a(1)Fori=1To5Ifa(i)>mmaxThenmmax=a(i)EndIfNextiMsgBoxmmaxEndSubPrivateSubTimer1_Timer()Labe

2、l2.Caption=TimeEndSub第二题1.两个文本框里输入两个数字从而确定一个范围。2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和，结果显示在label3中。3.Label3的背景色每隔1.5秒蓝红交替。PrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegera=Text1.Textb=Text2.Texts=0Fori=aTobIfaMod3=0OrbMod5=0ThenLabel3.Caption=Label3.Caption&i&","s=s+i*iEndIfNextiLabel3.Capti

3、on=sEndSubPrivateSubTimer1_Timer()IfLabel3.BackColor=vbRedThenLabel3.BackColor=vbBlueElseLabel3.BackColor=vbRedEndIfEndSub第三题1、单击按钮，在文本框中显示1到终值的所有整数的平方和2、单击生成列表按钮，在列表框中显示1到终值之间的所有整数PrivateSubCommand1_Click()DimaAsIntegera=Text1.Texts=oFori=1Toas=s+i*iNextiText2.Text=sEndSubPrivateSubComm

4、and2_Click()DimaAsIntegera=Text1.TextFori=1ToaList1.AddItemiNextiEndSub第四题1、“大家好”的背景颜色红蓝黄交替，单击“停止”按钮时停止颜色变化2、在文本框中写入任意数字，单击“生成列表”按钮，将1到文本框中输入数字之间所有能被3整除得数在列表框中显示PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand3_Click

5、()DimaAsIntegera=Text1.TextFori=1ToaIfiMod3=0ThenList1.AddItemiEndIfNextiEndSubPrivateSubTimer1_Timer()IfLabel1.ForeColor=vbRedThenLabel1.ForeColor=vbBlueElseIfLabel1.ForeColor=vbBlueThenLabel1.ForeColor=vbYellowElse:Label1.ForeColor=vbRedEndIfEndSub第五题1、“大家好”电子滚动平当单击按钮“开始”时从左向右滚动，当滚动到屏幕

6、最右端的时候，从新回到最左端开始滚动；单击“停止”按钮时停止滚动2、在文本框中写入任意内容，单击“添加”按钮可以将文本框中的内容加入到列表框中PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand3_Click()List1.AddItemText1.TextEndSubPrivateSubTimer1_Timer()Label1.Left=Label1.Left+100IfLabel1

7、.Left>Form1.Width-Label1.WidthThenLabel1.Left=0EndIfEndSub第六题1、标签中写入“大家好”，每秒钟“大家好”和“哈哈”交替出现（即，第一秒出现“大家好”。第二秒出现“哈哈”依次交替）2、提示：使用计时器控件完成交替出现3、两个文本框中任意输入数字，当单击“显示”按钮，在标签2中显示数值大的数，如果输入的数值相同，在标签2中显示“数值相等”。PrivateSubCommand1_Click()IfText1.Text>Text2.TextThenLabel2.Caption=Text1