vb課程復(fù)習(xí)題word版-wenkub.com
2025-01-06 17:26 本頁(yè)面
【正文】 19．若要使文本框 TextBox 的 ScrollBars屬性有效，必須將其 ___ MultiLine ____屬性設(shè)為 True。 15．如果要時(shí)鐘控件每一秒鐘發(fā)生一個(gè) Timer 事件，則 Interval 屬性應(yīng)設(shè)置為 1000 __。 11. 表示 X 是 5 或 7 的倍數(shù)的 VB 表達(dá)式是 _____ X mod 5=0 And X mod 7=0 __。 7．假定一個(gè)文本框的 Name屬性為 Text1，為了 讓文本框中顯示“ Wele”，所使用的語(yǔ)句是 __ ()=” Wele” __。 3．控件數(shù)組用下標(biāo)索引值 (Index)來(lái)標(biāo)識(shí)各個(gè)控件，第一個(gè)下標(biāo)索引號(hào)為 __ 0 ___。 A. x的值是數(shù)值 10 B. 輸入對(duì)話框的標(biāo)題是 “ 輸入整數(shù) ” C. 信息框的標(biāo)題是 “ 輸入數(shù)據(jù)： 10” D. 信息框中顯示的是 “輸入的數(shù)據(jù)是： ” 1６ .下列可以打開(kāi)立即窗口的操作是 ( B ) +D B. Ctrl+G C. Ctrl+F D. Ctrl+E 1７ .在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開(kāi)的窗口是 ( C ) 1８ .為了把焦點(diǎn)移到某個(gè)指定的控件，所使用的方法是 ( A ) 1９ . 要使一個(gè)控件在運(yùn)行時(shí)無(wú)效，正確的設(shè)置是 ( B )。 A. AA B. counstA C. 3A D. ?AA 1４ .設(shè) x=4， y=6，則以下不能在窗體上顯示出 “A=10” 的語(yǔ)句是 ( A )。 “道題 ” End Sub 圖 3 四則運(yùn)算運(yùn)行界面 1． 啟動(dòng) VB 后，就意味著要建立一個(gè)新 ( D )?！?” Nfalse = Nfalse +1 End If Text1=“ ” _____ If Nfalse 0 Or Ntrue 0 Then__________ Form_Click End If End Sub Private Sub Command2_Click( ) ‘統(tǒng)計(jì)答題情況 “” “答對(duì)了 ” amp。 End Sub Private Sub Command1_Click( ) ‘判斷運(yùn)算結(jié)果并輸出相應(yīng)的符號(hào) If ___ ch = Val(())_________Then Text1。 ”: Result=n1/n2 End _________ Select____________ n1 amp。） ，由學(xué)生進(jìn)行計(jì)算作答，然后計(jì)算機(jī)對(duì)學(xué)生的作答結(jié)果進(jìn)行判斷，如果正確，在題后打“ √ ”，否則打“ ”，并可在程 序運(yùn)行結(jié)束前統(tǒng)計(jì)答對(duì)與答錯(cuò)的題數(shù)。 String(6I,”*”)。 2 答案源程序： Private Sub Command1_Click() Dim x As Integer, y As Integer Dim st As String x = Val(()) Do y = x Mod 2 x = x \ 2 st = y amp。完成以下填空，使各過(guò)程函數(shù)實(shí)現(xiàn)加密解密操作。界面設(shè)計(jì)如圖所示 . 2 答案源代碼： Dim a() As Student Private Type Student Num As Long Nam As String Score As Single End Type Private Sub Command1_Click() Do Dim no As Long, nm As String, sc As Single no = Val(InputBox(請(qǐng)輸入學(xué) 號(hào) )) If no = 0 Then Exit Do nm = InputBox(請(qǐng)輸入姓名 ) If Len(nm) = 0 Then Exit Do sc = Val(InputBox(請(qǐng)輸入成績(jī) )) If sc = 0 Then Exit Do ReDim Preserve a(UBound(a) + 1) With a(UBound(a)) .Nam = nm .Num = no .Score = sc .Num, .Nam, .Score End With Loop End Sub Private Sub Command2_Click() Dim i As Long, s As Single For i = 1 To UBound(a) s = s + a(i).Score Next 學(xué)生成績(jī)平均分為 amp。 a(p).score End Sub 22. 某班級(jí)學(xué)生的某科目成績(jī)存放在一個(gè)自定義數(shù)據(jù)類型數(shù)組 A 中， A 中的每一個(gè)元素的類型為自定義數(shù)據(jù)類型 Student， 其中的成員有學(xué)號(hào) (num)、姓名（ name）、成績(jī)（ Score）。 班； 。 a(i).stno = z + Int(Rnd * 25 + 1) 39。 Dim x As Integer Dim z As Integer Dim maxs As Integer x = 1 z = 2022 For i = 1 To 40 a(i).clno = x 39。 score As Integer 39。 2 答案源程序： Private Type Stu clno As Integer 39。 Next I End Sub 20. 隨機(jī)生成 10 個(gè)兩位數(shù)的隨機(jī)整數(shù)，存于數(shù)組 a 中，然后向數(shù)組中的指定位置插入一個(gè)指定的兩位整數(shù)，如果指定位置小于或等于零，則將指定的數(shù)插在數(shù)組的第一個(gè)位置，如果指定位置大于現(xiàn)有數(shù)據(jù)的個(gè)數(shù)，則將指定的數(shù)插在數(shù)組的最后一個(gè)位置。, ., Chr(13), Chr(10)’碰到空格就減去空格 ’ nw = nw 1 End Select End If last = char Next i = 共有詞數(shù) : amp。 End Sub 17. 輸入某學(xué)生的某科目考試成績(jī)（ 100 分制），輸出該生的成績(jī)等級(jí)。 Print Avg Max = a(1) For i = 2 To n If a(i) Max Then Max = a(i) Next i Print Max 39。 For j = 1 To 2 * i 1 Print * 。從文本框 Text1 輸入 m 值，用 Command1 實(shí)現(xiàn)計(jì)算，在 Picture1 中顯示結(jié)果。從第三項(xiàng)開(kāi)始，該項(xiàng)是其前面兩項(xiàng)之和。 x = x + 1 If x Mod 5 = 0 Then Print j = j + 1 End If Next i Print Print 能被 7 整除的個(gè)數(shù)是 :。 n2 amp。Tab(20)。 “=”。 答案源代碼： Dim Result!,Ntrue%,Nfalse% Private Sub Form_Click( ) ‘產(chǎn)生隨機(jī)數(shù)并生成表達(dá)式
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1