【正文】
。 具體代碼略。chr(10) = 0 = Len()End Sub 具體代碼略。 Str(Asc(Char)) amp。 Char amp。設(shè)置快捷鍵需要在菜單編輯器中選擇 菜單的形式有兩種：下拉式菜單和彈出式菜單 在KeyPress事件中，若想取消用戶剛輸入的字符，只要將該事件的參數(shù)設(shè)置為0即可 1框架主要是用作容器，可以實(shí)現(xiàn)多組單選按鈕，并且可以美化界面 1250 1在一個(gè)窗體的程序代碼中可以訪問另一個(gè)窗體上控件的屬性，在訪問時(shí)只要寫上窗體名稱即可 1先建立框架，然后再在其中建立控件 1下拉式組合框、簡單組合框、下拉式列表框四、讀程序題 輸出結(jié)果為：4985 結(jié)果如下：14五、編程題 參考代碼如下：Private Sub Form_Load() = 1000End SubPrivate Sub Timer1_Timer() = TimeEnd Sub 參考代碼如下：Private Sub Command1_Click() Dim Char As String * 1 Char = Trim() = amp。 快捷鍵是執(zhí)行某一個(gè)菜單項(xiàng)的鍵盤命令，常用形式Ctrl+字母，訪問鍵是打開一個(gè)菜單的鍵盤命令，常用形式Alt+字母。 sumEnd Sub第四章 常用控件與窗體一、填空題 AddItem 窗體、控件 StartUpPostion sorted、ture texttabindex、0 chr(10) timer interval scroll和change事件 1mousepointer 1selected、text、removeitem 2*ix,2*i1 1change、value、scrol、value 1List 1Checked 1keypress 1組合框 1 1 1Click（或鼠標(biāo)單擊）二、選擇題 C B A C A A C A C B 1C 1C 1A 1D 1A 1A 1D 1D 1D A 2C 2B三、簡答題 單選按鈕用來顯示一個(gè)可以打開或關(guān)閉 選項(xiàng)，而且在同一組中的單選按鈕控件，用戶只能選擇其中的一項(xiàng)。 t End IfEnd Sub 1參考代碼如下：Private Sub Form_Load() Dim Prev, Last, NewOne, sum As Long Dim i As Integer Prev = 0: Last = 1: sum = Prev + Last For i = 3 To 20 NewOne = Prev + Last sum = sum + NewOne Prev = Last Last = NewOne Next i = 第20項(xiàng)為 amp。 此行End If部分與外層的塊If語句對應(yīng)End Sub 1參考代碼如下：Private Sub Command1_Click() Dim n, i, t As Long n = Val() i = 1: t = 1 If n 0 Then = error ElseIf n = 0 Then = 0!=1 Else Do While i = n t = t * i i = i + 1 Loop = n amp。 i End If 39。 amp。 i = x2= amp。 + amp。 (b Sqr(delt)) / (2 * a) Else = 有兩個(gè)共軛復(fù)根: realpart = b / (2 * a) imagpart = Sqr(delt) / (2 * a) = x1= amp。 b / 2 / b ElseIf delt 0 Then = 有兩個(gè)不等的實(shí)根: = x1= amp。 下面嵌套塊If語句 If delt = 0 Then = 有兩個(gè)相等的實(shí)根: = x1= amp。 列End Sub 1參考代碼如下：Private Sub Command1_Click() Dim a, b, c, delt, realpart, imagpart As Single a = Val(): b = Val(): c = Val(): delt = b * b 4 * a * c If a = 0 Then = 是一元一次方程: If b0 then = x1= amp。 行第。 min Print 在第。 尋找最小數(shù) For i = 1 To N For j = 1 To N If a(i, j) min Then min = a(i, j) row = i line = j End If Next j Next i 39。 輸完一行元素后輸出一個(gè)換行 Next i 39。 輸出二維數(shù)組 Print 數(shù)組內(nèi)容是： For i = 1 To N For j = 1 To N Print a(i, j)。 For循環(huán) j從1變化到N a(i, j) = Int(100 * Rnd) + 1 39。 常數(shù) N 確定數(shù)組的大小 Dim a(N, N) As Integer Dim i, j, row, line, min As Integer Show For i = 1 To N 39。 不是素?cái)?shù) Else = m amp。 Next j Print Next iEnd Sub 參考代碼如下：Private Sub Form_Click()Dim a(10) As Integer, i As IntegerDim sum As Integer, ave As Integersum = 0For i = 1 To 10 a(i) = Int(Rnd * 101) sum = sum + a(i)Next iave = sum / 10Print sum, aveEnd Sub 參考代碼如下：Private Sub Form_Load() Dim i, j, k, Flower As Integer Show For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 Flower = i * 100 + j * 10 + k If Flower = i ^ 3 + j ^ 3 + k ^ 3 Then Print Flower 。 輸出轉(zhuǎn)置后的數(shù)組 Print 轉(zhuǎn)置后的數(shù)組： For i = 1 To N 39。 For循環(huán) i從1變化到N For j = 1 To i 39。 Next j Print Next i 39。 輸出原始數(shù)組 Print 轉(zhuǎn)置前的數(shù)組： For i = 1 To N 39。 數(shù)組初始化 For i = 1 To N 39。 , Next iEnd Sub 參考代碼如下：Option Base 1Private Sub Form_Load() Const N = 4 39。 輸出新隊(duì)列 For i = 1 To 11 = amp。 元素后移一個(gè)位置 else a(i+1) = num Exit For 39。 , Next i num = Val()39。 輸出原始隊(duì)列 For i = 1 To 10 = amp。定義靜態(tài)數(shù)組a含11個(gè)元素 Dim i, j As Integer Dim num As Single39。使輸出可見 = 新宋體 For i = 9 To 16 Step 1 = i Print i。 下面是嵌套塊If語句 If year Mod 4 = 0 And year Mod 100 0 Then = 是閏年 Else = 不是閏年 End If End IfEnd Sub 程序參考代碼如下：Private Sub Command1_Click() Dim m, n, r As Integer m = Val ( ) n = Val ( ) If m 0 Or n 0 Then ‘ 若判斷為非法數(shù)據(jù)，Then子句輸出相應(yīng)信息 = 輸入數(shù)據(jù)有錯(cuò)！ Else ‘ 若判斷為合法數(shù)據(jù)，Else子句用輾轉(zhuǎn)相除法求余數(shù) r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop ‘ 循環(huán)結(jié)束后n中存放的就是最大公約數(shù)，輸出n值 = 最大公約數(shù)為： amp。參考答案第一章 Visual Basic程序設(shè)計(jì)概述一、填空題 對象、事件驅(qū)動(dòng) Vbp、frm、bas 部件 WINDOWS二、選擇題 C C C D D第二章 簡單的VB程序設(shè)計(jì)一、填空題 Tabstop Left、top、height、width enabled backcolor name name和caption 屬性 標(biāo)準(zhǔn)模塊文件 運(yùn)行模式二、選擇題 D D C C D B D D D D 1B 1A 1D 1C 1B 1B 1B 1D第三章 VB基本語言一、填空題 Const Variant 隱式聲明、顯示聲明 option base、ubound、lbound 強(qiáng)制變量聲明 表示a2是一個(gè)可選參數(shù) End Msgbox、Inputbox *.*、showprint Mid() 16 1redim preserve arraya(ubound(arraya())+1) 1static 10 1f 1rem、’ 1變量、數(shù)組 11 to 4,1 to 5 1Index 按地址 2Option Explicit 213 2ityo 2符號(hào) 2LCase 2ESC 2部件 2斷