vb等級考試題目與評析80(參考版)
2024-09-08 10:04本頁面
【正文】 ElseIf which = 2 Then = amp。 本題主要考察 Text控件的使用、下拉式菜單的制作、公有變量的使用。各菜單項(xiàng)的標(biāo)題名稱必須正確。以便實(shí)現(xiàn)以下功能：當(dāng)光標(biāo)所在的文 本框中無內(nèi)容時， 剪切 、 復(fù)制 不可用，否則可以把該文本框中 的內(nèi)容剪切或復(fù)制到 Text3中；若 Text3中無內(nèi)容，則 粘貼 不能用， 否則可以把 Text3中的內(nèi)容粘貼在光標(biāo)所在的文本框中的內(nèi)容之后。請完成以下工作： 1）在屬性窗口中修改 Text3的適當(dāng)屬性，使其在運(yùn)行時不顯示，作為模擬 的剪貼板使用。 本題主要代碼如下： Private Sub Cmd1_Click() Text1(0).Text = Str(Time()) Text1(1).Text = : Text1(2).Text = = False = True End Sub Private Sub Cmd2_Click() Text1(1).Text = Str(Time()) t_start = Hour(Text1(0).Text) * 3600 + Minute(Text1(0).Text) * 60 + Second(Text1(0).Text) t_end = Hour(Text1(1).Text) * 3600 + Minute(Text1(1).Text) * 60 + Second(Text1(1).Text) t = t_end t_start m = t \ 60 If m t / 60 Then m = m + 1 s = If m 3 0 Then s = s + (m 3) * End If Text1(2).Text = Str(s) + 元 = True = False End Sub 按要求保存文件即完成本題。一個控件數(shù)組至少應(yīng)有一個元素，元素數(shù)目可在系統(tǒng)資源和內(nèi)存允許的范圍內(nèi)增加；數(shù)組的大小也取決于每個控件所需的內(nèi)存和 Windows資源。 第 2小題： 本題主要考查控件數(shù)組的應(yīng)用。新建一個名為 Form1的窗體，點(diǎn)擊工具箱中的 TextBox控件圖標(biāo)，然后在窗體上拖拉出兩個文本框 Text Text2，再畫兩個命令按鈕 Command Command2，其 Caption屬性分別為復(fù)制 、 清除 ，雙擊命令按鈕分別加入如下代碼： Private Sub Command1_Click() = Mid(,
公司管理相關(guān)推薦
鄂ICP備17016276號-1