試卷征集
加入會(huì)員
操作視頻

VB猜價(jià)格小程序
高二(8)班決定在第11周開(kāi)一個(gè)主題班會(huì),為了豐富班會(huì)的內(nèi)容,班主任要求班級(jí)幾位信息高手,設(shè)計(jì)一個(gè)小程序,這事難不倒班上的各位大神,他們齊心協(xié)力,很快就完成了。
編寫程序,實(shí)現(xiàn)如下功能:有6張待猜的商品圖片加載到Image1中,通過(guò)上一個(gè)和下一個(gè)按鈕進(jìn)行切換,主持人可以通過(guò)“設(shè)置價(jià)格”按鈕Command2對(duì)每一張商品圖片設(shè)置一個(gè)價(jià)格,然后,單擊“我來(lái)猜一猜”按鈕開(kāi)始猜價(jià)格游戲,每人只給8次(這個(gè)數(shù)據(jù)存放在變量n中)猜價(jià)格的機(jī)會(huì),8次機(jī)會(huì)用完后,如果猜中價(jià)格,則在文本框Text2中顯示處價(jià)格。
菁優(yōu)網(wǎng)
(1)窗體中有
10
10
個(gè)對(duì)象,
4
4
類。
(2)Command1對(duì)象的Caption屬性值是
我來(lái)猜一猜
我來(lái)猜一猜
。
(3)實(shí)現(xiàn)上述功能的部分VB程序如下,請(qǐng)?jiān)跈M線處填入合適代碼。
Private Sub Command1_Click ( ?。?br />Dim i As Integer
Dim n As Integer'變量n存儲(chǔ)猜價(jià)格的次數(shù)
Dim cai_shu As Integer'變量cai_shu存儲(chǔ)猜的價(jià)格
n=①
Val(Text1.Text)
Val(Text1.Text)

For i=1To n
cai_shu=Val(InputBox(“請(qǐng)輸入當(dāng)前商品的價(jià)格:“,“輸入價(jià)格“))
If cai_shu=jg(dqtp) Then'jg(dqtp)存儲(chǔ)的是當(dāng)前商品圖片的價(jià)格
MsgBox“恭喜你猜對(duì)了“
Text2.PasswordChar=““
Text2.Text=Text2.Text+“元“
Exit For
ElseIf ②
cai_shu>jg(dqtp)
cai_shu>jg(dqtp)
 Then
MsgBox“猜大了,再來(lái)猜一猜“
Else
MsgBox“猜小了,再來(lái)猜一猜“
End If
Next i
If i>n Then
MsgBox“猜價(jià)格次數(shù)用盡,很遺憾,你沒(méi)有猜對(duì)!“
EndIf
EndIf

End Sub

【答案】10;4;我來(lái)猜一猜;Val(Text1.Text);cai_shu>jg(dqtp);EndIf
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:2引用:1難度:0.4
相似題
  • 1.設(shè)某銀行有A,B兩個(gè)業(yè)務(wù)窗口,且處理業(yè)務(wù)的速度不一樣,其中A窗口處理速度是B窗口的2倍,即A窗口每處理完2個(gè)顧客,B窗口處理完1個(gè)顧客。給定到達(dá)銀行的顧客序列,請(qǐng)按業(yè)務(wù)完成的順序輸出顧客序列。假設(shè)不考慮顧客先后到達(dá)的時(shí)間間隔,并且當(dāng)不同窗口同時(shí)處理完2個(gè)顧客時(shí),A窗口顧客優(yōu)先輸出。輸入第一個(gè)數(shù)字是顧客總?cè)藬?shù),后面是n位顧客的編號(hào),編號(hào)為奇數(shù)的顧客需要到A窗口處理,為偶數(shù)的顧客則需要去B窗口處理。輸出為按業(yè)務(wù)處理完成的順序輸出顧客的編號(hào)(數(shù)字間以空格分隔,但最后一個(gè)編號(hào)之后不能有空格)。
    例如輸入:8  2  1  3  9  4  11  13  15      輸出為1  3  2  9  11  4  13  15
    請(qǐng)完善程序代碼:
    菁優(yōu)網(wǎng)

    發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.3
  • 菁優(yōu)網(wǎng)2.一個(gè)Pyhton程序的運(yùn)行界面如下圖所示,下列說(shuō)法正確的是( ?。?br />①窗體內(nèi)有1個(gè)按鈕
    ②窗體內(nèi)有2個(gè)按鈕
    ③窗體內(nèi)有3個(gè)標(biāo)簽
    ④該窗體的標(biāo)題可以通過(guò)title( ?。┓椒ㄔO(shè)置為“加法計(jì)算器”

    發(fā)布:2024/11/1 21:0:1組卷:1引用:3難度:0.6
  • 3.某閱卷系統(tǒng)設(shè)計(jì)如下:
    讀取學(xué)生答案文件后和標(biāo)準(zhǔn)答案進(jìn)行對(duì)照并判分,題型分為單選、多選和填空。
    單選閱卷規(guī)則:和標(biāo)準(zhǔn)答案一致得全部分?jǐn)?shù),錯(cuò)選或不選不給分。
    多選閱卷規(guī)則:和標(biāo)準(zhǔn)答案一致得全部分?jǐn)?shù),漏選給一半分?jǐn)?shù),錯(cuò)選或不選不給分。
    填空閱卷規(guī)則:標(biāo)準(zhǔn)答案表中允許有多種答案存在。學(xué)生的答案在標(biāo)準(zhǔn)答案中存在,得全部分?jǐn)?shù),不存在或未填不給分。
    例如“學(xué)生答案.txt”內(nèi)容如下:
    張三|A|D|AC|AD|字符串|
    李四|A|D|ACD|A|string|i>=0
    標(biāo)準(zhǔn)答案:
    菁優(yōu)網(wǎng)
    程序執(zhí)行結(jié)果:
    張三成績(jī):9分
    李四成績(jī):11分
    (1)如果學(xué)生的答案數(shù)據(jù)為‘王五|A|C|AD|ACD|string|i=0’,則輸出的結(jié)果是
     

    (2)請(qǐng)?jiān)跈M線處填入合適的代碼。
    菁優(yōu)網(wǎng)
    菁優(yōu)網(wǎng)

    發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.3
小程序二維碼
把好題分享給你的好友吧~~
APP開(kāi)發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務(wù)條款
本網(wǎng)部分資源來(lái)源于會(huì)員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請(qǐng)立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個(gè)工作日內(nèi)改正