vb課后習(xí)題答案(編輯修改稿)
2025-07-23 04:52 本頁面
【文章內(nèi)容簡介】 60。 ReDim a (3, 2 ) As Integer(7) Dim a% ( 2,3 ) (8) Dim a ( 1 to 3 1 to 4 ) As Integer答：8符合要求 程序運(yùn)行時(shí)顯示“下標(biāo)越界”可能產(chǎn)生的錯(cuò)誤有哪幾種情況？答：下標(biāo)比下界小 或比上界大 已知下面數(shù)組聲明，寫出它的數(shù)組名、數(shù)組類型、維數(shù)、各維的上下界、數(shù)組的大小、并按行的順序列出各元素。Dim a ( 1 to 2, 3) as single答：數(shù)組名為a，數(shù)組類型為單精度，二維，各維的下界為1和0，上界分別為2和3；數(shù)組的大小為4*4共16個(gè)元素；各元素標(biāo)號(hào)排列為：a (1, 0 )a (1, 1)a (1, 2 )a (1, 3 )a (0, 0 )a (0, 1)a (0, 2 )a (0, 3 )a (1, 0 )a (1, 1)a (1, 2 )a (1, 3 )a (2, 0)a (2, 1)a (2, 2 )a (2, 3 ) 利用隨機(jī)數(shù)生成兩個(gè)矩陣（數(shù)據(jù)不一定相同，前者3070范圍，后者101135）（1）將兩個(gè)矩陣相加結(jié)果放入C矩陣中。 For i = 1 To 4 For j = 1 To 4 c(i, j) = a(i, j) + b (i, j) Next j Next i（2）將A矩陣轉(zhuǎn)置 For i = 2 To 4 For j = 1 To i – 1 t = a(i, j): a(i, j) = a(j, i): a(j, i) = t Next j Next i（3）統(tǒng)計(jì)C矩陣中最大值和下標(biāo) Dim max%, maxi%, maxj% max = c(1, 1): maxi = 0: maxj = 0 For i = 1 To4 For j = 1 To 4 If c(i, j) max Then max = c(i, j): maxi = i: maxj = j End If Next j Next i（4）以下三角形式顯示A矩陣，上三角形式顯示B矩陣 For i = 1 To 4 For j = 1 To i Print a(i, j)。 Space(2)。 Next j Print Next i Print 輸出B上三角元素 For i = 1 To 4 Print Tab(i * 5)。 For j = i To 4 Print b(i, j)。 Next j Print Next i（5）將A矩陣第一行與第三行對應(yīng)元素交換位置 For j = 1 To 4 t = a(1, j): a(1, j) = a(3, j): a(3, j) = t Next j（6）求A矩陣 矩陣條對角線元素之和 Sum = 0 For i = 1 To 4 Sum = Sum + a(i, i) + a(i, 5 i) Next i（7）將A矩陣按列的次序把各元素放入一維數(shù)組D中，顯示結(jié)果Dim D%(16)For i = 1 To 4 For j = 1 To 4 D(k) = a(j, i): k = k + 1 Next jNext iPrint D一維數(shù)組無素為:For k = 0 To 15 Print D(k)。Next k 聲明一個(gè)一維字符類型數(shù)組，有20個(gè)元素，每個(gè)元素最多放10個(gè)字符，要求：1）由隨機(jī)數(shù)形成小寫字母構(gòu)成的數(shù)組，每個(gè)元素的字符個(gè)數(shù)由隨機(jī)數(shù)產(chǎn)生，范圍1~102）要求將生成的數(shù)組分4行顯示，規(guī)定每個(gè)元素寬度為103）顯示生成的字符數(shù)組中字符最多的元素 Dim st(1 To 20) As String, c As String * 1 Dim i%, n% For i = 1 To 20 n = Int(Rnd * 11 + 1) For j = 1 To n c = Chr(Int(Rnd * 26 + 97)) st(i) = st(i) amp。 c Next j Next i 39。（2）按一行顯示5個(gè)字符串要求輸出 For i = 1 To 20 Print st(i)。 Space(15 Len(st(i)))。 If i Mod 5 = 0 Then Print Next i 39。（3）顯示20個(gè)中字符個(gè)數(shù)最多的一個(gè) maxlen = 0 maxstr = For i = 1 To 20 If Len(st(i)) maxlen Then maxlen = Len(st(i)) maxstr = st(i) End If Next i Print Print 最多字符個(gè)數(shù):。 maxlen。 字符串是:。 maxstr 簡述列表框和組合框的異同處答：相同處都是可存放字符串；不同處在于：組合框是文本框和列表框的組合，可以輸入內(nèi)容，但要通過additem方法添加；列表框只能選擇項(xiàng)目，不能直接輸入內(nèi)容。 列表框或組合框中選中的項(xiàng)目、總項(xiàng)目數(shù)的屬性分別是什么？答：表示選中的內(nèi)容，屬性有：text；總項(xiàng)目數(shù)的屬性為ListCounts。 簡述自定義類型與自定義變量的區(qū)別答：前者僅定義了類型，這如同系統(tǒng)提供的integer、string等基本類型；后者系統(tǒng)為其分配了存儲(chǔ)單元。 自定義一個(gè)職工類型，包含職工號(hào)、姓名、工資。聲明一個(gè)職工類型的動(dòng)態(tài)數(shù)組。輸入n信職工的數(shù)據(jù)；要求按工資遞減的順序排序，并顯示排序的結(jié)果，每個(gè)職工一行顯示三項(xiàng)信息。Private Type zgtype no As Integer name As String * 10 gz As SingleEnd TypeDim s( ) As zgtype, n%Private Sub Form_click() Dim t As zgtype n = InputBox(請輸入人數(shù)) ReDim s(1 To n) For i = 1 To n With s(i) .no = InputBox(請輸入職工工號(hào)) .name = InputBox(請輸入職工姓名) .gz = InputBox(請輸入職工工資) End With Next i 39。根據(jù)工資遞減排序 For i = 1 To n 1 For j = i + 1 To n If s(j).gz s(j 1).gz Then t = s(j): s(j) = s(j 1): s(j 1) = t End If Next j Next i 39。輸出信息 For i = 1 To n Print s(i).no, s(i).name, s(i).gz Next iEnd Sub第六章 簡述子過程和函數(shù)過程的共同點(diǎn)和不同之處答：子過程和函數(shù)過程的共同點(diǎn)：函數(shù)過程和子過程都是功能相對獨(dú)立的一種子程序結(jié)構(gòu)，它們有各自的過程頭、變量聲明和過程體。在程序中使用它們不但可避免書寫重復(fù)的程序語句，縮短代碼，而且可使程序條理清晰，容易閱讀。兩者不同點(diǎn)是：1）過程聲明的關(guān)鍵字不同，子過程用的是sub，函數(shù)過程用的是function.2）子過程名無值就無類型聲明，函數(shù)過程名有值就有類型聲明3）函數(shù)過程名兼作結(jié)果變量，因此在函數(shù)過程體內(nèi)至少對函數(shù)過程名賦值；而子過程名在過程體
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號(hào)-1