vb等級考試題目與評析63-資料下載頁
2024-09-04 10:04本頁面
【導(dǎo)讀】請根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。下表給出了直線Line1、Line2的坐標(biāo)值，請。按此表畫Line1、Line2，并畫出直線Line3，從而組成如圖所示的三角形。存盤時必須存放在考生文件夾下，工程文件名為，窗體文件名為。為Text1的文本框，無初始內(nèi)容。程序運(yùn)行后，如果單擊列。的內(nèi)容顯示在文本框中。要求程序中不得使用變量，事件過程中只能寫一條語句。在Line控件中可通過X1，Y1來指定直線的起始點(diǎn)；X2，Y2來指定直線。Line1、Line2中沒有相互連接的兩點(diǎn)的坐標(biāo)相同就可以了。第二題主要考查了ListBox控件的使用方法，在ListBox中選擇一項(xiàng)將觸發(fā)其Click事件，同時將ListIndex的屬。性設(shè)置為選中項(xiàng)的編號。在ListBox控件中List屬性表示控件中所有數(shù)據(jù)的結(jié)合。名.ListIndex)的形式指出當(dāng)前ListBox中選中的項(xiàng)目。簽數(shù)組，名稱為Label1，其所有元素的Visible屬性都為False。單擊"畫直方圖"按鈕，則按五個數(shù)的輸入順序顯示直方圖。請編寫"讀入文件"按鈕和"加密"按鈕的Click事件過程，以實(shí)現(xiàn)上述功能。
【正文】 If j Mod 2 = 0 Then If Mid(s, i, 1) = A Or Mid(s, i, 1) = a Then result = result amp。 Chr(Asc(Mid(s, i, 1)) + 25) Else result = result amp。 Chr(Asc(Mid(s, i, 1)) 1) End If Else If Mid(s, i, 1) = z Or Mid(s, i, 1) = Z Then result = result amp。 Chr(Asc(Mid(s, i, 1)) 25) Else result = result amp。 Chr(Asc(Mid(s, i, 1)) + 1) End If End If Else result = result amp。 Mid(s, i, 1) End If Next i = result End Sub Function isletter(a As String) As Boolean If A = a And a = Z Or a = a And a = z Then isletter = True Else isletter = False End If End Function Private Sub Command3_Click() Open For Output As 1 Print 1, Close 1 End Sub
公司管理相關(guān)推薦
鄂ICP備17016276號-1