習(xí)題-項(xiàng)目二三大結(jié)構(gòu)(編輯修改稿)
2025-04-20 06:20 本頁面
【文章內(nèi)容簡(jiǎn)介】 End If End If End Sub5．下面是一模擬袖珍計(jì)算器的程序，輸出界面如下圖所示。請(qǐng)?jiān)诳崭裉幪钊脒m當(dāng)?shù)膬?nèi)容，構(gòu)成完整程序。Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim sInput1 As Single, sInput2 As Single Dim iError As Integer sInput1 = Val() sInput2 = Val() Select Case __________①__________ Case + = Str(sInput1 + sInput2) Case = Str(sInput1 sInput2) Case * = Str(sInput1 * sInput2) Case / If sInput20 Then = Str(sInput1 / sInput2) Else iError = MsgBox(分母為零,出錯(cuò), vbRetryCancel) If iError = vbRetry Then = _________② Else End End If End If Case Else iError = MsgBox(運(yùn)算符出錯(cuò),再輸入, vbRetryCancel) If iError = vbRetry Then = () Else End End If End Select End SubPrivate Sub Button2_Click(ByVal sender As , ByVal e As ) Handles EndEnd Sub6．輸入一個(gè)大于0且小于1000的整數(shù)，并判斷其是否為同構(gòu)數(shù)（所謂同構(gòu)數(shù)，是指此數(shù)的平方數(shù)的最后幾位與該數(shù)相等）。例如，252為625，25是同構(gòu)數(shù)，請(qǐng)?jiān)诳崭裉幪钊脒m當(dāng)?shù)膬?nèi)容，構(gòu)成完整程序。 Private Sub Form_Click()Dim a!, b!a = Val(InputBox(輸入一個(gè)數(shù)))b = a * aIf___________①____________Then b mod 10 =a or b mod 100 =a or b mod 1000=aMsgBox Str(a) amp。 是同構(gòu)數(shù)ElseMsgBox Str(a) amp。 不是同構(gòu)數(shù)End IfEnd Sub7．編寫加密程序。在TextBox1中，將輸入字符串中的所有小寫字母轉(zhuǎn)換為大寫字母，同時(shí)按如下規(guī)律加密：“A”轉(zhuǎn)換為“C”、“B”轉(zhuǎn)換為“D”、…、“X”轉(zhuǎn)換為“Z”、“Y”轉(zhuǎn)換為“A”、“Z”轉(zhuǎn)換為“B”，出現(xiàn)在字符串中的其他字符不變，并在TextBox2中將結(jié)果輸出，如下圖所示。分析：加密有各種方法，最簡(jiǎn)單的加密方法是：將每個(gè)字母加一序數(shù)，本例中加序數(shù)2。Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim strin As String, code As String, ch As String Dim strlen As Integer, i%, chasc% strin = 39。用戶輸入的字符串 strlen = ________①________ 39。去掉字符串右邊的空格，求真正的長(zhǎng)度 len(rtrim(strin)) code = 39。加密后的字符串，初值為空 For i = 1 To strlen ch = _______②__________ 39。取字符串中第i個(gè)字符 mid(strin,i,1) ch = UC
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1