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