freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

[計(jì)算機(jī)]2004年9月全國計(jì)算機(jī)等級(jí)考試二級(jí)vb語言筆試試題及答案(參考版)

2025-01-12 01:07本頁面
  

【正文】 Option Base 1 Dim a( 3,2) As Integer Private Sub Command1_Click() For i=1 To 3 For j=1 To 2 【 13】 =i+j Next j End Sub Private Sub Command2_Click() For j=1 To 3 12 For i=1 To 2 s=s+ 【 14】 Next i Next j = 【 15】 End Sub 13 參考答案: 一、選擇題( ( 1) — ( 20) 每小題 2 分, ( 21) — ( 30) 每小題 2 分,共 70 分 ) ( 1) - ( 10) BCAAC DDBAB ( 11) - ( 20) DACBD ABBDD ( 21) - ( 30) BDCBC AABDC 二、填空題 ( 每空 2 分,共 30 分 ) ( 1) Shanghai ( 2) 3 ( 3) i ( 4) ( 5) ( i) ( 6) n ( 7) 1 ( 8) t ( 9) a( 3)( 10) a( 1) ( 11) label1( i) .caption ( 12) ( 13) a( i,j) ( 14) a( j,i) ( 15) s 。如果單擊“求和”命令按鈕,則求出數(shù)組 a 的各元素之和,并在文本框中顯示出來,如圖所示。 Private Sub Command1_Click() Sum = 0 For i=0 To 4 Sum=Sum+ 【 11】 Next 【 12】 =Sum End Sub ( 7) 在窗體上 畫兩個(gè)名稱分別為 Command1 和 Command標(biāo)題分別為“初始化”和“求和”的命令按鈕。單擊“計(jì)算”按鈕,則將標(biāo)簽數(shù)組各元素的值累加,然后計(jì)算結(jié)果顯示在 Label2。標(biāo)簽 Label3 的標(biāo)題為“計(jì)算結(jié)果”。 11 ( 6) 在窗體上畫一個(gè)名稱為“ Command1”,標(biāo)題為“計(jì)算”的命令按鈕,再畫 7 個(gè)標(biāo)簽,其中 5 個(gè)標(biāo)簽組成名稱為 Label1 的控件數(shù)組 。m End Sub 程序運(yùn)行后,單擊窗體,在輸入對(duì)話框中分別輸入三個(gè)整數(shù),程序?qū)⑤敵鋈齻€(gè)數(shù)中的中間數(shù),如圖所示。 For i=1 To 3 a( i) =InputBox( 輸入數(shù)據(jù) ) Print a( i) 。以下是實(shí)現(xiàn)上述功能的程序,請(qǐng)?zhí)羁?。在窗體上有三個(gè)文本框,名稱分別是 TextText Text3,分別用于顯示用戶輸入投幣總次數(shù)、出現(xiàn)正面的次數(shù)和出現(xiàn)反面的次數(shù),如圖所示。以下是實(shí)現(xiàn)上述功能的程序,請(qǐng)?zhí)羁?。程序運(yùn)行后,將把 1~ 100 之間能夠被 7 整除的數(shù)添加到列表框。 ( 2) 以下程序段的輸出結(jié)果是 【 2】 。程序運(yùn)行后,各模塊的執(zhí)行順序是 A) Form1→ Model1→ Model2 B) Model1→ Model2→ Form1 C) Model2→ Model1→ Form1 D) Model2→ Form1→ Model1 二、填空題 ( 每空 2 分 , 共 30 分 ) 請(qǐng)將每空的正確答案寫在答題卡【 1】~【 15】序號(hào)的橫線上,答在試卷上不得分。 Next i End Sub 程序運(yùn)行后,單擊命令按鈕,在窗體上顯示的內(nèi)容是 A) 1 2 B) 1 2 3 C) 3 4 5 D) 4 5 ( 30) 假定一個(gè)工程由一個(gè)窗體文件 Form1 和兩個(gè)標(biāo)準(zhǔn)模塊文件 Model1 及 Model2 組成。Yamp。 7 編寫如下程序: Private Sub Form_Load() =False End Sub Private Sub Command1_Click() =True End Sub Private Sub Timer1_Timer() If Width Then = + 20 Else =0 End If End Sub 程序運(yùn)行后,單擊“ 開始”按鈕,標(biāo)簽在窗體中移動(dòng)。然后編寫如下事件過程: Private Sub
點(diǎn)擊復(fù)制文檔內(nèi)容
試題試卷相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1