高中信息技術vb專項題(學考)

1、VB專題題第1頁1.“四葉玫瑰數(shù)”是指一個四位自然數(shù)各位上數(shù)字的四次方之和等于該四位數(shù)本身的數(shù)。如自然數(shù)8208=842484”那它就是一個“四葉玫瑰數(shù)”?，F(xiàn)用VB編寫一個程序實現(xiàn)如下功能:單擊“查找”按鈕Comm1在列表框List1中顯示所有“四葉玫瑰數(shù)”并在標簽Label2中顯示找到的個數(shù)運行界面如下圖所示:(1)為實現(xiàn)上述功能請在畫線處填入正確的代碼。PrivateSubComm1_Click()DimiAsIntegersAsI

2、ntegerDimaAsIntegerbAsIntegercAsIntegerdAsIntegers=0Fi=1000To9999①取出個位數(shù)字b=(iMod100)10取出十位數(shù)字c=i100Mod10取出百位數(shù)字d=i1000取出千位數(shù)字Ifa^4b^4c^4d^4=iThenList1.AddItemis=②EndIfNextLabel2.Caption=″四葉玫瑰數(shù)共有″Str(s)″個″EndSub(2)程序中的語句“b=(i

3、Mod100)10”和下列哪些項功能相同(多選)。A.b=i10Mod10B.b=int(i10)Mod10C.b=iMod10010D.b=(i31)2、用VB設計一個奇數(shù)遷移的程序具體要求是:單擊“產生”按鈕Comm1清空兩個列表框中的內容并產生10個3位自然數(shù)放入左邊列表框List1中如圖1所示。單擊“奇數(shù)遷移”按鈕Comm2將列表框List1中的所有奇數(shù)遷移到列表框List2中如圖2所示。VB專題題第3頁圖2(1)在設計應用程序

4、界面時應使用圖2所示“控件工具箱”中的(填寫相應編號)添加列表框List1。(2)為實現(xiàn)上述功能請在橫線①②③處填入合適代碼。PrivateSubComm1_Click()DimsAsSinglexAsSinglenAsIntegeriAsIntegerRomizeList1.Clears=①n=Val(Text2.Text)Fi=1To②通過循環(huán)語句產生n1個紅包的隨機值x=Int((Rnd()s(ni)0.005)100)100Li

5、st1.AddItemStr(x)s=③Nextix=Int((s0.005)100)100產生最后一個紅包List1.AddItemStr(x)EndSub4、利用VisualBasic設計一個小寫轉大寫的程序:在文本框Text1中輸入一串字符單擊“轉換”按鈕Comm1將其中的小寫英文字母轉換為大寫英文字母后在文本框Text2中顯示轉換后的字符串。程序運行界面如圖所示。(1)實現(xiàn)上述功能的VB代碼如下在畫線處應填入正確的語句以實現(xiàn)以上