《vb模擬試題全套》word版-文庫吧
2024-12-25 17:40 本頁面
【正文】 s + 1 / i Else s = s 1 / i End If Next i Print s=。 s End Sub 1編程求：雞與兔在一個籠里，共有 100條腿， 40個頭，問雞有幾只？兔有幾只？ Private Sub Form_click() Dim ji As Integer Dim tu As Integer Dim leg As Integer Dim head As Integer For ji = 1 To 50 For tu = 1 To 25 leg = ji * 2 + tu * 4 head = ji + tu If leg = 100 And head = 40 Then Print ji。 tu End If Next tu Next ji End Sub 第二套 1．下列說法錯誤的是（ ） A、程序設(shè)計(jì)就是尋求解決問題的方法，并將其實(shí)現(xiàn)步驟編寫成計(jì)算機(jī)可以執(zhí)行的程序的過程 B、程序設(shè)計(jì)語言的發(fā)展經(jīng)歷了機(jī)器語言、匯編語言、高級語言的過程 C、計(jì)算機(jī)程序就是指計(jì)算機(jī)如何去解決問題或完成一組可執(zhí)行指令的過程 D、 程序設(shè)計(jì)語言和計(jì)算機(jī)語言是同一概念的兩個方面 2．圖形符號“ ”在算法流程圖描述中表示（ ） A、處理或運(yùn)算的功能 B、 輸入輸出操作 C、用來判斷條件是否滿足需求 D、算法的開始或結(jié)束 3．下面 （ ）不是字符串常量。 A、 ”True” B、 false C、 ” ” D、 ”你好 ” 4．下面表達(dá)式的值是 false的有（ ） A、 str(2022)”1997” B、 int()len(“basic”) C、 32 D、 ”969””n97” 5．使用 VB編程，我們把工具箱中的工具稱為（ ） A、工具 B、控件 C、事件 D、窗體 6．在聲明一個變量時，可能用到的關(guān)鍵字是（ ） A、 End B、 As C、 Sub D、 Exit 7．下列函數(shù)中，返回值是字符串的是（ ） A、 Val B、 InStr C、 Len D、 Mid 8．在 VB中，設(shè)置控件的位置，可改變下列（ ）屬性 A、 left與 top B、 heigth與 top C、 left與 width D、 height與 width 9．以下是一段 vb程序： if I=1 then x=x+1 else x=x+2 end if 它的基本結(jié)構(gòu)屬于（ ） A、循環(huán)結(jié)構(gòu) B、樹型結(jié)構(gòu) C、選擇結(jié)構(gòu) D、順序結(jié)構(gòu) 分 析下列程序： private sub form_click() s=11\3+11 MOD 3 print s end sub 當(dāng)單擊窗體是 s的值為（ ） A、 3 B、 4 C、 5 D、 6 1下列程序段運(yùn)行后， A的值為（ ） s=10 if A=10 then A=A+1 Else A=A1 End if A、 8 B、 9 C、 10 D、 11 1閱讀下面程序，單擊窗體后，在文本框 text1和 text2中顯示的內(nèi)容分別是（ ） private sub form_ click() dim x as integer:y as integer x=1:y=0 do while x3 y=y+x x=x+1 loop =x =y end sub A、 3 3 B、 3 5 C、 5 3 D、 5 5 1閱讀下面程序，單擊窗體后，在文本框顯示的內(nèi)容是（ ） private sub form_click() dim array(10,10) as integer dim I,j as integer for I=1 to 3 for j=2 to 4 array1(I,j)=I+j next j next I =array1(2,3)+array(3,4) end sub A、 12 B、 13 C、 14 D、 15 1下列程序段中，循環(huán)體執(zhí)行的次數(shù)是（ ） x=0 for y=1 to 10 x=x+1 next y A、 10 B、 11 C、 12 D、 13 1設(shè)計(jì)一個程序，打印 下面所示的圖案 程序： Private Sub Form_click() * *** ***** *** * Dim i As Integer 39。定義 i為整型變量 Dim j As Integer 39。定義 j為整型變量 For i = 3 To 3 Print Tab(Abs(i) + 5)。 39。確定每行的起始位置 For j = 1 To 2 * (3 Abs(i)) 1 Print *。 Next j Print Next i End Sub 1編寫程序，求 y=6x5的值。（ x的值在程序中調(diào)用 inputbox函數(shù)，在彈出的標(biāo)準(zhǔn)輸入對話框中輸入）。完成所有操作后，按“ ctrl+s”保存 Private Sub Form_click() Dim x As Single 39。定義 x為單精度型變量，由標(biāo)準(zhǔn)輸入對話框輸入 Dim y As Single 39。定義 y為單精度型變量，值由窗體顯示 x = val(inpubox(請輸入變量 x)) y = 6 * x 5 Print y=。 y End Sub 1編寫程序，求 1+2+3+?? +n=500中最小的 n。 Private Sub Form_click() Dim s As Single 39
試題試卷相關(guān)推薦
鄂ICP備17016276號-1