第 1 頁:基本操作題 |
第 2 頁:簡單應用題 |
第 3 頁:綜合應用題 |
第 4 頁:參考答案 |
二、簡單應用題
(1)【考點分析】本題考點有:命令按鈕的Caption和Name屬性,下拉式組合框的Caption、Name、List和ListCoum屬性,文本框的Text和Name屬性,標簽的Caption和Name屬性,下拉式組合框的Addltem方法以及窗體的Print方法。
【解題思路】命令按鈕和標簽的標題用屬性窗口中的Caption屬性設置。要使Textl的文本框沒有初始內容,需要將屬性窗口中的Text屬性設為空。要在下拉式組合框中輸入內容,可以在屬性窗口中對下拉式組合框的List屬性進行設置。
Addltem方法用來向組合框中添加一個列表項,其格式為:
組合框.Addltem列表項[索引]
ListCount屬性用來返回組合框中列表項的個數。
【操作步驟】
步驟1:新建一個窗體,按照題目要求建立控件并設置控件屬性,如圖3.22所示。
程序中用到的控件及屬性設置見表3.15。
步驟2:打開代碼編輯窗口,在指定位置編寫如下代碼。
參考答案
PrivateSubCommandl_Click()
Comb01.AddItemTextl
EndSub
PrivateSubCommand2_Click()
PrintCembol.ListCount
EndSub
步驟3:調試并運行程序,關閉程序后按題目要求存盤。
(2)【考點分析】本題考點有:Mid()函數、Len()函數、Asc()函數、String()函數、單選按鈕Value、If判斷語句以及For循環語句。
【解題思路】根據題意,首先要確定移動的位數,移動的位數是通過單選按鈕來選擇的,移動的值是由單選按鈕的Caption屬性值決定的,然后要確定循環的次數,循環的次數是由輸入字母的個數決定的。使用Mid()函數取出字符串中的字符,利用Asc()函數返回字符的代碼,利用String()函數將字符代碼轉換成字符。
Mid()函數的格式為Mid(字符串,P,n)。其中,Mid()函數從第P個字符開始,向后截取n個字符,P和n都是算術表達式。Mid()函數的第3個變量可以省略,這樣將從第P個字符開始向后截取到字符串的結尾。
String()函數用于重復指定字符串中的字符,返回新的字符串。
Asc()函數用于返回一個Integer,代表字符串中首字母的字符代碼。
【操作步驟】
步驟1:打開本題工程文件。
步驟2:打開代碼編輯窗口,去掉程序中的注釋符“´”,將問號改為正確的內容。
參考答案(橫線部分是需考生填入的內容)
PrivateSubCommandlclick()
DimnAsInteger,kAsInteger,mAsInteger
DimCAsString,aAsString
Fork=0To2
IfOpl(k).ValueThen
n=Val(Opl(k).__________)
EndIf
Nextk
m=Len(Textl.Text)
a=""
Fork=1To_________
C=Mid$(Textl.Text,__________,1)
C=String(1,AsC(C)+n)
工fC>"Z"Ore>”Z”AndC<"a"Then
e=String(1,Asc(C)一26)
EndIf
__________=a+c
Nextk
Text2.Text=a
EndSub
步驟3:調試并運行程序,關閉程序后按題目要求存盤。
【易錯提示】單選按鈕數組的起始下標為0,而不是1,在循環和判斷的時候要特別注意。
微信搜索"考試吧"獲取更多考試資訊、備考資料
相關推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |