visualbasic程序設計課程考核說明(文件)
【正文】 r I = 1 To 2 Sum = Sum + I Next I Print SumEnd Sub點擊窗體兩次后，變量Sum的值是：2．Private Sub Form_Click() Dim a,c As IntegerFor a=1 To 5 c=a+1 Print cNext aEnd Sub變量C的結果依次為：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的結果是：4．Private Sub Command1_Click() =2 =3 =+ =Val()+Val() End Sub 文件框Text3和Text4的結果分別是：四、完善程序題（每題10分，共20分）1．程序運行界面如圖1所示，要求在文本框Text1中任意輸入一個整數(shù)，判定該整數(shù)的奇偶性,程序如下，請補充完整。 亮紅色 = 偶數(shù) Else = QBColor(9) 39。要求使用ADO對象和MSFlexGrid控件設計數(shù)據(jù)庫列表顯示程序。聲明對象變量ADO，用于創(chuàng)建與數(shù)據(jù)庫的連接Private ADO As Connection39。Server為服務器名稱 39。LSF。如果還沒有建立與數(shù)據(jù)庫的連接，則用以下代碼創(chuàng)建。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；（2）在200元以上者，按九折優(yōu)惠；（3）300元以上者，按八折優(yōu)惠；（4）500元以上者按七折優(yōu)惠。2．程序運行后，單擊窗體，輸出結果為：63．程序運行后，單擊Command1按鈕，文件框?qū)ο骉ext1的結果為：4 4．程序運行后，單擊Command1按鈕，文件框?qū)ο骉extText4的結果分別為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 學號；（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。程序運行結果如圖1所示。連接SQL Server數(shù)據(jù)庫 End If ReadFromTable 39。Password=。Password為登錄口令 39。定義數(shù)據(jù)庫連接字符串 Dim strDB As String 39。表1學號姓名專業(yè)2004001張紅軟件專業(yè)2004003李強會計專業(yè)2004002王麗軟件專業(yè)圖1圖2程序如下，請補充完整。點擊“清除”按鈕 = [ 5] End SubPrivate Sub Command3_Click()39。程序代碼如下：Private Sub Command1_Click() 39。 Dim a As Integer a = Print a12．ActiveX EXE文件的后綴是 。表達式Not A=C Or 4*C = B^2 A
公司管理相關推薦
鄂ICP備17016276號-1