freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

20xxvisualbasic程序設(shè)計基礎(chǔ)習(xí)題參考答案(編輯修改稿)

2024-07-20 05:44 本頁面
 

【文章內(nèi)容簡介】 Case Index Case 0 = 八進(jìn)制: n = 8 Case 1 = 十六進(jìn)制: n = 16 Case 2 = 二進(jìn)制: n = 2 End Select = tran(k, n)End Sub10.界面設(shè)計如圖107所示,過程設(shè)計如下:Private Sub Form_Load() = Width / 2 / 2 = True = 1: = 1000 = 10: = 100 = 500: = 500End SubPrivate Sub HScroll1_Change() = End SubPrivate Sub HScroll1_Scroll() Call HScroll1_ChangeEnd SubPrivate Sub Timer1_Timer() = + 2 = Width / 2 / 2 If = 72 Then = FalseEnd Sub第6章 圖形控件和圖形方法一、判斷題1.√ 2. 3.√ 4. 5.√ 6. 7. 8. 9.√ 10.√二、選擇題1.C 2.B 3.C 4.A 5.A 6.C 7.A 8.C 9.C 10.B11.A 12.B 13.B 14.C 15.C三、填空題1. Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 8002.LoadPicture 3.AutoSize、Stretch、False、False 4.選中、屬性5.形狀、矩形 6.=LodePicture(C:\Windows\)7.圖片框、其他控件 8.緹、SclaeMode 9.顏色10.顏色、圓弧起點(diǎn)處轉(zhuǎn)角、圓弧終點(diǎn)處轉(zhuǎn)角、橢圓縱軸與橫軸長度之比四、程序閱讀題程序1. 轉(zhuǎn)動一條紅色直線,其軌跡形成一個圓程序2. 在窗體上隨機(jī)的位置、用隨機(jī)的顏色、半徑繪制1000個空心的圓。程序3. 在圖片框內(nèi)繪制多個黃色邊框矩形,填充樣式在“實(shí)心”、“透明”間交替變換。五、程序填空題1.(1) (2) (3) Str(i)2.(1)Call pic (2)False (3)n = n + 1(4)LoadPicture(c:\windows\) (4)LoadPicture(fn)六、程序設(shè)計題程序1.界面設(shè)計略,過程設(shè)計如下:Private Sub Form_Load() = 3End SubPrivate Sub Command1_Click() Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single x1 = InputBox(x1=): y1 = InputBox(y1=) x2 = InputBox(x2=): y2 = InputBox(y2=) (x1, y1)(x2, y2), , BEnd Sub程序2.界面設(shè)計略,過程設(shè)計如下:Private Sub Form_click() Dim r As Single, xo As Single, yo As Single If Then r = / 3 Else r = / 3 End If xo = + / 2 yo = + / 2 = 0: = vbBlue = 2: = 6 (xo, yo), r, vbYellowEnd Sub程序3.界面設(shè)計略,過程設(shè)計如下:Private Sub Form_Load() Dim i As Integer For i = 1 To 7: i: Next i = 1End SubPrivate Sub List1_Click() : = ( + / 2, _ + / 2), 50End Sub第7章 對話框與菜單程序設(shè)計一、判斷題1.√ 2.√ 3.√ 4. 5. 6. 7.√ 8.√ 9.√ 10.√二、選擇題1.D 2.A 3.C 4.C 5.B 6.D 7.A 8.B 9.D 10.B三、填空題1.窗體控制菜單、下拉式菜單、快捷菜單 2.ShowFont3.打開文件、另存為、顏色、字體、打印對話框 4.工程、部件5. =6.提示信息、對話框類型、對話框標(biāo)題 7.Click8.工具 9.代碼窗口、Click 10.相同、正四、程序閱讀題程序1. 顯示提示信息為“5”、標(biāo)題為“na的輸出結(jié)果”、有一個“確定”按鈕的消息框。程序2. 顯示提示信息為“您選擇了第1項(xiàng)”、標(biāo)題為“第一項(xiàng)”、有一個“確定”按鈕的消息框。五、程序填空題1.(1)Int(Rnd*100) (2)Str(i) (3)Exit For 2.(1)False (2)Date (3) (4)m1六、程序設(shè)計題程序1.界面設(shè)計略,過程設(shè)計如下:Private Sub Command1_Click() End Sub程序2.界面設(shè)計略,過程設(shè)計如下:Private Sub Command1_Click() End Sub程序3.界面設(shè)計如圖10表102所示,過程設(shè)計如下:Private Sub Sqr_Click() = 1End SubPrivate Sub Rec_Click() = 0End SubPrivate Sub Oval_Click() = 2End SubPrivate Sub Circle_Click() = 3End SubPrivate Sub Rrec_Click() = 4End SubPrivate Sub RSqr_Click() = 5End SubPrivate Sub Shp_Click() = 2End SubPrivate Sub Shzh_Click() = 3End SubPrivate Sub Xiex_Click() = 4End SubPrivate Sub ShPJ_Click() = 6End SubPrivate Sub XJ_Click() = 7End SubPrivate Sub FillColor_Click() = End SubPrivate Sub Exit_Click() EndEnd Sub第8章 文 件一、判斷題1. 2.√ 3. 4.√ 5.√ 6. 7.√ 8.9.√ 10.√ 11. 12. 13.√ 14. 15.二、選擇題1.A 2.C 3.B 4.B 5.A 6.C 7.C 8.B9.C 10.B 11.D 12.B三、填空題1.ChDir 2.FileLen 3.Change 4.EOF 5.Line Input四、程序閱讀題程序1. y= 1 a= 1 程序2. NO. 1 3 程序3. y= 3 a= 2 NO. 2 4 窗體:36 25 16 9 4 1 y= 6 a= 3 NO. 3 7 文件:1 4 9 16 25 36 y= 10 a= 4 NO. 4 11程序4. 程序5. 1 程序6. 1 窗體上顯示內(nèi)容:20 2 2 1 2 文件中內(nèi)容:4 6 8 10 12 3 3 3 1 2 3 4 4 4 4 5 5 5 5 5五、程序填空題1.(1)Dim n As Integer (2)C:\windows\ (3)Output (4)End2.(1)For Output As 2 (2)0 (3) As c:\3.(1)Open e:\ For Output As 1 (2)t1 Mod t2 = 0 (3)If flag Then (4)Print coun六、程序設(shè)計題程序1.界面設(shè)計如圖1010所示,過程設(shè)計如下:Dim fn As StringPrivate Sub Drive1_Change() = End SubPrivate Sub Dir1_Change() = End SubPrivate Sub File1_Click() If Right(, 1) = \ Then fn = + Else fn = + \ + End IfEnd SubPrivate Sub Command1_Click() Dim yesno As Byte yesno = MsgBox(確認(rèn)要刪除嗎?, vbYesNo, 刪除文件) If yesno = vbYes Then Kill fn End Sub程序2.建立4個文本框控件依次輸入姓名、出生年月、外語、計算機(jī)成績,按“確認(rèn)”按鈕追加該記錄到磁盤文件d:\。過程設(shè)計如下:Private Sub Command1_Click() Dim b As Date, m As Byte, e As Byte Open d:\ For Append As 1 b = : m = : e = Write 1, , b, m, e = : = : = : = Close 1End Sub程序3.界面設(shè)計如圖1011所示,過程設(shè)計如下:Private Sub Form_Load() Dim ss As String Open e:\ For Append As 1 39。如文件不存在則先建立該文件 Close 1 Open d:\ For Input As 1 39。將文件中所有記錄在列表框中顯示 While Not EOF(1) Line Input 1, ss: ss Wend Close 1 39。在選中表項(xiàng)之前“刪除”、“修改”按鈕不可用 = False: = FalseEnd SubPrivate Sub List1_Click() 39。選中表項(xiàng)后可“刪除”或“修改”,不可“追加”。 = False: = True = True: = End SubPrivate Sub Command1_Click() 39。追加記錄 If Trim() Then = End SubPrivate Sub Command2_Click() 39。修改記錄 , = True: = False = False: = 39。修改后,不可“刪除”、“修改”End SubPrivate Sub Command3_Click() 39。刪除記錄 39。刪除后,不可“刪除”、“修改” = True: = False = False: = End SubPrivate Sub Command4_Click() 39。保存文件,將列表框中所有表項(xiàng)輸出到文件 Dim i As Integer Open d:\ For Output As 1 For i = 0 To 1: Print 1, (i): Next i Close 1End SubPrivate Sub Command5_Click() 39。退出之
點(diǎn)擊復(fù)制文檔內(nèi)容
試題試卷相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖片鄂ICP備17016276號-1