word版可編輯-visualbasic程序設(shè)計教程第四版劉炳文編著清華大學(xué)精心整理docxdocx-文庫吧資料
2025-07-21 11:43本頁面
【正文】 ： 姓名 性別 年齡 文化程度 籍貫 張得功 男 24 大學(xué)本科 河北 李得勝 男 30 高中畢業(yè) 北京 王麗 女 25 研究生 山東 ……試編寫一個程序，對該名冊進行檢索。 b(i, 2) amp。 b(i, 1) amp。第一行和第三行 b(0, j) = a(2, j) b(1, j) = a(3, j) b(3, j) = a(1, j)Next jPrint 調(diào)整后數(shù)據(jù)For i = 0 To 3 Print b(i, 0) amp。 a(i, 3 i)Next iPrint39。對角線For i = 0 To 3 Print Tab(i * 2)。 Val(a(0, j) + a(1, j) + a(2, j) + a(3, j))。 和 amp。 amp。 amp。 amp。 j + 1 amp。 i + 1 amp。5） 輸出處理后的數(shù)組。 3） 交換第一行和第三行的位置。 Print C(i)。For i = 1 To 8 Print B(i)。Next iPrintPrint 第二個數(shù)組為：。For i = 1 To 8Option Base 1Private Sub Form_Click()Dim A, B, C(8) As IntegerA = Array(2, 8, 7, 6, 4, 28, 70, 25)B = Array(79, 27, 32, 41, 57, 66,78,80)For i = 1 To 8Next iEnd Sub。 Next jNext iPrint 對換后數(shù)組：For i = 1 To 10 arr(i) = arr(j) For j = 6 To 10 Print arr(i)。分別輸出數(shù)組原來各元素的值和對換后各元素的值。strTmp EndgetDuiTiao1) 1)=AsDimStringString)vStrFunctionNextEndIfThen+=+If99 1iEndSubMsgBoxThen=Or=IfInputBox(輸入一個兩位的正整數(shù):) aLongiAsDimCommand1_Click() 如給定一個兩位的正整數(shù)，請找到另一個兩位的正整數(shù)，值得這兩個整數(shù)之和等于他們各自的對調(diào)數(shù)之和，例如，12+32=21+，輸入一個兩位的正整數(shù)，把具有這種特征的每一對兩位正整數(shù)都找出來Private 學(xué)生評語：。 s。 。 Poor ElseIf s = 0 And s = 39 Then Print 學(xué)號：。 ,。 分?jǐn)?shù)：。 n。 學(xué)生評語：。 s。 。 Good ElseIf s = 50 And s = 59 Then Print 學(xué)號：。 ,。 分?jǐn)?shù)：。 n。 學(xué)生評語：。 s。 。 是完全數(shù) next print 查找完畢beep end sub ．從鍵盤上輸入一個學(xué)生的學(xué)號和考試成績，然后輸出該學(xué)生的學(xué)號和考試成績，并根據(jù)成績按下面的規(guī)定輸出對該學(xué)生的評語：成績 80～100 60～79 50～59 40～49 0～39評語 very good good fair poor fail Private Sub Form_Click() n = InputBox(請輸入學(xué)號) s = InputBox(請輸入分?jǐn)?shù)) If s = 80 Then Print 學(xué)號：。例如，整數(shù)28的因子為1，2，
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號-1