vb程序設(shè)計教程課后參考答案(參考版)
2025-06-10 13:38本頁面
【正文】 有問題可以與我聯(lián)系：fei_yang_fei。3． 4． Visible5． Enabled6． 彈出快捷菜單二、 選擇題1．A 2. D 3. B 4. B 5. B 6. A 7. C三、 簡答題（略）四、 應(yīng)用題（略）習(xí)題七一、填空題1. Mousemove2. Mousedoen3. 14. CTRL5. 確定鼠標按下時所處的坐標位置6. Enter Tab Backspace7. 按鍵的Ascii碼8. 按下的物理鍵（本題有誤，keyascii 應(yīng)改為keycode）9. Dragicon10. drag move二、選擇題1．AC(本題題意不明確) 2. B 3. C 4. C 5. D6. D 7. B 8. B 9. C 10. D三、 應(yīng)用題（略）習(xí)題八一、 選擇題1． D 2. A 3. B 4. D二、 閱讀下面程序，寫出程序的輸出結(jié)果1．wele to visible basic,20060321,18991230 15:03:30wele to visible basic,20060321,18991230 15:03:30wele to visible basic,20060321,18991230 15:03:30wele to visible basic 06321 15:03:30 wele to visible basic 06321 15:03:30 wele to visible basic 06321 15:03:302．第,1,個數(shù),2第,2,個數(shù),3第,3,個數(shù),5第,4,個數(shù),7第,5,個數(shù),11第,6,個數(shù),13第,7,個數(shù),17第,8,個數(shù),19第,9,個數(shù),23第,10,個數(shù),29第,11,個數(shù),31第,12,個數(shù),37第,13,個數(shù),41第,14,個數(shù),43第,15,個數(shù),47三、 簡答題（略）四、 編程題1．Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, x As String, sOpen a:\data\ For Input As 1Line Input 1, xs = 1For i = 1 To Val(x) s = s * iNextClose 1Open a:\data\ For Append As 1Print 1, Chr(13) + Chr(10) amp。如何通過該題獲取函數(shù)、數(shù)組等編程的經(jīng)驗，請同學(xué)們認真總結(jié)，這題值得大家多花些時間研究，你可以使用更好的方法。 Next PrintEnd Sub方法二：Option ExplicitOption Base 1Private Sub Command1_Click()Dim i%, str1 As String, str() As String, str2 As String, strinsert() As String, length As Integerstr1 = InputBox(請輸入第一個字符串:, info, exam)length = Len(str1)ReDim str(length)For i = 1 To length str(i) = Mid(str1, i, 1)NextCall sort(str, length)Print 第一個字符串排序后的結(jié)果：Call disp(str, length)str2 = InputBox(請輸入第二個字符串：, info, good)length = Len(str1) + Len(str2) + 1ReDim strinsert(length)For i = 1 To Len(str1) strinsert(i) = str(i)NextFor i = 1 To Len(str2) Call insert(strinsert, Mid(str2, i, 1), Len(str1) + i) ‘調(diào)用函數(shù)，逐個字符插入NextPrint 插入第二個字符串后排序后的結(jié)果:Call disp(strinsert, length 1)End SubSub sort(str() As String, length As Integer) Dim i%, j%, t As String For i = 1 To length 1 For j = i + 1 To length If str(i) str(j) Then t = str(i) str(i) = str(j) str(j) = t End If Next NextEnd SubSub disp(str() As String, length As Integer) Dim i% For i = 1 To length Print str(i)。4. 本道題我給出兩種方法，希望同學(xué)們通過該題目，熟悉函數(shù)的運用。 For j = i To 1 Step 1 Print aa(j)。For j = i To 1 Step 1 Print aa(j)。 個End Sub2．’這道題題目有問題，應(yīng)改為“與其轉(zhuǎn)置矩陣相加”O(jiān)ption ExplicitOption Base 1Private Sub Command1_Click()Dim aa(3, 3) As Integer, bb(3, 3) As Integer, cc(3, 3) As IntegerDim i%, j%For i = 1 To 3 For j = 1 To 3 aa(i, j) = Rnd * 100 ‘我假設(shè)為100以內(nèi)的任意整數(shù) NextNextCall disp(aa) ‘調(diào)用函數(shù)，顯示aa數(shù)組的內(nèi)容
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1