全國計(jì)算機(jī)等級(jí)考試二級(jí)vb上機(jī)試題庫以與解析-wenkub
2023-04-08 07:36:31 本頁面
【正文】 Get 1,pers =+++str()+vbcrlf Next i Close 1End sub保存按鈕腳本：Private sub mand2_click() Open +”\” for output as 1 Print 1, Close 1End sub（1）。 j End If NextEnd Sub答案為：1）2)j+iSum 3)1250二、 綜合應(yīng)用題（1小題，計(jì)40分）在窗體上畫一個(gè)文本框，名稱為Text1,初始內(nèi)容為空白，并設(shè)置多行顯示格式；然后再畫兩個(gè)命令按鈕，其名稱分別為Command1和Command2,標(biāo)題分別為“顯示”和“保存”，如圖所示，編寫適當(dāng)?shù)氖录^程。 isum = 0 賦初值 For j = i To 50039。其名稱為Command1,標(biāo)題為“計(jì)算并輸出”；程序運(yùn)行后，如果單擊命令按鈕，程序?qū)⒂?jì)算500以內(nèi)兩個(gè)數(shù)之間（包括開頭和結(jié)尾的數(shù)）所有連續(xù)數(shù)的和為1250的正整數(shù)，并在窗體上顯示出來，這樣的數(shù)有多組，程序輸出每組開頭和結(jié)尾的正整數(shù)，并用“～”連接起來,如圖所示，這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整。其中“XXX”是在列表框中所選擇的項(xiàng)目。 =LCase() =UCase()一、 簡單應(yīng)用題（2小題，每小題20分，共計(jì)40分）。包含所有控件和部分程序，如圖所示。If =True then =()+End IfIf =True then =()+End If最后單擊保存按鈕。要求：去掉程序中的注釋符，把程序中的？該為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不得修改程序中的其他部分。 iSum = j+iSum 進(jìn)行累加 If iSum = 1250 Then Exit For Next39。程序運(yùn)行后，如果單擊“顯示”命令按鈕，則讀取考生 ，并在文本框中顯示出來，該文件是一種用隨機(jī)存取方式建立的文件，共有5個(gè)記錄，要求按記錄號(hào)順序顯示全部記錄，每個(gè)記錄一行；如果單擊“保存”命令按鈕，則把所有記錄保存到考生目錄下的順序文件在名稱為Form1的窗體上有一個(gè)名稱為Text1的文本框和名稱為Command標(biāo)題為確定的命令按鈕，一個(gè)名稱為List1的列表框和兩個(gè)名稱分別為Option1和Option標(biāo)題分別為添加和刪除的單選按鈕，如圖1所示。最后用原來的文件名保存工程文件和窗體文件。該程序不完整，請(qǐng)
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1