体育网大乐透开奖直播:vb的操作題(有答案)

來源:百度  [  文檔由 微微一笑吧00 貢獻   ]  責編:王強  |  侵權/違法舉報

049期双色球开奖直播 www.lvelns.com.cn

1.(1)在考生文件夾中有工程文件sj126.vbp,其中的窗體如圖所示。程序剛運行時,會生成一個有10個元素的整型數組。若選中\查找最大值\(或\查找最小值\)單選按鈕,再單擊\查找\按鈕,則找出數組中的最大值(或最小值),并顯示在標簽Label2中。請去掉程序中的注釋符,把程序中的 ?改為正確的內容。

注意:

考生不得修改窗體文件中已經存在的程序。最后把修改后的文件按原文

件名存盤。

Private Sub Command1_Click()

x = a(1)

y = a(1)

For i = 2 To 10

If Option1.Value = True Then

If a(i) > x Then

x = a(i)

End If

ElseIf a(i) < y Then

y = a(i)

End If

Next

If Option1.Value = True Then

Label2.Caption = x

Else

Label2.Caption = y

End If

End Sub

2.(2)在名稱為Form1的窗體上畫一個名稱Shape1的形狀控件,在屬性窗口中將其

設置為圓形?;桓雒莆狶ist1的列表框,并在屬性窗口中設置列表項的

值分別為1、2、3、4、5。將窗體的標題設為\圖形控件\。單擊列表框中

的某一項,則將所選的值作為形狀控件的填充參數。例如,選擇3,則形狀

控件中被豎線填充。如圖所示。

要求:

程序中不得使用變量,每個事件過程中只能寫一條語句。存盤時必須存

放在考生文件夾下,工程文件名為sj107.vbp,窗體文件名為sj107.frm。

在Shape控件中,可以用FillStyle屬性設置圖形的填充圖案,0:透明,2:虛線,3:點線,4:點劃線,5:雙點劃線,6:內實線。

List控件的Click事件過程為:

Private Sub List1_Click()

  Shape1.FillStyle = List1.Text

End Sub

3.(1)在名稱為Form1的窗體上畫一個文本框,名稱為Text1;再畫二個命令按鈕,名稱分別為C1、C2,標題分別為\隱藏\、\顯示\(如圖所示)。請編寫適當的事件過程,使得在運行時,如果單擊\隱藏\按鈕,則文本框消失,而如果單擊\顯示\按鈕,則文本框顯示出來。程序中不得使用任何變量。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sjt3.vbp,窗體文件名為sjt3.frm。

隱藏:text1.visible=false

顯示:text1.visible=true

4. 在窗體上畫二個文本框,名稱分別為Text1、Text2。請設置適當的控件屬性,并編寫適當的事件過程,使得在運行時,如果在Text1中每輸入一個字符,則顯示一個\,同時在Text2中顯示輸入的內容(如圖所示)。程序中不得使用任何變量。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sjt4.vbp,窗體文件名為sjt4.frm。

答案:將Text1的文本框的PasswordChar屬性為\。

Private Sub Text1_Change()

Text2.Text = Text1.Text

End Sub

5. (1)在考生文件夾中有工程文件wy69.vbp及其窗體文件wy69.frm,該程序是不完整的,請在有?號的地方填入正確內容,然后刪除?及所有注釋符(即'號)但不能修改其他部分。存盤時不得改變文件名和文件夾。

本題描述如下:在窗體上有一個列表框,名稱為List1,一個文本框,名稱為Text1,和一個命令按鈕,名稱為 C1,標題為\復制\。

要求程序運行后,在列表框中自動建立四個列表項,分別為\、\、\、\如果選擇列表框中的一項,則單擊\復制\按鈕時,可以把該項復制到文本框中(如圖所示)。

Private Sub Command1_Click()

Dim i As Integer

For i = 0 To 3

Text1.Text = List1

Next i

End Sub

6 在考生文件夾下有一個工程文件sj31.vbp,相應的窗體文件為sj31.frm,此

外還有一個名為datain.txt的文本文件,其內容如下:

32 43 76 58 28 12 98 57 31 42 53 64 75 86 97 13 24 35 46 57 68

79 80 59 37

程序運行后,單擊窗體,將把文件datain.txt中的數據輸入到二維數組 Mat

中,在窗體上按5行、5列的矩陣形式顯示出來,并輸出矩陣左上-右下對角線

上的數據,如圖所示。 在窗體的代碼窗口中,已給出了部分程序,這個程序

不完整,請把它補充完整,并能正確運行。

要求:

去掉程序中的注釋符,把程序中的 ? 改為正確的內容,使其實現上述功

能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

解題方法:

打開sjt5.vbp中的Form1窗體,打開代碼窗口,修改后的代碼如下:

Option Base 1

Private Sub Form_Click()

Const N = 5

Const M = 5

Dim Mat(M, N)

Dim i, j

Open App.Path & \For Input As #1

For i = 1 To N

For j = 1 To M

Input #1, Mat(i, j)

Next j

Next i

Close #1

Print

Print \初始矩陣為:\

Print

For i = 1 To N

For j = 1 To M

Print Tab(5 * j); Mat(i, j);

Next j

Print

Next i

Print

Print \左上 - 右下對角線上的數為:\

For i = 1 To N

For j = 1 To M

If i = j Then Print Tab(5 * j); Mat(i, j);

Next j

Next i

End Sub

7.請根據以下各小題的要求設計Visual Basic應用程序(包括界面和代碼)。

(1)在名稱為Form1的窗體上畫兩個標簽(名稱分別為Label1和Label2,標題分別為“姓名”和“年齡”)、兩個文本框(名稱分別為Text1和Text2,Text屬性均為空白)和一個命令按鈕(名稱為Command1,標題為“顯示”)。然后編寫命令按鈕的Click事件過程。程序運行后,在兩個文本框中分別輸入姓名和年齡,然后單擊命令按鈕,則在窗體上顯示兩個文本框中的內容,如圖所示。要求程序中不得使用任何變量。

*注意:存盤時必須存放在考生文件夾下,工程文件名為sj39.vbp,窗體文件名為sj39.frm。

Private Sub Command1_Click()

Print Text1.text+”,現年”+text2.text+“歲”

End Sub

8.在名稱為Form1的窗體上畫一個圖片框(名稱為Picture1)、一個水平滾動條(名稱為HScroll1)和一個命令按鈕(名稱為Command1,標題為“設置屬性”),通過屬性窗口在圖片框中裝入一個圖形(文件名為p02.jpg,位于考生文件夾下),圖片框的高度與圖形的高度相同,圖片框的寬度任意(如圖1所示)。編寫適當的事件過程,程序運行后,如果單擊命令按鈕,則設置水平滾動條的如下屬性:

Min 100

Max 1500

LargeChange 100

SmallChange 10

之后就可以通過移動滾動條上的滾動塊來放大或縮小圖片框。運行后的窗體如圖2所示。要求程序中不得使用任何變量。

*注意:存盤時必須存放在考生文件夾下,工程文件名為sj40.vbp,窗體文件名為sj40.frm。

圖1 圖2

Private Sub Command1_Click()

HScroll1.Max = 1500

HScroll1.Min = 100

HScroll1.SmallChange = 10

HScroll1.LargeChange = 100

End Sub

Private Sub HScroll1_Change()

Picture1.width=HScroll1.value

End Sub

9.在考生文件夾下有工程文件wy54.vbp及窗體文件wy54.frm,該程序是不完整的,請在有?號的地方填入正確內容,然后刪除?及所有注釋符(即 '號),但不能修改其它部分。存盤時不得改變文件名和文件夾,相應的 dat文件也保存到考生文件夾下,否則沒有成績。

本題描述如下:

在名稱為Form1的窗體上有五個Label控件和兩個命令按鈕,數據文件stud1.dat,存放考生的考號、姓名、成績。

1)自定義一個數據類型stu,字符型數據定長為10。

2)按\開始\按鈕后,能從考生文件夾下的stud1.dat 中讀出所有數據并寫入考生文件夾下的stud.dat文件中;

3)執行完畢,\開始\按鈕變成\完成\,且無效(變灰);

Private Type stu

num As Long

' nam As String * 10

score As Single

'End type

Private Sub Command1_Click()

Dim rec As stu

Dim i As Integer

myfile1 = App.Path & \\student.dat\

myfile2 = App.Path & \\student1.dat\

Open myfile1 For Input As #1

Open myfile2 For Input As #2

For i = 1 To 8

Input #1, rec.num, rec.nam, rec.score

Write #2, rec.num, rec.nam, rec.score

Next I

Close

Command1.Caption = \完成\

Command1.Enabled = False

End Sub

10.在Form1的窗體上畫一個標簽,其名稱為Lab1;再畫一個列表框,其名為L1,通過屬性窗口向列表框中添加若干個項目,每個項目的具體內容不限,編寫適當的事件過程。程序運行后,如果雙擊列表框中的任意一項,則把列表中的項目數在標簽中顯示出來。程序的運行情況如圖所示。不準使用任何變量。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sjt14.vbp,窗體文件名為sjt14.frm。

Private Sub L1_DblClick()

Lab1.Caption = L1.ListCount

End Sub

11.在考生文件夾下有工程文件wy55.vbp及窗體文件wy55.frm,該程序是不完整的,請在有?號的地方填入正確內容,然后刪除?及所有注釋符(即 '號),但不能修改其它部分。存盤時不得改變文件名和文件夾,相應的 dat文件也保存到考生文件夾下,否則沒有成績。

本題描述如下:

在名稱為Form1的窗體上有五個Label控件和兩個命令按鈕, 數據文件worker.dat,存放工人的編號、姓名、性別和體重。

1)按\開始\按鈕后,能從考生文件夾下的worker.dat中讀出數據并把體重大于平均體重的工人的所有數據寫入考生文件夾下的worker1.dat文件中;

2)執行完畢,\開始\按鈕變成\完成\,且無效。

Private Sub COMEXIT_Click()

End

End Sub

Private Sub COMSTART_Click()

Dim i As Integer

Dim total As Integer

Dim aver As Single

Dim num(10), namstring(10), sexstring(10), wages(10)

' MyFile1 = App.Path & \ “worker.dat”

' MyFile2 = App.Path & \“worker1.dat”

Open MyFile1 For Input As #1

Open MyFile2 For Output As #2

For i = 1 To 10

' Input #1, num(i), namstring(i), sexstring(i), wages(i)

total = total + wages(i)

Next i

'aver = total / 10

For i = 1 To 10

' If averNext i

'COMSTART.Caption = “完成”

'COMSTART.Enabled = fault

End Sub

Private Sub Label2_Click()

End Sub

12.在考生文件夾中有文件wy22.vbp及其窗體文件wy22.frm,該程序是不完整的,請在有?號的地方填入正確內容,然后刪除?及所有注釋符(即'號),但不能修改其它部分。存盤時不得改變文件夾和文件名。

本題描述如下:

窗體上有一個名稱為Text1的文本框;兩個復選框,名稱分別為Ch1和Ch2,標題分別為\愛心社\和\學通社\。要求程序運行后,如果只選中Ch1,單擊窗體,則在文本框中顯示\報名參加愛心社\;如果只選中Ch2,然后單擊窗體,則在文本框中顯示\報名參加學通社\;如果同時選中 Ch1 和Ch2,單擊窗體,則在文本框中顯示\報名參加愛心社和學通社\; 如果Ch1和Ch2都不選取,在單擊窗體后,則在文本框中什么都不顯示。

Option Explicit

Private Sub Form_Click()

Text1.Text = \

If Ch1.Value = 1 Then

Text1.Text = Text1.Text + \愛心社\

End If

If Ch2.Value Then

If Text1.Text <> \\愛心社\+ \和\

Text1.Text = Text1.Text + \學通社\

End If

If Text1.Text <> \

Text1.Text = \報名參加\

End If

End Sub

13. 請根據以下各小題的要求設計Visual Basic應用程序(包括界面和代碼)。

(1)在名稱為Form1的窗體上建立一個水平滾動條,請在屬性窗口中把它的名稱設置為HS1,Max屬性設置為100,Min屬性設置為0,Value屬性設置為100。程序運行后, 滾動框位于滾動條最右端(如圖所示),如果單擊滾動條之外的窗體部分,則滾動框跳到最左端。

*注意:

1)只能直接為相應的屬性賦值,不得使用變量。

2)保存時必須存放在考生文件夾下,窗體文件名為wy14.frm,工程文 件名為wy14.vbp 。

答案:Private Sub Form_click()

HScroll1.Left = 0

End Sub

14. )按下述要求在屬性窗口中設置屬性:在名稱為Form1的窗體中建立一個標簽,名稱為L1,在標簽上顯示\選課\,其字號大小為四號;再建立三個復選框,名稱分別為Chk1、Chk2和Chk3,標題分別為\操作系統\、\數據庫原理\、\概率論\,字體大小均為14,其中\概率論\被禁用。

*注意:

保存時必須存放在考生文件夾下,窗體文件名為wy15.frm,工程文件名為wy15.vbp。

答案:Private Sub Form_Load()

Check3.Enabled = False

End Sub

15. 在考生文件夾下有一個工程文件sj113.vbp,其窗體上畫有2個名稱分別為

Text1、Text2的文本框,其中Text1可多行顯示。請畫2個名稱為Command1、

Command2,標題為\產生數組\、\查找\的命令按鈕。如圖所示。程序功

能如下:

1)單擊\產生數組\按鈕,則用隨機函數生成10個0~100之間(不含0和

100)互不相同的數值,并將它們保存到一維數組a中,同時也將這10個

數值顯示在Text1文本框內;

2)單擊\查找\按鈕將彈出輸入對話框,接收用戶輸入的任意一個數,并

在一維數組a中查找該數,若查找失敗,則在Text2文本框內顯示該數\

不存在于數組中\;否則給出該數在數組中的位置。

要求:

請去掉程序中的注釋符,把程序中的 ?改為正確的內容,使其實現上述

功能,但不能修改窗體文件中已經存在的控件和程序。最后把修改后的

文件按原文件名存盤。

Private Sub Command1_Click()

Text1.Text = \

For i = 1 To 10

a(i) = Fix(Rnd * 99 + 1)

For j = 1 To i - 1

If a(i) = a(j) Then

i = i - 1

Exit For

End If

Next j

Next i

For i = 1 To 10

Text1.Text = Text1.Text + Str(a(i)) + Space(2)

Next i

End Sub

Private Sub Command2_Click()

Dim num As Integer, i As Integer

num = InputBox(\請輸入待查找的數\

For i = 1 To 10

If a(i) = num Then

Text2.Text = Str(num) + \是數組中的第\個值\

Exit For

End If

Next i

If i > 10 Then

Text2.Text = Str(num) + \不存在于數組中\

End If

End Sub

16.在考生文件夾下有一個工程文件sj127.vbp(相應的窗體文件名為sjt4.frm

),其功能是通過調用過程FindMax求數組的最大值,請裝入該文件。程

序運行后,在四個文本框中各輸入一個整數,然后單擊命令按鈕,即可求

出數組的最大值,并在窗體上顯示出來(如圖所示)。這個程序不完整,

請把它補充完整,并能正確運行。

要求:

去掉程序中的注釋符,把程序中的?改為正確的內容,使其實現上述功

能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存

盤。

Option Base 1

Private Function FindMax(a() As Integer)

Dim Start As Integer

Dim Finish As Integer, i As Integer

Start = LBound(a)

Finish = UBound(a)

Max = a(Start)

For i = Start To Finish

If a(i) > Max Then Max = a(i)

Next i

FindMax = Max

End Function

Private Sub Command1_Click()

Dim arr1

Dim arr2(4) As Integer

arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))

For i = 1 To 4

arr2(i) = CInt(arr1(i))

Next i

M = FindMax(arr2)

Print \最大值是: \

End Sub

17. 15(1)在考生文件夾下有一個工程文件sj10.vbp,窗體上有一個單選按鈕數組,含三個單選按鈕,均沒有標題,請利用屬性窗口,為單選按鈕依次添加標題為“北京”、“上?!?、“廣州”;再添加一個標題為“顯示”的命令按鈕,如圖所示。程序的功能是在運行時,如果選中一個單選按鈕后,單擊“顯示”按鈕,則根據單選按鈕的選中情況,在窗體上顯示“我的出生地是北京”、“我的出生地是上?!被頡拔業某鏨厥槍闃蕁?。要求:1) 依次添加單選按鈕標題為“北京”、“上?!?、“廣州”;設初始選中的是“廣州”,添加命令按鈕標題為“顯示”。2) 去掉程序中的注釋符,把程序中的?改為正確的內容,使其實現上述功能,但不能修改程序中的其他部分,也不能修改控件的其他屬性。最后把修改后的文件按原文件名存盤。

Private Sub C1_Click()

For i = 0 To 2

If Op1(i).value = True Then

Print \我的出生地是\caption

End If

Next

End Sub

18.在名稱為Form1的窗體上畫一個文本框(名稱為Text1,Text屬性為“國”,FontName屬性為“黑體”)和一個水平滾動條(名稱為HScroll1),如圖1所示。在屬性窗口中對滾動條設置如下屬性:

Min 10

Max 100

LargeChange 5

SmallChange 2

編寫適當的事件過程。程序運行后,如果移動滾動條上的滾動框,則可擴大或縮小文本框中的“國”字。運行后的窗體如圖2所示。要求程序中得使用任何變量。

*注意存盤時必須存放在考生文件夾下,工程文件名為sj20.vbp,窗體文件名為sj20.frm。

解析

Private Sub HScroll1_Change()

Text1.fontsize=hscroll1.value

end Sub

19. 請根據以下各小題的要求設計Visual Basic應用程序(包括界面和代碼)。

(1)在Form1的窗體上建立一個主菜單,標題為\操作\,名稱為Op,該菜單有兩個子菜單,其標題分別為\顯示\和\清除\,其名稱分別為 Dis和Clea,編寫適當的事件過程。程序運行后,如果單擊\操作\菜單中的\顯示\命令,則在窗體上顯示\等級考試\;如果單擊\清除\命令,則清除窗體上顯示的內容。程序的運行情況如圖所示。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sjt13.vbp,窗體文件名為sjt13.frm。

Private Sub Clea_Click()

Cls

End Sub

Private Sub Dis_Click()

Print \等級考試\

End Sub

20. 在考生文件夾下有一個工程文件sj43.vbp,請在窗體上畫兩個單選按鈕(

名稱分別為Option1和Option2,標題分別為“添加項目”和“刪除項目”

),一個列表框(名稱為List1)和一個文本框(名稱為Text1),如圖1

所示。編寫窗體的Click事件過程。程序運行后,如果選擇“添加項目”

單選按鈕,然后單擊窗體,則從鍵盤上輸入要添加的項目(內容任意,不

少于三個),并添加到列表框中;如果選擇“刪除項目”單選按鈕,然后

單擊窗體,則從鍵盤上輸入要刪除的項目,將其從列表框中刪除。程序的

運行情況如圖2所示。

在考生文件夾下的工程文件sj43.vbp(相應的窗體文件名為sj43.frm),

可以實現上述功能。但這個程序不完整,請把它補充完整。

要求:

去掉程序中的注釋符,把程序中的?改為適當的內容,使其正確運行,

但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

圖1 圖2

Private Sub Form_Click()

If Option1.Value = True Then

Text1.Text = InputBox(\請輸入要添加的項目\

List1.AddItem Text1.Text

End If

If Option2.Value = True Then

Text1.Text = InputBox(\請輸入要刪除的項目\

For i = 0 To List1.ListCount - 1

If List1.List(i) = Text1.Text Then

List1.RemoveItem i

End If

Next i

End If

End Sub

21. 在考生文件夾下有一個工程文件sj44.vbp(相應的窗體文件名為sj44.frm

),其功能是通過調用過程Sort將數組按降序排序,請裝入該文件。程序

運行后,在四個文本框中各輸入一個整數(如圖1所示),然后單擊命令

按鈕,即可使數組按降序排序,并在文本框中顯示出來(如圖2所示)。

這個程序不完整,請把它補充完整,并能正確運行。

要求:

去掉程序中的注釋符,把程序中的?改為正確的內容,使其實現上述功

能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存

盤。

圖1

Private Sub Sort(a() As Integer)

Dim Start As Integer, Finish As Integer

Dim i As Integer, j As Integer, t As Integer

Start = LBound(a)

Finish = UBound(a)

For i = Finish To 2 Step -1

For j = 1 To Finish - 1

If a(j) < a(j + 1) Then

t = a(j + 1)

a(j + 1) = a(j)

a(j) = t

End If

Next j

Next i

End Sub

22.其功能是產生30個0~999的隨機整數,放入一個數組中,然后輸出其中

的最小值。程序運行后,單擊命令按鈕(名稱為Command1,標題為\輸

出最小值\),即可求出其最小值,并在窗體上顯示出來(如圖所示)。

這個程序不完整,請把它補充完整,并能正確運行。

要求:

去掉程序中的注釋符,把程序中的?改為正確的內容,使其實現上述功

能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存

盤。

Private Sub Command1_Click()

Dim arrN(30) As Integer

Dim Min As Integer

Randomize

For i = 1 To 30

arrN(i) = Int(Rnd * 1000)

Next i

Min = arrN(1)

For i = 2 To 30

If Min > arrN(i) Then

Min = arrN(i)

End If

Next i

Print Min

End Sub

23. 在名稱為Form1的窗體上畫一個標簽(名稱為Label1,標題為“輸入信息

”)、一個文本框(名稱為Text1,Text屬性為空白)和一個命令按鈕(

名稱為Command1,標題為“顯示”),如圖1所示。然后編寫命令按鈕的

Click事件過程。程序運行后,在文本框中輸入“計算機等級考試”,然

后單擊命令按鈕,則標簽和文本框消失,并在窗體上顯示文本框中的內容。

運行后的窗體如圖2所示。要求程序中不得使用任何變量。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sj19.vbp,窗體文件

名為sj19.frm。

Private Sub Command1_Click()

Label1.Visible = False

Text1.Visible = False

Print Text1.Text

End Sub

24. 在名稱為Form1的窗體上畫一個文本框,其名稱為Text1,然后通過屬性窗

口設置窗體和文本框的屬性,實現如下功能:

1)在文本框中可以顯示多行文本

2)在文本框中顯示垂直滾動條

3)文本框中顯示的初始信息為“程序設計”

4)文本框中顯示的字體為三號規則黑體

5)窗體的標題為“設置文本框屬性”

完成設置后的窗體如圖所示。

要求:

不編寫任何代碼。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sj29.vbp,窗體文件

名為sj29.frm。

新建一個工程,在窗體上添加一個文本框Text1,并將其MultiLine屬性設置為True,ScrollBars屬性設置為2-Vertical,Text屬性設置為“程序設計”,FontName設置為“黑體”,FontSize設置為“三號”。再選中窗體,設置其Caption屬性為“設置文本框屬性”。

最后按照題目要求保存文件即可。

25. 在名稱為Form1的窗體上畫兩個命令按鈕(見圖1),其名稱分別為Cmd1

和Cmd2,編寫適當的事件過程。程序運行后,如果單擊命令按鈕Cmd1,則

可使該按鈕移到窗體的左上角(只允許通過修改屬性的方式實現);如果

單擊命令按鈕Cmd2,則可使該按鈕在長度和寬度上各擴大到原來的2倍。

程序的運行情況如圖2所示。

要求:

不得使用任何變量。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sj30.vbp,窗體文件

名為sj30.frm。

Private Sub Cmd1_Click()

Cmd1.Left = 0

Cmd1.Top = 0

End Sub

Private Sub Cmd2_Click()

Cmd2.Height = Cmd2.Height * 2

Cmd2.Width = Cmd2.Width * 2

End Sub

26. 在Form1的窗體上畫一個名稱為P1的圖片框,然后建立一個主菜單,標題為\操作\,名稱為Op,該菜單有兩個子菜單,其標題分別為\顯示\和\清除\,名稱分別為Dis和Clea,編寫適當的事件過程。程序運行后,如果單擊\操作\菜單中的\顯示\命令,則在圖片框中顯示\等級考試\;如果單擊\清除\命令,則清除圖片框中的信息。程序的運行情況如圖所示。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sjt15.vbp,窗體文件名為sjt15.frm。程序中不得使用任何變量。

Private Sub Clea_Click()

P1.Cls

End Sub

Private Sub Dis_Click()

P1.Print \等級考試\

End Sub

27. 在Form1的窗體上畫一個列表框,名稱為L1,通過屬性窗口向列表框中添加4個項目,分別為\、\、\和\,編寫適當的事件過程,過程中只能使用一條命令。程序運行后,如果雙擊列表框中的某一項,則把該項添加到列表框中。程序的運行情況如圖所示。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sjt16.vbp,窗體文件名為sjt16.frm。

Private Sub L1_DblClick()

L1.AddItem L1.Text

End Sub

28. 在Form1的窗體上畫一個標簽,其名稱為Lab1;再畫一個列表框,其名為L1,通過屬性窗口向列表框中添加若干個項目,每個項目的具體內容不限,編寫適當的事件過程。程序運行后,如果雙擊列表框中的任意一項,則把列表中的項目數在標簽中顯示出來。程序的運行情況如圖所示。不準使用任何變量。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sjt14.vbp,窗體文件名為sjt14.frm。

Private Sub L1_DblClick()

Lab1.Caption = L1.ListCount

End Sub

29. 在考生文件夾下有一個工程文件Sj5.vbp,請在窗體上畫兩個框架,其名

稱分別為F1和F2,標題分別為“交通工具”和“到達目標”。在F1中畫兩

個單選按鈕,名稱分別為Op1和Op2,標題分別為“飛機”和“火車”。在

F2中畫兩個單選按鈕,名稱分別為Op3和Op4,標題分別為“廣州”和“昆

明”?;桓霰昵?,其名稱為Lab1,寬度為3000,高度為375。編寫適當

事件過程。程序運行后,選擇不同單選按鈕時產生的顯示結果見下表

程序的運行情況如圖所示。存盤時,工程文件名為Sj5.vbp,窗體文件名

為Sj5.frm。

注意:

考生不得修改窗體文件中已經存在的程序,在結束程序運行之前,必

須至少進行上面的一種操作。退出程序時必須通過單擊窗體右上角的

關閉按鈕。

Private Sub Form_Click()

If Op1.Value = True Then

If Op3.Value = True Then

Lab1.Caption = \坐飛機去廣州\

ElseIf Op4.Value = True Then

Lab1.Caption = \坐飛機去昆明\

End If

ElseIf Op2.Value = True Then

If Op3.Value Then

Lab1.Caption = \坐火車去廣州\

ElseIf Op4.Value = True Then

Lab1.Caption = \坐火車去昆明\

End If

End If

End Sub

30. 在考生文件夾下有一個工程文件sj6.vbp,請在窗體上畫二個文本框,其

名稱分別為Text1、Text2,文本框內容分別設置為“等級考試”、“計算

機”。然后畫一個標簽,其名稱為 Lab1,高度為375,寬度為2000。再畫

兩個單選按鈕,名稱分別為Op1和Op2,標題分別為“交換”和“連接”,

最后再畫一個命令按鈕,其名稱為C1,標題為“確定”,編寫適當的事件

程序。程序運行后,如果選中“交換”單選按鈕并單擊“確定”按鈕,則

Text1文本框中內容與Text2文本框中內容進行交換,并在標簽處顯示“交

換成功”(如圖所示);如果選中“連接”單選按鈕并單擊“確定”按鈕

后,則把交換后的Text1和Text2的內容連接起來,并在標簽處顯示連接后

的內容。存盤時,工程文件名為Sj6.vbp,窗體文件名為sj6.frm。

注意:不得修改已經給出的程序。在結束程序運行之前,必須選中一個單

選按鈕,并單擊“確定”按鈕。退出程序時必須通過單擊窗體右上角的關

閉按鈕,否則可能無成績。

Private Sub C1_Click()

If Op1.Value=1 Then

Text1.Text = \計算機\

Text2.Text = \等級考試\

Lab1.Caption = \交換成功\

Else

Lab1.Caption = Text1.Text + Text2.Text

End If

End Sub

31. 在名稱為Form1的窗體上畫一個名稱為C1、標題為\改變顏色\的命令按

鈕,窗體標題為\改變窗體背景色\。編寫程序,使得單擊命令按鈕時,

將窗體的背景顏色改為紅色(&HFF&)。運行程序后的窗體如圖所示。

要求:

程序中不得使用變量,每個事件過程中只能寫一條語句。存盤時必須存

放在考生文件夾下,工程文件名為sj106.vbp,窗體文件名為sj106.frm。

Private Sub C1_Click()

Form1.BackColor = &HFF&

End Sub

32. 在考生文件夾下有一個工程文件sj114.vbp,窗體如圖所示。運行程序時,從

數據文件中讀取學生的成績(均為整數)。要求編寫程序,統計總人數,并

統計不及格、60~69、70~79、80~89及90~100各分數段的人數,將統計

結果顯示在相應的文本框中。結束程序之前,必須單擊\保存\按鈕,保存

統計結果。

注意:

不能修改程序的其他部分和控件屬性。程序調試通過后,運行程序,將

統計結果顯示在文本框中,再按\保存\按鈕保存數據,否則無成績。

最后把修改后的文件按原文件名存盤。

答案:\統計\按鈕的主要代碼如下:

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

Dim d As Integer, e As Integer, i As Integer

Dim score As Single

For i = 1 To n

score = arr(i)

Select Case score

Case Is < 60

a = a + 1

Case 60 To 69

b = b + 1

Case 70 To 79

c = c + 1

Case 80 To 89

d = d + 1

Case Else

e = e + 1

End Select

Next i

Text1.Text = n

Text2.Text = a

Text3.Text = b

Text4.Text = c

Text5.Text = d

Text6.Text = e

End Sub

33. 在名稱為Form1標題為“選課”的窗體上畫一個復選框數組,名稱為CH1,

共有四個復選框,按順序其標題分別是“數學”、“語文”、“外語”、

“計算機”,其中“語文”、“計算機” 復選框處在選中狀態下,運行

時的窗體如圖所示。 請畫控件并設置相應屬性。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sj21.vbp,窗體文件

名為sj21.frm。

新建一個名為Form1的窗體,點擊工具箱中的CheckBox控件圖標,然后在窗體上拖拉出一個復選框,通過屬性窗口設置其Name屬性為“CH1”。

選中“CH1”控件,執行“編輯”菜單中的“復制”命令(熱鍵為Ctrl+C),隨后選中Form1窗體,執行“編輯”菜單中的“粘貼”命令(熱鍵為Ctrl+V),將顯示一個對話框,詢問是否建立控件數組,選擇“是”按鈕,則可以建立控件數組的第二個元素。重復執行上述操作,可以建立控件數組的第三個元素,第四個元素。

通過屬性窗口,按索引順序由小到大設置控件數組中的各控件的Caption屬性為“數學”、“語文”、“外語”和“計算機”,并將“語文”和“計算機”控件的Value屬性設置為1。

按要求保存文件即完成本題。

34. 在名稱為Form1的窗體上畫一個名稱為HS1的水平滾動條,其刻度值范圍

為 1~100;畫一個命令按鈕,名稱為C1,標題為“移動滾動框”。請編

寫適當的事件過程,使得在運行時,每單擊命令按鈕一次( 假定單擊次

數少于10次 ),滾動框向右移動10個刻度。運行時的窗體如圖所示。

要求程序中不得使用變量,事件過程中只能寫一條語句。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sj22.vbp,窗體文件

名為sj22.frm。

Private Sub C1_Click()

HS1.Value = HS1.Value + 10

End Sub

35. 在考生文件夾下有一個工程文件sj49.vbp。窗體中已經給出了所有控件(如圖所示)。請編寫適當的事件過程完成以下功能:單擊“讀數”按鈕,則把考生文件夾下的inab5.txt文件中的一個整數放入Text1;單擊“計算”按鈕,則計算出大于該數的第1個素數,并顯示在Text2中;單擊“存盤”按鈕,則把找到的素數存到考生文件夾下的outab5.txt文件中。

注意:在結束程序運行之前,必須單擊“存盤”按鈕,把結果存入outab5.txt文件,否則無成績。最后把修改后的文件按原文件名存盤。

答案:Private Sub Command1_Click()

Open \

Input #1, a%

Text1.Text = a%

Close #1

End Sub

Private Function Check(i As Integer) As Boolean

For j = 2 To CInt(Sqr(i)) + 1

If i Mod j = 0 Then

Check = False

Exit Function

End If

Next j

Check = True

End Function

Private Sub Command2_Click()

Dim i As Integer

i = CInt(Text1.Text)

If i Mod 2 = 0 Then

i = i + 1

Else

i = i + 2

End If

Do Until Check(i)

i = i + 2

Loop

Text2.Text = i

End Sub

Private Sub Command3_Click()

Open \

Print #1, Text2.Text

Close #1

End Sub

36. 在名稱為Form1的窗體上畫一個文本框,其名稱為T1,寬度和高度分別為1400為400;再畫兩個命令按鈕,其名稱分別為C1和C2,標題分別為\顯示\和\擴大\,編寫適當的事件過程。程序運行后,如果單擊C1命令按鈕,則在文本框中顯示\等級考試\,如圖所示;如果單擊C2命令按鈕,則使文本框在高、寬方向上各增加一倍,文本框中的字體大小擴大到原來的2倍。

Private Sub Command1_Click()

Text1.Text = \等級考試\

End Sub

Private Sub Command2_Click()

Text1.Width = Text1.Width * 2

Text1.Height = Text1.Height * 2

Text1.FontSize = Text1.FontSize * 2

End Sub

37. 在考生文件夾下有一個工程文件sj76.vbp,相應的窗體文件為sj76.frm,在窗體上有一個命令按鈕(名稱為Command1,標題為\計算并輸出\)和兩個文本框(名稱分別為Text1和Text2),如圖所示。程序運行后,單擊命令按鈕,即可計算出數組Arr中10個數的正數之和pos與負數之和neg,并分別在兩個文本框中顯示出來。該程序不完整,請把它補充完整。

Private Sub Command1_Click()

Dim Arr

Arr = Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)

pos = 0

neg = 0

For k = 1 To 10

If Arr(k) >= 0 Then

pos = pos + Arr(k)

Else

neg = neg + Arr(k)

End If

Next k

Text1.Text = \正數之和為:\

Text2.Text = \負數之和為:\

End Sub

38. 在考生文件夾下有一個工程文件sj18.vbp(相應的窗體文件名為sj18.frm),其功能是通過調用過程Average求數組的平均值,請裝入該文件。程序運行后,在四個文本框中各輸入一個整數,然后單擊命令按鈕,即可求出數組的平均值,并在窗體上顯示出來(如圖所示)。這個程序不完整,

請把它補充完整,并能正確運行。

Private Function Average(a() As Integer) As Single

Dim Start As Integer, Finish As Integer

Dim i As Integer

Dim Sum As Integer

Start = LBound(a)

Finish = UBound(a)

Sum = 0

For i = Start To Finish

Sum = Sum + a(i)

Next i

Average = Sum / Finish

End Function

39. 在窗體(名稱為Form1,KeyPreview屬性為True)上畫一個列表框(名稱為 List1)和一個文本框(名稱為Text1),如圖1所示。編寫窗體的KeyDown事件過程。程序運行后,如果按“A”鍵,則從鍵盤上輸入要添加到列表框中的項目(內容任意,不少于三個);如果按“D”鍵,則從鍵盤上輸入要刪除的項目,將其從列表框中刪除。程序的運行情況如圖 2所示。在考生文件夾下有一個工程文件sj17.vbp(相應的窗體文件名為sj17.frm),可以實現上述功能。但這個程序不完整,請把它補充完整。

要求:去掉程序中的注釋符,把程序中的?改為適當的內容,使其正確運行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

圖1 圖2

解題方法:

打開工程文件sjt3.vbp和相應的窗體文件名為sjt3.frm,點擊工具箱中的ListBox和TextBox控件圖標,然后在窗體上拖拉出一個列表框、一個文本框。打開代碼窗口,補充如下的代碼:

Private Sub Form_KeyDown(KeyCode As Integer, _

Shift As Integer)

If Chr(KeyCode) = \

Text1.Text = InputBox(\請輸入要添加的項目\

List1.AddItem Text1.Text

End If

If Chr(KeyCode) = \

Text1.Text = InputBox(\請輸入要刪除的項目\

For i = 0 To List1.ListCount

If List1.List(i) = Text1.Text Then

List1.RemoveItem i

End If

Next i

End If

End Sub

40. 在考生文件夾下有工程文件wy60.vbp及窗體文件wy60.frm,該程序是不完整的,請在有?號的地方填入正確內容,然后刪除?及所有注釋符(即 '號),但不能修改其它部分。存盤時不得改變文件名和文件夾。

本題描述如下:

在名稱為Form1的窗體上有一個Label控件,4個Text控件及7個命令按鈕,功能如下:

1)開始啟動工程時,界面上除\開始錄入\及\退出\按鈕之外,其它按鈕均不可用(灰色顯示)。

2)單擊\開始錄入\按鈕之后,利用INPUTBOX讓用戶連續且必須錄入 10個數。若錄入為非數字符號,則給出警告\輸入數據無效,請重新輸入數值數據,請輸入第n個數\。

3)錄入完畢后,\開始錄入\變灰,其它變為可用狀態。

4)按相應的按鈕可分別求出所錄入數據的\升序\、\降序\排列及\最大數\和\最小數\并在右側對應的文本框中顯示。(注意用A(10)存放最大數,A(1)存放最小數)

5)單擊\清除\按鈕將所有文本框清空。

For i = 1 To N-1

For j = i + 1 To N

If Val(a(j)) < Val(a(i)) Then

TEMP = a(j)

a(j) = a(i)

a(i) = TEMP

End If

Next j

Next i

41. 在名稱為Form1的窗體上畫一個文本框,名稱為Text1;再畫一個命令按 鈕,名稱為C1,標題為\移動\(如圖所示)。請編寫適當的事件過程,使得在運行時,單擊\移動\按鈕,則文本框水平移動到窗體的最左端。程序中不得使用任何變量。

*注意:

存盤時必須存放在考生文件夾下,工程文件名為sjt6.vbp,窗體文件名為sjt6.frm。

Private Sub C1_Click()

Text1.Left = 0

End Sub

42. 在名稱為Form1的窗體上畫二個文本框,名稱分別為T1、T2,初始情況下都沒有內容。請編寫適當的事件過程,使得在運行時,在T1中輸入的任何字符,立即顯示在T2中(如圖所示)。程序中不得使用任何變量。

Private Sub T1_Change()

T2.Text = T1.Text

End Sub

44.在考生文件夾中有工程文件wy70.vbp及其窗體文件wy70.frm ,該程序是不完整的,請在有?號的地方填入正確內容,然后刪除?及所有注釋符(即'號)但不能修改其它部分。存盤時不得改變文件名和文件夾。

本題描述如下:在窗體有三個復選框,名稱分別為 Ch1、Ch2和Ch3,標題依次為\體育\、\音樂\、\美術\,還有一個命令按鈕,名稱為C1,標題為\顯示\。

要求程序運行后,如果選中某個復選框,則當單擊\顯示\命令按鈕時,則顯示相應的信息。例如,如果選中\體育\和\音樂\復選框,則單擊\顯示\命令按鈕后,在窗體上顯示\我的愛好是體育音樂\(如圖所示);而如果選中\體育\、\音樂\和\美術\復選框,則單擊\顯示\按鈕后,在窗體上顯示\我的愛好是體育音樂美術\。

Option Explicit

Private Sub C1_Click()

Dim s As string

s = \我的愛好是\

If Ch1.Value = 1 Then

s = s + Ch1.Caption

End If

If Ch2.Value = 1 Then

s = s + Ch2.Caption

End If

If Ch3.Value = 1 Then

s = s + Ch3.Caption

End If

' Print s

End Sub

Private Sub Form_Load()

End Sub

45. 在考生文件夾下有一個工程文件sj35.vbp,它的功能是在文本框中輸入一

個整數,單擊“移動”按鈕后,如果輸入的是正數,滾動條中的滾動框向

右移動與該數相等的刻度,但如果超過了滾動條的最大刻度,則不移動,

并且顯示“文本框中的數值太大”;如果輸入的是負數,滾動條中的滾動

框向左移動與該數相等的刻度,但如果超過了滾動條的最小刻度,則不移

動,并且顯示“文本框中的數值太小”,如圖所示。

要求:去掉程序中的注釋符,把程序中的 ?改為正確的內容,使其實現

上述功能,但不能修改程序中的其他部分,也不能修改控件的屬性。最后

把修改后的程序以原來的文件名存盤。

Private Sub C1_Click()

If HS1.Value + Text1.Text > HS1.Max Then

MsgBox \文本框中的數值太大\

ElseIf HS1.Value + Text1.Text < HS1.Min Then

MsgBox \文本框中的數值太小\

Else

HS1.Value = HS1.Value + Text1.Text

End If

End Sub

46. 在考生文件夾中有文件wy22.vbp及其窗體文件wy22.frm,該程序是不完整的,請在有?號的地方填入正確內容,然后刪除?及所有注釋符(即'號),但不能修改其它部分。存盤時不得改變文件夾和文件名。

本題描述如下:

窗體上有一個名稱為Text1的文本框;兩個復選框,名稱分別為Ch1和Ch2,標題分別為\愛心社\和\學通社\。要求程序運行后,如果只選中Ch1,單擊窗體,則在文本框中顯示\報名參加愛心社\;如果只選中Ch2,然后單擊窗體,則在文本框中顯示\報名參加學通社\;如果同時選中 Ch1 和Ch2,單擊窗體,則在文本框中顯示\報名參加愛心社和學通社\; 如果Ch1和Ch2都不選取,在單擊窗體后,則在文本框中什么都不顯示。

Option Explicit

Private Sub Form_Click()

Text1.Text = \

' If Ch1.Value = 1 Then

Text1.Text = Text1.Text + \愛心社\

End If

If Ch2.Value Then

' If Text1.Text <> \“愛心社” + \和\

Text1.Text = Text1.Text + \學通社\

End If

If Text1.Text <> \

Text1.Text = \報名參加\

End If

End Sub

48. 在考生文件夾下有一個工程文件sj11.vbp,請在Form1窗體中畫三個標簽,名稱分別為B1、B2、L1,標題分別為“字號”、“字體”、“計算機等級考試”,其中L1的高為500,寬為3000;再在B1、B2標簽的下面畫兩個組合框,名稱分別為Cb1、Cb2,并為Cb1添加項目:“10”、“15”、“20”,為Cb2添加項目:“黑體”、“隸書”、“宋體”,以上請在設計時實現。請編寫適當的事件過程,使得在運行時,當在Cb1中選一個字號、在Cb2中選一個字體,標簽L1中的文字立即變為選定的字號和字體。如圖所示。

注意:考生不得修改窗體文件中已經存在的程序,在結束程序運行之前,必須選擇一個字號和字體。必須用窗體右上角的關閉按鈕結束程序,否則無成績。最后,按原文件名存盤,程序中不能使用任何變量。

Private Sub Combo1_Click()

Dim i As Integer

For i = o To 2

Label3.FontSize = Combo1

Next i

End Sub

Private Sub Combo2_Click()

Dim i As Integer

For i = o To 2

Label3.Font = Combo2

Next i

End Sub

49. 在考生文件夾下有一個工程文件sj46.vbp,相應的窗體文件為sj46.frm, 在窗體上有一個命令按鈕和一個文本框。程序運行后,單擊命令按鈕,即可計算出0~1000范圍內不能被7整除的整數的個數,并在文本框中顯示出來。 在窗體的代碼窗口中,已給出了部分程序,其中計算不能被7整除的 整數的個數的操作在通用過程Fun中實現,請編寫該過程的代碼。

要求:請勿改動程序中的任何內容,只在Function Fun()和End Function之間填入你編寫的若干語句。最后把修改后的文件按原文件名存盤。

Function Fun()

Dim i As Integer, num As Integer

For i = 0 To 1000

If i Mod 7 <> 0 Then

num = num + 1

End If

Next i

Text1.Text = num

End Function

在考生文件夾下有一個工程文件sj49.vbp。窗體中已經給出了所有控件(如圖所示)。請編寫適當的事件過程完成以下功能:單擊“讀數”按鈕,則把考生文件夾下的inab5.txt文件中的一個整數放入Text1;單擊“計算”按鈕,則計算出大于該數的第1個素數,并顯示在Text2中;單擊“存盤”按鈕,則把找到的素數存到考生文件夾下的outab5.txt文件中。

注意:在結束程序運行之前,必須單擊“存盤”按鈕,把結果存入outab5.txt文件,否則無成績。最后把修改后的文件按原文件名存盤。

Private Sub Command1_Click()

Open \

Input #1, a%

Text1.Text = a%

Close #1

End Sub

Private Function Check(i As Integer) As Boolean

For j = 2 To CInt(Sqr(i)) + 1

If i Mod j = 0 Then

Check = False

Exit Function

End If

Next j

Check = True

End Function

Private Sub Command2_Click()

Dim i As Integer

i = CInt(Text1.Text)

If i Mod 2 = 0 Then

i = i + 1

Else

i = i + 2

End If

Do Until Check(i)

i = i + 2

Loop

Text2.Text = i

End Sub

Private Sub Command3_Click()

Open \

Print #1, Text2.Text

Close #1

End Sub

在考生文件夾下有工程文件wy57.vbp及窗體文件wy57.frm,該程序是不完整的,請在有?號的地方填入正確內容,然后刪除?及所有注釋符(即 '號),但不能修改其它部分。存盤時不得改變文件名和文件夾,相應的dat文件也保存到考生文件夾下,否則沒有成績。

本題描述如下:

在名稱為Form1的窗體上有五個Label控件和兩個命令按鈕, 數據文件grade.dat存放一些成績。

1)按\開始\按鈕后,從考生文件夾下的grade.dat中讀出數據并求出它們的平均數,將結果寫入考生文件夾下的average.dat文件中;

2)執行完畢,\開始\按鈕變成\完成\,且無效(變灰)

Private Sub COMEXIT_Click()

End

End Sub

Private Sub COMSTART_Click()

Dim g As Single, N As Integer, S As Single

myfile1 = App.Path & \

myfile2 = App.Path & \

'Open myfile1for input as #1

'Open myfile2for input as #2

Do While Not EOF(1)

' Input ?, g

N = N + 1

S = S + g

Loop

Close #1

'S = S / ?

'Write #2,

Close

'COMSTART.Caption = “完成

'COMSTART.Enabled = false

End Sub

Private Sub Form_Load()

End Sub

在名稱為Form1的窗體上畫一個命令按鈕,其名稱為C1,標題為“移動”,位于窗體的左上部,如圖1所示,編寫適當的事件過程。程序運行后,每單擊一次窗體,都使得命令按鈕同時向右、向下移動100。程序的運行情況如圖2所示。

要求: 1)不得使用任何變量;

2)存盤時必須存放在考生文件夾下,工程文件名為sj60.vbp,窗體文件名為sj60.frm。

圖1

Private Sub Command1_Click()

Command1.Left = Command1.Left + 100 '100 twips

Command1.Top = Command1.Top + 100

End Sub

在考生文件夾下有一個工程文件sj61.vbp,相應的窗體文件為sj61.frm。在窗體上有一個命令按鈕,其名稱為Command1,標題為“添加”;有一個文本框,名稱為Text1,初始內容為空白; 此外還有一個列表框,其名稱為List1。程序運行后,如果在文本框中輸入一個英文句子( 由多個單詞組成,各單詞之間用一個空格分開),然后單擊命令按鈕,程序將把該英文句子分解為單詞,并把每個單詞作為一個項目添加到列表框中,如圖所示。該程序不完整,請把它補充完整。

要求:去掉程序中的注釋符,把程序中的 ?改為正確的內容, 使其能正確運行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

Private Sub Command1_Click()

Dim S1 As String, S2 As String

Dim I1 As Integer

' S1 =text1.text

I1 = 1

Do

' Do While Mid(S1, I1, 1) <> “ “ And I1 <= Len(S1)

S2 = S2 & Mid(S1, I1, 1)

I1 = I1 + 1

Loop

' List1.AddItem s2

' S2 = “”

I1 = I1 + 1

Loop While I1 <= Len(S1)

End Sub

Private Sub Form_Load()

End Sub

在考生文件夾下有一個工程文件sj62.vbp,相應的窗體為sj62.frm。窗體中有一個名稱為Command1的命令按鈕和一個名稱為Timer1的計時器。請在窗體上畫一個標簽(名稱為Label1,標題為“請輸入一個正整數”)、再畫一個文本框(名稱為 Text1,初始內容為空白)。已經給出了相應的事件過程。程序運行后, 在文本框中輸入一個正整數,此時如果按回車鍵,則可使文本框中的數字每隔0.3秒減 1(倒計數);當減到0時,倒計數停止,清空文本框,并把焦點移到文本框中。

要求:去掉程序中的注釋符,把程序中的 ?改為正確的內容, 使其能正確運行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()

' If Val(text1.text) = 0 Then

Text1.Text = \

' Timer1.enabled = False

' Text1.setfocus

Else

Text1.Text = Str(Val(Text1.Text) - 1)

End If

End Sub

在考生文件夾下有一個工程文件sj53.vbp,窗體上已經畫出所有控件。如圖所示。在Text1文本框中輸入一個任意的字符串(要求串的長度≥10),然后選擇組合框中的 3個截取運算選項之一。單擊“計算”按鈕,將截取運算后的結果顯示在Text2中。窗體文件中已經給出了程序,但不完整,請去掉程序中的注釋符,把程序中的 ?改為正確的內容。

Dim is_num As Boolean

Private Sub Command1_Click()

Dim tmpStr As String * 50

'Select Case cobmo1.listcount

Case 0

tmpStr = Left(Trim(Text1.Text), 3)

Case 1

tmpStr = Right(Trim(Text1.Text), 3)

Case 2

'tmpStr = Mid(Trim(Text1.Text), 3,4)

End Select

'Text2.Text = tmpstr

End Sub

Private Sub Form_Load()

End Sub

在考生文件夾下有一個工程文件sj52.vbp,窗體上有一個命令按鈕Command1(標題為“下一個”)。

要求:在窗體上建立一個單選按鈕數組Option1,含4個單選按鈕,標題分別為“選項1”、“選項2”、“選項3”、“選項4”,初始狀態下,“選擇1”為選中狀態。如圖所示。 窗體文件中已經給出了命令按鈕的Click事件過程,但不完整, 請去掉程序中的注釋符,把程序中的 ?改為正確的內容,使得每單擊命令按鈕一次,就選中下一個單選按鈕,如果已經選中最后一個單選按鈕,再單擊命令按鈕,則選中第1個單選按鈕。

注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

Private Sub Command1_Click()

' For k = 0 To3

If Option1(k).Value Then

' n =k

End If

Next k

Option1(n).Value = False

n = n + 1

If n = 4 Then

' n = 0

End If

Option1(n).Value = True

End Sub

Private Sub Form_Load()

End Sub

在考生文件夾下有一個工程文件sj58.vbp,相應的窗體文件為sj58.frm。在窗體上有一個命令按鈕, 其名稱為Command1,標題為“輸入/顯示”;此外還有一個文本框,其名稱為Text1,初始內容為空白。程序的功能是,程序運行后,單擊命令按鈕,顯示輸入對話框,在對話框中輸入某個月份的數值(1~12), 然后單擊“確定”按鈕,即可在文本框中輸出該月份所在的季節。例如輸入5,將輸出“5月份是夏季”,如圖所示。該程序不完整,請把它補充完整。

要求:去掉程序中的注釋符,把程序中的 ?改為正確的內容, 使其能正確運行,但不能修改程序中的其他部分。最后用原來的文件名保存工程文件和窗體文件。

將語句

  'Loop Until ? And n < 13

  改為

  Loop Until n > 0 And n < 13

  2) 將語句

  'Select Case ?

  改為

  Select Case n

  3) 將語句

  'Select Case ?

  改為

  Select Case m

vb的操作題(有答案).doc

vb的操作題(有答案) - 1.(1)在考生文件夾中有工程文件sj126.vbp...

vb新操作題(含答案).doc

vb新操作題(含答案) - 一、操作題,每題 10分,6 題共60分 【第4題】...

vb16道操作題(含答案):.doc

vb16道操作題(含答案): - Vb 操作題 第 1 頁 共 8 頁 (新)0...

VB復習題(含答案).doc

VB復習題(含答案)_高等教育_教育專區。VB期末考試復習專題,含答案。 第一部分:單選,填空,程序填空,讀程序寫結果 VB 考試一 1、能夠獲得一個文本框中被選取文本......

VB操作題答案.doc

VB操作題答案 - 第一次作業 Private Sub Command1_Click() Text1.Text = 歡迎你學習 VB 程序設計 Text1.ForeColor = vbGreen......

VB試題(附帶答案).doc

VB試題(附帶答案) - VB 試題 一、 基本概念及基本操作 1、如果要向工具...

全國VB二級操作試題及答案2016.doc

全國VB二級操作試題及答案2016 - 一、基本操作題 (1)在名稱為 Form...

VB24題操作題答案.doc

VB24題操作題答案_IT認證_資格考試/認證_教育專區。visual basic操作題 1、編寫程序,使用多分支(Select Case)語句結構對輸入的學生成績給出A、B、C和D四個 ......

VB練習題(上機)含答案.doc

VB練習題(上機)含答案 - 第一部分 1 在窗體上添加一個命令按鈕(名稱為Cm...

VB程序習題集(附答案).doc

VB程序習題集(附答案) - VB 簡介 1、在以下有關對象屬性的敘述中,不正確...

VB選擇題(含答案)_按章節.doc

VB選擇題(含答案)_按章節 - 第1章 第2章 第3章 A.DOS Visua...

VB操作題.doc

VB操作題 - 一、 考試題程序 1、啟動 VB,打開工程文件“C:\MyExam\VB52.vbp”,完成如下算法設計: 已知變量 x 的值是 345,下列程序的功能是求 x 的各位......

信息技術會考模擬練習vb操作題答案.doc

信息技術會考模擬練習vb操作題答案 - 06 信息技術會考模擬練習 vb 操作題答案 此處插入 a=1;方法:將光 標置于“b”的左邊,按回車 Val(text1.text) () Val......

21VB B卷操作題參考答案.doc

21VB B卷操作題參考答案 - 三、操作題 題有2處錯 處錯, 題 處錯 每改對一處錯得2.5 處錯; 2.5分 (一)程序調試題(第1題有 處錯,第2題3處錯,第3......

VB測試題(一)及答案.doc

VB測試題(一)及答案 - 測試題(一) 一:選擇題 1)VB 是一種面向對象的可視化程序設計語言,采取了( A:事件驅動 C:從主程序開始執行 2)在 VB 中最基本的......

VB期末考試試題及答案.doc

此試題是我們學校往年的VB期末考試試題及答案。希望對大家有用。。 ...4、方法是 VB 提供的一種 特殊子程序 ,用來完成一定的操作。 5、浮點類型......

vb試題和答案.doc

vb試題和答案 - 1.工程文件的擴展名是 vbp。 2.VB 中若要產生一個消...

VB程序試題(附答案).doc

VB程序試題(附答案) 隱藏>> VB 程序測試題一、單選題(每題 1 分) : 1....在 VB 程序設計中, 是指用戶操作引發或由系統引發,能被對象所識別 并做出響應......

VB程序習題集(附答案).doc

既可以進行讀操作,也可以進行寫操作 5、設有語句 Open “d:\Test.txt” For...·選擇題 VB 簡介 1.C 6.B 2.C 7.A 3.C 8.D 4.A 9.B 5.C 10......

vb常用控件__練習題(含答案).doc

vb常用控件__練習題(含答案) - 第九章 控件綜合試題 一、填空題 1. 在圖片框上放置的控件稱為圖片框的(子)對象,而窗體是圖片框的(父)對象。 2.窗體的“......

2015安徽省NCRE二級VB最新考試試題庫(完整版).txt

2015安徽省NCRE二級VB最新考試試題庫(完整版)_韓語學習_外語學習_教育專區。2015...以上答案都不是 37、LINUX是一種( B ) A、數據庫管理系統 B、微機操作系統......

信息安全答案.txt

(導致系統進入被入侵狀態必須執行的操作/特征事件);...宏病毒特點:只感染微軟數據(文檔)文件機制:用VB高級...信息安全復習題(含答案) 暫無評價 24頁 30.00......

寧夏銀川二中2010屆高三第二次模擬考試物理(含答案).txt

vB = 3 : 2 C. v A : vB = 3 : 1 第∏...“b”); 在該電路中,為了操作方便且能準確地進行...(二)試題 理科綜合能力測試參考答案 題號 答案 14......

《會計電算化》分章練習2及答案.txt

A.FOXPRO B.C語言 C.計算機語言 D.VB 13.賬務...( ) 4.每個操作員必須有自己的操作會計軟件的密碼...( ) [習題答案 ] 1 一、 單項選擇題 1.C 2.......

access數據庫程序設計教程答案.txt

access數據庫程序設計教程答案 - 雖說不上標準,但也算可以了。... access數據庫程序設計教程答案_管理學_高等教育_...網頁中的默認腳本語言是VBScript(VB編程系統的子......

c++語言程序設計教程答案 - 百度文庫.txt

C.VB D.C 3.下列關于類的描述中,錯誤的是( ...√ 24.表達式中各操作數計算順序取決于運算符的優先...2.3 填空題 1.C++語言中,基本數據類型包含有整型......

全國計算機等級考試VB二級筆試復習方法.txt

“以教科書為本”,認真復習并做到以下幾點,通過二級VB筆試還是有比較大的希望的...5和6 【答案】B【分析】本題中的X是窗體級變量,所以X在過程之間傳遞參數時......

vb的操作題(有答案).doc

vb的操作題(有答案) - 1.(1)在考生文件夾中有工程文件sj126.vbp...

vb新操作題(含答案).doc

vb新操作題(含答案) - 一、操作題,每題 10分,6 題共60分 【第4題】...

vb16道操作題(含答案):.doc

vb16道操作題(含答案): - Vb 操作題 第 1 頁 共 8 頁 (新)0...

VB復習題(含答案).doc

VB復習題(含答案)_高等教育_教育專區。VB期末考試復習專題,含答案。 第一部分:單選,填空,程序填空,讀程序寫結果 VB 考試一 1、能夠獲得一個文本框中被選取文本......

VB操作題答案.doc

VB操作題答案 - 第一次作業 Private Sub Command1_Click() Text1.Text = 歡迎你學習 VB 程序設計 Text1.ForeColor = vbGreen......

VB試題(附帶答案).doc

VB試題(附帶答案) - VB 試題 一、 基本概念及基本操作 1、如果要向工具...

全國VB二級操作試題及答案2016.doc

全國VB二級操作試題及答案2016 - 一、基本操作題 (1)在名稱為 Form...

VB24題操作題答案.doc

VB24題操作題答案_IT認證_資格考試/認證_教育專區。visual basic操作題 1、編寫程序,使用多分支(Select Case)語句結構對輸入的學生成績給出A、B、C和D四個 ......

VB練習題(上機)含答案.doc

VB練習題(上機)含答案 - 第一部分 1 在窗體上添加一個命令按鈕(名稱為Cm...

VB程序習題集(附答案).doc

VB程序習題集(附答案) - VB 簡介 1、在以下有關對象屬性的敘述中,不正確...

VB選擇題(含答案)_按章節.doc

VB選擇題(含答案)_按章節 - 第1章 第2章 第3章 A.DOS Visua...

VB操作題.doc

VB操作題 - 一、 考試題程序 1、啟動 VB,打開工程文件“C:\MyExam\VB52.vbp”,完成如下算法設計: 已知變量 x 的值是 345,下列程序的功能是求 x 的各位......

信息技術會考模擬練習vb操作題答案.doc

信息技術會考模擬練習vb操作題答案 - 06 信息技術會考模擬練習 vb 操作題答案 此處插入 a=1;方法:將光 標置于“b”的左邊,按回車 Val(text1.text) () Val......

21VB B卷操作題參考答案.doc

21VB B卷操作題參考答案 - 三、操作題 題有2處錯 處錯, 題 處錯 每改對一處錯得2.5 處錯; 2.5分 (一)程序調試題(第1題有 處錯,第2題3處錯,第3......

VB測試題(一)及答案.doc

VB測試題(一)及答案 - 測試題(一) 一:選擇題 1)VB 是一種面向對象的可視化程序設計語言,采取了( A:事件驅動 C:從主程序開始執行 2)在 VB 中最基本的......

VB期末考試試題及答案.doc

此試題是我們學校往年的VB期末考試試題及答案。希望對大家有用。。 ...4、方法是 VB 提供的一種 特殊子程序 ,用來完成一定的操作。 5、浮點類型......

vb試題和答案.doc

vb試題和答案 - 1.工程文件的擴展名是 vbp。 2.VB 中若要產生一個消...

VB程序試題(附答案).doc

VB程序試題(附答案) 隱藏>> VB 程序測試題一、單選題(每題 1 分) : 1....在 VB 程序設計中, 是指用戶操作引發或由系統引發,能被對象所識別 并做出響應......

VB程序習題集(附答案).doc

既可以進行讀操作,也可以進行寫操作 5、設有語句 Open “d:\Test.txt” For...·選擇題 VB 簡介 1.C 6.B 2.C 7.A 3.C 8.D 4.A 9.B 5.C 10......

2015安徽省NCRE二級VB最新考試試題庫(完整版).txt

2015安徽省NCRE二級VB最新考試試題庫(完整版)_韓語學習_外語學習_教育專區。2015...以上答案都不是 37、LINUX是一種( B ) A、數據庫管理系統 B、微機操作系統......

信息安全答案.txt

(導致系統進入被入侵狀態必須執行的操作/特征事件);...宏病毒特點:只感染微軟數據(文檔)文件機制:用VB高級...信息安全復習題(含答案) 暫無評價 24頁 30.00......

寧夏銀川二中2010屆高三第二次模擬考試物理(含答案).txt

vB = 3 : 2 C. v A : vB = 3 : 1 第∏...“b”); 在該電路中,為了操作方便且能準確地進行...(二)試題 理科綜合能力測試參考答案 題號 答案 14......

《會計電算化》分章練習2及答案.txt

A.FOXPRO B.C語言 C.計算機語言 D.VB 13.賬務...( ) 4.每個操作員必須有自己的操作會計軟件的密碼...( ) [習題答案 ] 1 一、 單項選擇題 1.C 2.......

access數據庫程序設計教程答案.txt

access數據庫程序設計教程答案 - 雖說不上標準,但也算可以了。... access數據庫程序設計教程答案_管理學_高等教育_...網頁中的默認腳本語言是VBScript(VB編程系統的子......

c++語言程序設計教程答案 - 百度文庫.txt

C.VB D.C 3.下列關于類的描述中,錯誤的是( ...√ 24.表達式中各操作數計算順序取決于運算符的優先...2.3 填空題 1.C++語言中,基本數據類型包含有整型......

  • 本文相關:
  • Vb操作題題庫(含答案)
  • vb操作選擇題及答案
  • VB操作題
  • vb新操作題(含答案)
  • vb作業題1—參考答案
  • 上海計算機VB二級 A卷操作題參考答案
  • 全國計算機 二級 VB上機操作題 題目答案及解析
  • 上海計算機VB二級 B卷操作題參考答案
  • vb上機綜合操作題
  • 計算機vb基礎考試操作題
  • 049期双色球开奖直播 www.lvelns.com.cn true //www.lvelns.com.cn/wendangku/z5s/f59g/jcf0594daefv/k5ef7ba0d3c46l.html report 68685 1.(1)在考生文件夾中有工程文件sj126.vbp,其中的窗體如圖所示。程序剛運行時,會生成一個有10個元素的整型數組。若選中\查找最大值\(或\查找最小值\)單選按鈕,再單擊\查找\按鈕,則找出數組中的最大值(或最小值),并顯示在標簽Label2中。請去掉程序中的注釋符,把程序中的 ?改為正確的內容。注意:考生不得修改窗體文件中已經存在的程序。最后把修改后的文件按原文件名存盤。Private Sub Command1_Click()x = a
    • 猜你喜歡
      • 24小時熱文
      • 本周熱評
        圖文推薦
        • 最新添加
        • 最熱文章
          精彩推薦
          讀過此文的還讀過