vb等級考試題目與評析63-資料下載頁
2025-08-26 10:04本頁面
【導讀】請根據(jù)以下各小題的要求設計VisualBasic應用程序。下表給出了直線Line1、Line2的坐標值，請。按此表畫Line1、Line2，并畫出直線Line3，從而組成如圖所示的三角形。存盤時必須存放在考生文件夾下，工程文件名為，窗體文件名為。為Text1的文本框，無初始內(nèi)容。程序運行后，如果單擊列。的內(nèi)容顯示在文本框中。要求程序中不得使用變量，事件過程中只能寫一條語句。在Line控件中可通過X1，Y1來指定直線的起始點；X2，Y2來指定直線。Line1、Line2中沒有相互連接的兩點的坐標相同就可以了。第二題主要考查了ListBox控件的使用方法，在ListBox中選擇一項將觸發(fā)其Click事件，同時將ListIndex的屬。性設置為選中項的編號。在ListBox控件中List屬性表示控件中所有數(shù)據(jù)的結合。名.ListIndex)的形式指出當前ListBox中選中的項目。簽數(shù)組，名稱為Label1，其所有元素的Visible屬性都為False。單擊"畫直方圖"按鈕，則按五個數(shù)的輸入順序顯示直方圖。請編寫"讀入文件"按鈕和"加密"按鈕的Click事件過程，以實現(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
公司管理相關推薦
鄂ICP備17016276號-1