visualbasic程序設(shè)計(jì)課程考核說明(參考版)
2025-04-10 06:48本頁面
【正文】 2．程序運(yùn)行后，單擊窗體，輸出結(jié)果為：63．程序運(yùn)行后，單擊Command1按鈕，文件框?qū)ο骉ext1的結(jié)果為：4 4．程序運(yùn)行后，單擊Command1按鈕，文件框?qū)ο骉extText4的結(jié)果分別為25四、完善程序題1．[1] Val() [2] x Mod 2 = 0[3] 奇數(shù)[4] End If[5]或者[1] Val() Mod 2 [2] x = 0[3] 奇數(shù)[4] End If[5]2．（1）New Recordset；（2）select * from students order by 學(xué)號；（3）；（4）New Connection；（5）strDB；五、編寫程序題 Private Sub Command1_Click() Dim x As Single, y As Single x = Val() If x 100 Then y = x Else If x 200 Then y = * x Else If x 300 Then y = * x Else If x 500 Then y = * x Else y = * x End If End If End If End If = yEnd Sub13 / 13。程序運(yùn)行結(jié)果如圖1所示。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；（2）在200元以上者，按九折優(yōu)惠；（3）300元以上者，按八折優(yōu)惠；（4）500元以上者按七折優(yōu)惠。連接SQL Server數(shù)據(jù)庫 End If ReadFromTable 39。如果還沒有建立與數(shù)據(jù)庫的連接，則用以下代碼創(chuàng)建。Password=。LSF。Password為登錄口令 39。Server為服務(wù)器名稱 39。定義數(shù)據(jù)庫連接字符串 Dim strDB As String 39。聲明對象變量ADO，用于創(chuàng)建與數(shù)據(jù)庫的連接Private ADO As Connection39。表1學(xué)號姓名專業(yè)2004001張紅軟件專業(yè)2004003李強(qiáng)會(huì)計(jì)專業(yè)2004002王麗軟件專業(yè)圖1圖2程序如下，請補(bǔ)充完整。要求使用ADO對象和MSFlexGrid控件設(shè)計(jì)數(shù)據(jù)庫列表顯示程序。點(diǎn)擊“清除”按鈕 = [ 5] End SubPrivate Sub Command3_Click()39。 亮紅色 = 偶數(shù) Else = QBColor(9) 39。程序代碼如下：Private Sub Command1_Click() 39。三、閱讀程序題（每小題5分，共20分）閱讀下列程序并寫出程序運(yùn)行結(jié)果1．Private Sub Form_Click() Static Sum As Integer For I = 1 To 2 Sum = Sum + I Next I Print SumEnd Sub點(diǎn)擊窗體兩次后，變量Sum的值是：2．Private Sub Form_Click() Dim a,c As IntegerFor a=1 To 5 c=a+1 Print cNext aEnd Sub變量C的結(jié)果依次為：3．Private Sub Command1_Click() Dim A(1 To 5) As Integer Dim b As Integer For b = 1 To 5 A(b)=b Next b =A(b2)End Sub文本框Text1的結(jié)果是：4．Private Sub Command1_Click() =2 =3 =+ =Val()+Val() End Sub 文件框Text3和Text4的結(jié)果分別是：四、完善程序題（每題10分，共20分）1．程序運(yùn)行界面如圖1所示，要求在文本框Text1中任意輸入一個(gè)整數(shù)，判定該整數(shù)的奇偶性,程序如下
公司管理相關(guān)推薦
鄂ICP備17016276號-1