20.【加試題】設計VB程序,該程序將輸入的字符串中小寫字母轉換成大寫字母后輸出.在文本框Text1中輸入一串字符(數字、字母均可),單擊“轉換”按鈕Command1,在標簽Label2中輸出結果.(提示:Asc(x):將字符x轉換為ASCⅡ碼值;Chr(x):將ASCⅡ代碼x轉換為所對應的字符)該程序的設計界面如圖所示,請根據算法將下列程序補充完整. Private Sub Command1_Click( ) Dim ch As String,s As String Dim i AS Integer,j As Integer ch=Text1.Text For i=1To
j=Asc(Mid(ch,i,1)) if j>96And j<123 Then s=s+Chr(j-32) Else s=s+Chr(j) End If Next
21.杭州市民卡是由杭州市人民政府授權發放給市民用于辦理個人相關事務和享受公共服務的集成電路卡(IC卡),具有信息儲存、身份識別、電子支付等功能。每位市民卡的卡號是唯一的,卡內會記錄每位市民的姓名、住址、金額等信息。 假設共有1000個市民,市民的相關信息都存儲在“information.jye.ai”的data表中,查詢程序界面如圖所示。工作人員在文本框Text1中輸入卡號,單擊“開始查詢”按鈕,如果找到,就在Label1中顯示卡內市民姓名和卡內余額;否則顯示“查無此人”。請按要求將下列程序補充完整。 Private Sub command1_click ( ) Dim conn As New ADODB.Connection,rs As New ADODB.Recordset Dim strSQL As String Dim a,b as string‘分別定義姓名、余額 Dim n as integer conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“+App.Path+“\information.jye.ai“'打開到數據庫的鏈接 conn.Open strSQL=“select xh,xm from data where'卡號=&(Text1.Text) &'“'設置查詢的SQL語句 Set rs.ActiveConnection=conn'設置rs的ActiveConnection屬性,指定與其關聯的數據庫鏈接 rs.Open strSQL'打開記錄集,將從表information中讀取的結果保存到記錄集rs中 Label1.Caption=““ n=0 Do while not rs.EOF
① a=rs.Fields(“姓名“) b=rs.Fields(“余額“) rs.movenext loop rs.Close conn.close set rs=nothing set conn=nothing
② if n=0then Label1.caption=“查無此人“ End Sub (1)程序中①橫線處應填入