vb等級(jí)考試題目與評(píng)析45-閱讀頁
2024-09-24 16:52本頁面
【正文】 一個(gè)名稱為 C1，標(biāo)題為“計(jì)算 ”的命令按鈕；再畫二個(gè)單選按鈕，名稱分別 為 Op Op2，標(biāo)題分別為“求 500到 600之間能被 7整除的數(shù)之和”、“求 500 到 600之間能被 3整除的數(shù)之和”（如圖所示）。 注意： 考生不得修改窗體文件中已經(jīng)存在的程序，退出程序時(shí)必須通過單擊 窗體 右上角的關(guān)閉按鈕。 單選按鈕的 Value屬性： Value屬性用來表示單選按鈕的狀態(tài)，可以取 True和 False兩種值，取值為 True時(shí)，單選按鈕是“打開”的，按鈕中心有一個(gè)圓點(diǎn)；取值為 False時(shí)，單選按鈕是“關(guān)閉”的，按鈕是一個(gè)圓圈。 分析 fun(a)函數(shù) Private Function fun(a As Integer) As Integer s% = 0 For i% = 500 To 600 If Int(i% / a) = i% / a Then s% = s% + i% End If Next fun = s% End Function 該函數(shù)的作用是求 500到 600間的所有能被 a整除的整數(shù)之和。 解題方法： 打開工程文件 ，點(diǎn)擊工具箱中的 TextBox控件圖標(biāo)，然后在窗體上拖拉出一個(gè)文本框。 點(diǎn)擊工具箱中的 OptionButton控件圖標(biāo)，然后在 窗體上拖拉出一個(gè)單選按鈕，通過屬性窗口設(shè)置其 Name屬性為“ Op1”， Caption屬性為“求 500到 600之間能被 7整除的數(shù)之和”。 打開代碼窗口，輸入如下的代碼： Private Sub C1_Click() If Then Text1 = fun(7) End If If Then Text1 = fun(3) End Sub 按要求進(jìn)行操作并保存文件即完成本題
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1