選擇系統(tǒng)課程設(shè)計(jì)(已改無(wú)錯(cuò)字)
2023-02-13 19:18:55 本頁(yè)面
【正文】 時(shí)我也了解了VB的出現(xiàn)是一場(chǎng)技術(shù)革命，它在生活中各個(gè)方面都能發(fā)揮巨大的作用，學(xué)生看到凝聚著自己的心血、汗水、思維和創(chuàng)新的作品，通過(guò)同學(xué)之間作品的對(duì)比，提供了一個(gè)相互學(xué)習(xí)交流的平臺(tái)，激發(fā)了學(xué)生的競(jìng)爭(zhēng)意識(shí)。計(jì)算機(jī)的應(yīng)用加快了人類(lèi)發(fā)展的腳步，作為當(dāng)代大學(xué)生學(xué)好VB對(duì)以后的生活有很大的幫助。因此，我們都應(yīng)該認(rèn)真對(duì)待這一科目。完整的源程序窗體1 = True 學(xué)號(hào)=39。 amp。 Text1 amp。 39。, , , 1If ThenMsgBox 無(wú)此學(xué)號(hào)！, , 提示ElseMsgBox 已簽到！, , 提示(已選題) = 139。Text1 = End IfEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Form_Load()Dim mpath$, mlink$mpath = If Right(mpath, 1) \ Then mpath = mpath + \mlink = Provider=。mlink = mlink + Data Source= + mpath + = mlink = adCmdUnknownEnd Sub窗體2Private Sub Command1_Click()If Option1 ThenElseEnd IfEnd SubPrivate Sub Command2_Click()End Sub窗體3mlink = Provider=。mlink = mlink + Data Source= + mpath + = mlink = adCmdUnknown39。 = False39。 = False39。 = False39。 = TrueEnd SubPrivate Sub Option1_Click()Text1 = = True = True = True = TrueEnd SubPriva
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1