【正文】
t1的文本框,初始內(nèi)容為空。要求選中某一項后單擊Command1按鈕,就刪除選中的項,則正確的事件過程是A)Private Sub Command1_Click() End Sub B)Private Sub Command1_Click() End SubC)Private Sub Command1_Click() End SubD)Private Sub Command1_Click() End Sub(20)某人設(shè)計了如下程序用于計算并輸出 7!(7的階乘)Private Sub Command1_Click() t = 0 For k = 7 To 2 Step 1 t = t * k Next Print tEnd Sub執(zhí)行程序時,發(fā)現(xiàn)結(jié)果是錯誤的。2007年9月全國計算機等級考試二級筆試試卷Visual Basic語言程序設(shè)計(考試時間90分鐘,滿分100分)一、 選擇題(每小題2分,共70分) 下列各題A)、B)、C)、D)四個選項中,只有一個選項是正確的。下面的修改方案中能夠得到正確結(jié)果的是A)把 t=0 改為 t=1B)把 For k = 7 To 2 Step –1 改為 For k = 7 To 1 Step –1C)把 For k = 7 To 2 Step –1 改為 For k=1 To 7D)把 Next 改為 Next k(21)若窗體中已經(jīng)有若干個不同的單選按鈕,要把它們改為一個單選按鈕數(shù)組,在屬性窗口中需要且只需要進行的操作是A)把所有單選按鈕的Index屬性改為相同值B)把所有單選按鈕的Index屬性改為連續(xù)的不同值C)把所有單選按鈕的Caption屬性值改為相同D)把所有單選按鈕的名稱改為相同,且把它們的Index屬性改為連續(xù)的不同值(22)窗體上有文本框Text1和一個菜單,菜單標題、名稱如表,結(jié)構(gòu)見圖。程序運行時,單擊任何復選框,則把所有選中的復選框后面的文字羅列在文本框中(見圖)。 Check1(Index).Caption amp。(3)線性表的存儲結(jié)構(gòu)主要分為順序存儲結(jié)構(gòu)和鏈式存儲結(jié)構(gòu)。Private Sub Combo1_Click() Dim temp temp = 【6】 = (0) (0) = tempEnd Sub(7)設(shè)窗體上有一個名稱為HScroll1的水平滾動條,要求當滾動塊移動位置后,能夠在窗體上輸出移動的距離(即新位置與原位置的刻度值之差,向右移動為正數(shù),向左移動為負數(shù))。Private Sub Command1_Click() Dim x As Integer x = InputBox(請輸入一個正整數(shù)) While x 【11】 Print x Mod 10。 k amp。 k amp。例如:輸入7685,則輸出 5 8 6 7;輸入1000,則輸出 0 0 0 1。例如:單擊圖1中的“重慶”,則與“北京”交換,得到圖2的結(jié)果。(1)軟件需求規(guī)格說明書應具有完整性、無歧義性、正確性、可驗證性、可修改性等特性,其中最重要的是 【1】 。 39。下面列出的錯誤原因和修改方案中正確的是A)調(diào)用swap過程的語句錯誤,應改為:Call swap a,bB)輸出語句錯誤,應改為:Print a, bC)過程的形式參數(shù)有錯,應改為:swap(ByRef a As Integer, ByRef b As Integer)D)swap中3條賦值語句的順序是錯誤的,應改為 a = b: b = c : c = a(29)有如下函數(shù):Function fun(a As Integer, n As Integer) As Integer Dim m As Integer While a = n a = a n m = m + 1 Wend fun = mEnd Function該函數(shù)的返回值是A)a乘以n的乘積 B)a加n的和C)a減n的差 D)a除以n的商(不含小數(shù)部分)(30)下面程序的輸出結(jié)果是Private Sub Command1_Click() ch$ = ABCDEF proc ch Print chEnd SubPrivate Sub proc(ch As String) s = For k = Len(ch) To 1 Step 1 s = s amp。要求單擊列表框中某一項時,把該項顯示在窗體上,正確的事件過程是A)Private Sub List1_Click() B)Private Sub Form1_Click() Print