資源描述：
《Vb上機(jī)實(shí)驗(yàn)答案》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、第一題1.制作如圖所示窗體界面。（用真實(shí)的姓名、班級(jí)及學(xué)號(hào)）2.使時(shí)間每隔1秒刷新一次3.單擊“最大值”命令按鈕時(shí)，算出通過鍵盤輸入的5個(gè)數(shù)的最大值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.兩個(gè)文本框里輸入兩個(gè)數(shù)字從而確定一個(gè)范圍。2.單擊“計(jì)算”按鈕求出這個(gè)范圍中能被3或5整除的數(shù)的平方和，結(jié)果顯示在label3中。3.Label3的背景色每隔1.5秒藍(lán)紅交替。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到終值的所有整數(shù)的平方和2、單擊生成列表按鈕，在列表框中顯示1到終值之間的所有整數(shù)PrivateSubCommand1_Click()DimaAsIntegera=Text1.Texts=oFori=1Toas=s+i*iNextiText2.Text=sEndSubPrivateSubComm
4、and2_Click()DimaAsIntegera=Text1.TextFori=1ToaList1.AddItemiNextiEndSub第四題1、“大家好”的背景顏色紅藍(lán)黃交替，單擊“停止”按鈕時(shí)停止顏色變化2、在文本框中寫入任意數(shù)字，單擊“生成列表”按鈕，將1到文本框中輸入數(shù)字之間所有能被3整除得數(shù)在列表框中顯示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、“大家好”電子滾動(dòng)平當(dāng)單擊按鈕“開始”時(shí)從左向右滾動(dòng)，當(dāng)滾動(dòng)到屏幕
6、最右端的時(shí)候，從新回到最左端開始滾動(dòng)；單擊“停止”按鈕時(shí)停止?jié)L動(dòng)2、在文本框中寫入任意內(nèi)容，單擊“添加”按鈕可以將文本框中的內(nèi)容加入到列表框中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、標(biāo)簽中寫入“大家好”，每秒鐘“大家好”和“哈哈”交替出現(xiàn)（即，第一秒出現(xiàn)“大家好”。第二秒出現(xiàn)“哈哈”依次交替）2、提示：使用計(jì)時(shí)器控件完成交替出現(xiàn)3、兩個(gè)文本框中任意輸入數(shù)字，當(dāng)單擊“顯示”按鈕，在標(biāo)簽2中顯示數(shù)值大的數(shù)，如果輸入的數(shù)值相同，在標(biāo)簽2中顯示“數(shù)值相等”。PrivateSubCommand1_Click()IfText1.Text>Text2.TextThenLabel2.Caption=Text1
