資源描述：
《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、最右端的時候，從新回到最左端開始滾動；單擊“停止”按鈕時停止?jié)L動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
