vb等級考試題目與評析80-資料下載頁
2025-08-26 10:04本頁面
【導讀】請根據(jù)以下各小題的要求設計VisualBasic應用程序。請利用屬性窗口設置適當?shù)膶傩詽M足以下要求：。1）圓角矩形中填滿綠色；2）窗體的標題為"圓角矩形"。運行后的窗體如圖所示。要求畫一條直線Line4以構成三角形的高，且該直線的初始狀態(tài)為不可見。要求程序中不得使用變量，每個事件過程只能寫一條語句。經存在的控件，最后將修改后的文件按原文件名存盤。置對象的高度；通過Width屬性可以返回/設置對象的寬度；通過FillColor屬性可以返回/設置填充形狀，圓環(huán)。本主要考查了Line控件的使用方法。在Line控件中可通過X1，Y1來指定直線的起始點；X2，Y2來指定直線的結。等腰三角形底邊上的中線和高相重合，因此，結束點的坐標為Line3中點）。在Line控件中，可以用Visible屬性決定對象是否可見。計時收費標準為：通話時間在3分鐘以內時，收費；3分鐘以上時，每超過1分鐘加收，不足1分鐘按1分鐘計算。然后在窗體上拖拉出兩個文本框Text1、Text2，再畫兩個命令按鈕Command1、Command2，其Caption屬性分別為
【正文】 用， 否則可以把 Text3中的內容粘貼在光標所在的文本框中的內容之后。 注意： 不能修改程序中的其他部分。各菜單項的標題名稱必須正確。最后把修 改后的文件按原文件名存盤。 本題主要考察 Text控件的使用、下拉式菜單的制作、公有變量的使用。本題代碼如下： Dim which As Integer Private Sub copy_Click() If which = 1 Then = ElseIf which = 2 Then = End If End Sub Private Sub cut_Click() If which = 1 Then = = ElseIf which = 2 Then = = End If End Sub Private Sub edit_Click() If which = 1 Then If = Then = False = False Else = True = True End If ElseIf which = 2 Then If = Then = False = False Else = True = True End If End If If = Then = False Else = True End If End Sub Private Sub paste_Click() If which = 1 Then = amp。 ElseIf which = 2 Then = amp。 End If End Sub Private Sub Text1_GotFocus() which = 1 End Sub Private Sub Text2_GotFocus() which = 2 End Sub
公司管理相關推薦
鄂ICP備17016276號-1