資源簡(jiǎn)介

VB程序設(shè)計(jì)操作題26套
第一套：屬性設(shè)置
題目:
打開窗體Form2.frm，在窗體中有一個(gè)文本框?qū)ο螅?br/>1、對(duì)文本框設(shè)置屬性 :距窗體Form2頂部距離：1200 , 左邊距離： 1800 , 前景色 &H00FF0000&, 字體屬性：字體為黑體、二號(hào)
2、在文本框左邊添加一標(biāo)簽控件，并按下列要求設(shè)置：caption=TEL，字體:黑體、二號(hào)
3、以原文件名保存
操作參考:
打開窗體Form2.frm
1、選中文本框-設(shè)置屬性 :屬性窗口設(shè)置:頂部距離：TOP =1200 左邊距離：LEFT=1800, 前景色 Forecolor 照題輸入, 字體屬性：Font
2、添加標(biāo)簽：點(diǎn)擊工具中A-拖動(dòng)得到一個(gè)標(biāo)簽-再設(shè)置屬性caption中輸入 TEL , Font中選黑體、二號(hào)
3、以原文件名保存
第二套：屬性設(shè)置
題目:
設(shè)置當(dāng)前窗體文件FROM3.FRM
1、把窗體中的標(biāo)簽“江蘇省中小學(xué)”的字體、字號(hào)、前景色、背景色參照標(biāo)簽“信息技術(shù)等級(jí)考試”風(fēng)格進(jìn)行設(shè)置
2、把窗體中的命令按鈕的文字設(shè)置為退出，將開始按鈕位置設(shè)置成與“退出”按鈕水平對(duì)齊
3、以原文件名保存
操作參考:
1、選中“信息技術(shù)等級(jí)考試”標(biāo)簽-依要求查看各屬性值包括:字體 字號(hào):Font, 前景色 Forecolor, 背景色 Backcolor
2、再選中“江蘇省中小學(xué)”標(biāo)簽，依上面查看值設(shè)置上面的相同屬性
3、選中命令按鈕-設(shè)置 Caption 屬性：退出
把兩個(gè)命令按鈕都選中（拖動(dòng)框起來）-格式-對(duì)齊方式-上邊對(duì)齊（下邊對(duì)齊也可）
4、以原文件名保存
第三套：屬性設(shè)置題
題目
1、把窗體中顯示“姓名”“準(zhǔn)考證號(hào)”的文本框的字體設(shè)置為”宋體、粗鈄體、三號(hào)“前景色屬性值為&H00FF0000&
2、把窗體中“確定”標(biāo)簽刪除，并在相應(yīng)位置添加一個(gè)按鈕，顯示文字為“確定“
3、以原文件名保存
操作參考：
1、分別選中姓名準(zhǔn)考證號(hào)-設(shè)置FONT屬性/設(shè)置Forecolor –修改屬性值為&H00FF0000&
2、選中“確定”-按DELETE鍵就刪除 / 點(diǎn)擊工具中命令-拖動(dòng)得到一個(gè)按鈕-設(shè)置Caption為“命令”
3、以原文件名保存
第四套：屬性設(shè)置、簡(jiǎn)單程序
題目：
打開窗體文件Form2.frm，修改程序代碼，當(dāng)鼠標(biāo)單擊 “隱藏”、“顯示”時(shí)使標(biāo)簽上的文字“江蘇省信息會(huì)考”也相應(yīng)的隱藏、顯示。
操作參考：
1、雙擊窗體進(jìn)入代碼窗體（編輯-已有代碼）
2、對(duì)兩段子程序分別添加一行代碼，不要打錯(cuò)字碼（用光標(biāo)移動(dòng)鍵選擇，空格鍵得到輸入）
label1.Visibled=True （顯示） 和 label2.Visibled=Flase (隱藏)
3、 試運(yùn)行看程序是否準(zhǔn)確，再保存程序
第五套：屬性設(shè)置、簡(jiǎn)單程序
題目
打開窗體文件from8.frm
1、在窗體相應(yīng)位置添加一個(gè)按鈕，顯示文字為“紅背景“編寫代碼，使程序運(yùn)行時(shí)單擊“紅背景”命令按鈕 窗體的背景顏色由原來的默認(rèn)色變?yōu)榧t色（紅色： &HFF）
3、運(yùn)行程序看效果是否準(zhǔn)確，再保存程序
操作參考
1、在空的窗體上建立一個(gè)命令按鈕-Caption屬性設(shè)置為“紅背景”
2、雙擊“紅背景”命令按鈕 –在代碼中輸入一行代碼如下
Form8.Backcolor=”&HFF”
3、運(yùn)行程序看效果是否準(zhǔn)確，再保存程序
第六套 程序代碼修改
題目：說明：
在已打開的窗體文件form1.frm中完善程序,將代碼中"變量1"、"變量2"、"變量3"處分別換成正確的變量名，使當(dāng)點(diǎn)擊"輸出"按鈕時(shí)，屏幕顯示程序運(yùn)行結(jié)果是
20 30
程序代碼如下：
Private Sub Command_Click()
x=30 ‘變量初值
y=20
If x>y then ‘分支結(jié)構(gòu)，條件成立則交換兩個(gè)變量的值
t= 變量1 “變量1=x，變量2=y，變量3=t
x= 變量2
y= 變量3
end if
print x,y 顯示輸出結(jié)果值
End Sub
第七套 程序代碼修改
題目：說明：
在已打開的窗體文件form14.frm中,完善程序,將代碼段中"常量1"、"常量2"、"表達(dá)式"分別換成正確的常量值和表達(dá)式，其他不變，使得當(dāng)點(diǎn)擊"輸出"按鈕時(shí)，屏幕上顯示運(yùn)行結(jié)果；100以內(nèi)（含100）偶數(shù)的和。
程序代碼如下：
Private Sub Command14_Click()
s= 常量1 ‘ 這是求和變量初值（沒有和值時(shí)）為0
for i=0 to 100 step 常量2 ‘循環(huán)步長(zhǎng)為2
s= 表達(dá)式 ‘這是一個(gè)“累加器”的式子 （每執(zhí)行一次變量值加當(dāng)前I的值
next i
print s ‘輸出其和值
End Sub
第八套 程序代碼修改
題目：說明：
下面的程序是從鍵盤上任意輸入一個(gè)數(shù)， 判斷這個(gè)數(shù)是正數(shù)、負(fù)數(shù)、還是零，并輸出判斷結(jié)果。程序中有兩處錯(cuò)誤,請(qǐng)更正
'****************不要增加語句**************
Dim a As Single
a=Val(Text1.Text) '從Text1中讀入考試成績(jī)，保存在變量a中。不要改動(dòng)本行。
if a>0 then py="正數(shù)" 三個(gè)分支語句，使得分情況得到PY變量的值
if a=0 then py="零"
if a<=0 then py= "負(fù)數(shù)" ‘這個(gè)負(fù)數(shù)定義不正確啊
Label3.Caption=a 這是用標(biāo)簽方式顯示結(jié)果（意義與PRINT語句相近）。結(jié)果應(yīng)是PY
'**********注意調(diào)試完成后一定要保存*********
End Sub
第九套 程序代碼修改
題目：說明：
下面的程序是求7！（7！=1×2×3…×6×7）的值，并在默認(rèn)窗口輸出這個(gè)值。程序中有三處錯(cuò)誤，請(qǐng)打開VBTEST子目錄下的窗體文件Form6.frm，調(diào)試更正。
Private Sub Form_Click()
Dim a As integer 定義變量
Dim i As integer
a=0 變量賦初值（不可能為0 ）
for i=1 to n 循環(huán)7次確定的 （step 1步長(zhǎng)為1可省去）
a=a*I 這是一個(gè)叫“累乘式”的運(yùn)算，每次乘I
Next i
Print i 輸入出A的結(jié)果
End Sub
第十套 程序代碼修改
題目：說明：
下面的程序是當(dāng)輸入的考試成績(jī)不低于60分時(shí)輸出“及格”，否則輸出“不及格”。程序中有兩處錯(cuò)誤，請(qǐng)打開VBTEST子目錄下的窗體文件Form8.frm，調(diào)試更正。
Private Sub Command1_Click()
Dim cj As Integer 定義變量
Dim py As String
cj=Val(Text1.Text) 變量賦初值（從文本框TEXT1中取得其文本框中的輸入數(shù)值）
If cj>60 then 雙分支結(jié)構(gòu)選擇語句 ，若分?jǐn)?shù)為60分呢，這里應(yīng)為>=
py="及格"
Else
py="不及格"
End If
Label3.Caption=cj 這是用標(biāo)簽方式顯示結(jié)果,為PY
End sub
第十一套 程序代碼修改
打開VBTEST字目錄下的窗體文件Form3.frm,修改程序，使能輸出：
1+2+3+4+5+6……+99+100的值
Private Sub Command1_Click()
s=0 變量設(shè)置初值（當(dāng)然應(yīng)為0）
For i=1 To 100 Step 1 循環(huán)100次
s=s+I 求和“累加式”
Next i
Print s 輸出顯示和的結(jié)果
End sub
第十二套 程序代碼修改
打開考核文件夾中的窗體文件Form1.frm，修改其中的程序，使能輸出如下圖形：
*
**
***
****
*****
******
Private Sub Command1_Click() 這是一個(gè)雙循環(huán)結(jié)構(gòu)
For i=1 To 6 外循環(huán)次定輸出的行數(shù)
for j=1 to I 內(nèi)循環(huán)是每行顯示的個(gè)數(shù)
print "*"； 每次輸出一個(gè)“*”號(hào) ，PRINT行末要有“；”號(hào)表示輸出后不換行
next j PRINT行末沒有符號(hào)，表示輸出后換行
Print PRINT （空），表示僅起換行作用
Next i
End Sub
第十三套 程序代碼修改
打開VBTEST 子目錄下的窗體文件Form9.frm ，完善其中的程序,將程序中的“常量”“變量”“表達(dá)式”換成正確的常量值變量值和表達(dá)式使得當(dāng)鼠標(biāo)單擊執(zhí)行時(shí)，顯示出滿足條件2+4+6+8+……+X〈80中的最大的X值。
Private Sub Command4_Click()
s=0
x=0
Do 這是VB中的直到型循環(huán)，至少執(zhí)行一次循環(huán)體，直到條件為真時(shí)結(jié)束循環(huán)
x=x+2 固定值累加式
s=s+x 變量方式累加式
loop Until s>=80 當(dāng)S超過80時(shí)結(jié)束
Print x 輸出時(shí)一定大于80
End Sub
第十四套 程序代碼修改
在已打開的窗體文件Form10.frm在窗體的適當(dāng)位置建立一個(gè)命令按鈕，然后編寫代碼，，使點(diǎn)擊“命令”按鈕時(shí)，窗體上的標(biāo)簽文字變?yōu)椤敖K省信息技術(shù)等級(jí)考試”。
第十五套 程序代碼修改
在已打開的窗體文件Form10.frm中完善程序，將代碼中的“常量”，“關(guān)系運(yùn)算符”，“語句”，“變量”，處分別換成正確的常量值，關(guān)系運(yùn)算符，語句，變量名，使點(diǎn)擊“輸出”按鈕時(shí)，屏幕顯示程序運(yùn)行結(jié)果為：20-10=10
Private Sub Command1_Click()
a=10
b=20 顯然這里應(yīng)初值為20
if a>b then 當(dāng)條件式成立時(shí)
print a;"_";"b;"=";a-b 顯示輸出其中包括有四個(gè)輸出項(xiàng)
else
print b;"-";a;"=";10
End if
End Sub
以上為2004會(huì)考指導(dǎo)書上15套VB程序題
++++++++++++++++++++++++++++++++++++++++++++++++++++++
以下為2002-2003會(huì)考指導(dǎo)書上VB程序題
16設(shè)置當(dāng)前的test17.frm文件，對(duì)控件做如下修改：
標(biāo)簽控件設(shè)置為距頂端2500個(gè)單位，距左端為1500個(gè)單位
文本框控件輸入文字顏色設(shè)為調(diào)色板的第三行、第五列的綠色
將按鈕文字字號(hào)設(shè)為“小三號(hào)”
保存當(dāng)前文件，文件名和路徑默認(rèn)。
17．設(shè)置當(dāng)前窗體文件form1.frm
按要求設(shè)置窗體form1的下列屬性：
（1） 背景色：純黑（2）寬：6000（3）高：4000（4）caption：TEST
（2） 在窗體的適當(dāng)位置添加一命令按鈕控件，并要求該對(duì)象在運(yùn)行時(shí)無效
（3） 保存當(dāng)前文件，文件名和路徑默認(rèn)
18．設(shè)置當(dāng)前的test14.frm文件，對(duì)控件做如下修改：
（1） 將標(biāo)簽的字體設(shè)為“隸書“
（2） 將按鈕文字改為“命令“
（3） 文本框控件中默認(rèn)的輸入文字設(shè)為沒有任何文字。
（4） 保存當(dāng)前文件，文件名和路徑默認(rèn)
19．在已打開的窗體文Foem9.frm中，完善程序，將代碼段中“常量”，“關(guān)系運(yùn)算符”，“語句”分別換成正確的常量值，關(guān)系運(yùn)算符和語句，是得當(dāng)點(diǎn)擊“計(jì)算”按鈕時(shí)，屏幕顯示程序運(yùn)行結(jié)果是：20≤X<50
20．設(shè)置當(dāng)前的Test18.frm文件，對(duì)控件做如下修改：
1． 將標(biāo)簽控件設(shè)置文字右對(duì)齊
2． 文本框控件輸入文字字體為“隸書”
3． 將按鈕文字改為“操作”
4． 保存
21．在已打開的窗體文件Form6.frm中用工具增加一個(gè)文本框Test3，并按注釋要求編寫代碼，使當(dāng)鼠標(biāo)單擊命令按鈕“計(jì)算”時(shí)，計(jì)算出X和Y 的和，并且把和顯示在新增的文本框TEXT3中
X= val(text1.text)
Y=val(text2.text)
Text3.text=str(x+y)
22、程序設(shè)計(jì)操作題
打開VBTEST子目錄下的窗體文件FormlO．frm，修改下面的程序，使運(yùn)行后，輸出如下
結(jié)果：
張大富 男 39歲
23、程序設(shè)計(jì)操作題
下面的程序是求100以內(nèi)奇數(shù)和s的值（S=1+3+5+7…+99）。程序中有三處錯(cuò)誤。請(qǐng)打開
VBTEST子目錄下的窗體文件Form7.frm，調(diào)試更正。
24、程序設(shè)計(jì)操作題
打開VBTEST字目錄下的窗體文件Form3.frm,修改程序，使能輸出：
1-2+3-4+5-6……+99-100的值
25、程序操作題
打開VBTEST 子目錄下的窗體文件Form9.frm ，完善其中的程序，使能輸出如下圖形。
******
******
******
******
******
******
26、程序設(shè)計(jì)操作題
打開VBTEST字目錄下的窗體文件Form4.frm。已知一元二次方程的二次項(xiàng)系數(shù)、一次項(xiàng)系數(shù)、常數(shù)
項(xiàng)分別為a、b、c，其中a不等于0，修改程序，求方程的根。
要求：如果方程無實(shí)數(shù)根，則輸出“無實(shí)數(shù)根”，否則輸出兩個(gè)實(shí)數(shù)根。

展開更多......

收起↑