vb等級考試題目與評析78(完整版)
【正文】 ate Function xn(m As Integer) As Long Dim i As Integer Dim tmp As Long tmp = 1 For i = 1 To m tmp = tmp * i Next xn = tmp End Function Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim t As Integer Dim z As Long, x As Single n = Val() x = Val() z = 0 For i = 2 To n t = x i z = z + xn(t) Next = z Call SaveResult End Sub 按要求保存文件即完成本題。 其窗體上有一個(gè)圓，相當(dāng)于 一個(gè)時(shí)鐘，當(dāng)程序運(yùn)行時(shí)通過窗體的 Activate事件過程在圓上產(chǎn)生 12個(gè) 刻度點(diǎn)，并完成其他初始化工作；另有長、短 2條（紅色、藍(lán)色）直線， 名稱分別為 Line1和 Line2， 表示兩個(gè)指針。 2. 簡單應(yīng)用（ 2小題，每題 20分，計(jì) 40分） 注意：下面出現(xiàn)的 考生文件夾 均為 C:\WEXAM\00000000\ *********************************************************************** （ 1）在考生文件夾下有一個(gè)工程文件 ，運(yùn)行情況如圖所示。 第 1小題 本題主要考察 Form控件和 Command控件的屬性設(shè)置。 （ 1）在名稱為 Form1的窗體上畫一個(gè)命令按鈕，其名稱為 Command1（如圖 1所 示），然后通過屬性窗口設(shè)置窗體和命令按鈕的屬性，實(shí)現(xiàn) 如下功能： 1）窗體標(biāo)題為 設(shè)置按鈕屬性 2）命令按鈕的標(biāo)題為 等級考試 3）程序運(yùn)行后，命令按鈕不顯示 4）命令按鈕的標(biāo)題用三號(hào)規(guī)則黑體顯示 程序的運(yùn)行情況如圖 2所示。并在命令按鈕的適當(dāng)事件過程中 加入語句： = True即 可。文本框的 Text屬性可設(shè)置其初始內(nèi)容。
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1