Next i For i= 1 To 3 k=k+p()*2 Next i Print k End Sub A.33 B.28 D.37 (20)执行下面程序后,输出的结果是 Private Sub Form Click Dim a(10, 10)As Integer For i=2 To 4 Fori=4 To 5 a(,j)=1* Next i Print a(2,5)+a(3,4)+a( End Sub A.22 B.42 C.32 D.52 2.10填空题 (1)填空,使得程序运行后,能在窗体上打印如图所示的图案。 Private Sub Form Click Print Print Tab(8-1) 与,Form1 1 To 8 Print " Print 本本本冰率 End Sub (2)下面程序的功能是利用随机函数产生1个(1之的随机整数,打印其中 能被5整除的数并求其和,请用正确的内容填空。 Private Sub Form Click Dim sum As Integer, x As Integer For i= 1 To 10 =Int(Rnd*100+1) The sum= sum +x End lf If sum <>0 Then Print "sum=. sum End If End Sub (3)用正确的内容填空,使得以下程序能够找出50以内所有能构成直角三角形的整 Private Sub Form Click Dim a as integer. b As Integer Dim c as single For a=1 To 50 For b= a To 50 Sqr(a 2+b 2) (3) Then Print a, b, c Next b
Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub A. 33 B. 28 C. 35 D. 37 （20）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next j Next i Print a(2, 5) + a(3, 4) + a(4, 5) End Sub A. 22 B. 42 C. 32 D. 52 2.10 填空题 （1） 填空，使得程序运行后，能在窗体上打印如图所示的图案。 Private Sub Form_Click() Print For i = 1 To 4 Print Tab(8 - i); For j = 1 To 8 Print "*"; （1） Print Next i End Sub （2） 下面程序的功能是利用随机函数产生 10 个（1~100）之间的随机整数，打印其中 能被 5 整除的数并求其和，请用正确的内容填空。 Private Sub Form_Click() Dim sum As Integer, x As Integer For i = 1 To 10 x = Int(Rnd * 100 + 1) If （2） = 0 Then sum = sum + x Print "x="; x End If Next i If sum <> 0 Then Print "sum="; sum End If End Sub （3） 用正确的内容填空，使得以下程序能够找出 50 以内所有能构成直角三角形的整 数。 Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Single For a = 1 To 50 For b = a To 50 c = Sqr(a ^ 2 + b ^ 2) If （3） Then Print a, b, c Next b Next a
(4)用正确的内容填空,使得以下程序能够计算1+1/3+1/5+……+1/(2N+1),直到 l/(2N+1)小于105。 rivate Sub Form Click sum=l: n= I 1/n sum = sum temp If temp<0.00001 Then(4) Print"N=".n Print sum=: sum End Sub (5)某大奖赛,有7位评委给参赛选手打分。以下程序是输入7位评委对某选手的打 分后,去掉最高分和最低分后计算其平均值作为该选手的成绩。请填空使得程序 能正确运行 Private Sub Form Click sum=o For i=1 To 7 qj=Val( (Input Box("请输入第"&i&"位评委的打分","录入") Max=c] Min=cj If Min >c] Then Elself Max cj Then End If End if sum =sum cI Next i aver Print"该选手的成绩为:",aver End Sub (6)以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数,请用正确的 内容填空。 Private Sub Form Click Dim a(I To 6)As Integer Randomize 1To50 a(n)=a(n)+1 For i= 1 to 6 Print i;"点出现";a(i),"次 Next i End Sub 2.11编程题 (1)编写程序将1~100自然数中能被3和5同时整除的数打印出来,并统计其个数。 (2)我国现有人口14亿,设年增长率为0.75%,编写程序,计算多少年后将增加到 16亿 (3)编写程序输出100~200之间不能被3整除的自然数 (4)设计程序,求s=1+(1+2)+(1+2+3)+……+(1+2+3+…+n)的值
End Sub （4） 用正确的内容填空，使得以下程序能够计算 1+1/3+1/5+……+1/(2N+1)，直到 1/(2N+1)小于 10-5。 Private Sub Form_Click() sum = 1: n = 1 Do n = n + 2 temp = 1 / n sum = sum + temp If temp < 0.00001 Then （4） Loop Print "N="; n Print "sum="; sum End Sub （5） 某大奖赛，有 7 位评委给参赛选手打分。以下程序是输入 7 位评委对某选手的打 分后，去掉最高分和最低分后计算其平均值作为该选手的成绩。请填空使得程序 能正确运行。 Private Sub Form_Click() sum = 0 For i = 1 To 7 cj = Val(InputBox("请输入第" & i & "位评委的打分", "录入")) If i = 1 Then Max = cj Min = cj Else If Min > cj Then Min = cj ElseIf Max < cj Then Max = cj End If End If sum = sum + cj Next i aver = （5） Print "该选手的成绩为：", aver End Sub （6） 以下程序用随机函数模拟掷骰子，统计掷 50 次骰子出现各点的次数，请用正确的 内容填空。 Private Sub Form_Click() Dim a(1 To 6) As Integer Randomize For i = 1 To 50 n = （6） a(n) = a(n) + 1 Next i For i = 1 To 6 Print i; "点出现"; a(i); "次" Next i End Sub 2.11 编程题 （1） 编写程序将 1~100 自然数中能被 3 和 5 同时整除的数打印出来，并统计其个数。 （2） 我国现有人口 14 亿，设年增长率为 0.75％，编写程序，计算多少年后将增加到 16 亿。 （3） 编写程序输出 100~200 之间不能被 3 整除的自然数。 （4） 设计程序，求 s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值
(5)编写程序计算S的近似值,直到最后一项的绝对值小于105为止。并用 Print方法 输出计算结果。其中 S=1 234 K (6)假设某项税收的规定如下: 收入在500元以内,免征 收入在500~1000元内,超过500元的部分纳税3%; 收入超过1000元时,超过的部分纳税4% 收入超过2000元时,超过的部分纳税5% 试编程实现上述操作 (7)编写程序,用 Input Box函数输入3个正整数,打印其中最大的数。 (8)编写程序,任意输入三个整数A,B,C,按由大到小顺序把它们打印出来。 smx≈x一一 (9)编写程序,计算 3!5! (2n-1)直到第n项的 绝对值小于108 (10)分别编写两个程序,在窗体上分别打印出如下所示的图形。 水本水水 *水木 (11)编写程 内的所有 指一个数恰好等于它的因子之 和,如6的因子为1、2、3,而6=1+2+3,因而6是完数 (12)一只小球从10米高度上自由落下,每次落地后反弹回原高度的40%,再落下 编程计算小球在第8次落地时,共计经过了多少米? (13)编写程序,求出所有小于或等于100的自然数对。自然数对是指两个自然数和与 差都是平方数,如8和17的和为8+17=25与其差17-89都是平方数,则8和17 就称为自然数对 (14)找出100~999之间的所有“水仙花数”。所谓“水仙花数”是一个三位数,其各 位数的立方各等于该数本身,例:153=13+53+33,故153是“水仙花数”。 (15)编写程序,在窗体上打印下图所示的“数字金字塔”: 121 12321 1234321 123454321 12345654321 1234567654321 123456787654321 12345678987654321 (16)用一元纸币兑换一分、二分和五分的硬币,要求兑换硬币的总数为50枚。编程列 出所有可能的兑换方案。 (17)编写程序,建立并输出一个10×10的矩阵,该矩阵两条对角线上的元素为1,其 余元素均为0
（5） 编写程序计算 S 的近似值，直到最后一项的绝对值小于 10-5 为止。并用 Print 方法 输出计算结果。其中： K S k 1 ( 1) 4 1 3 1 2 1 1 +1 = − + − ++ − （6） 假设某项税收的规定如下： ⚫ 收入在 500 元以内，免征； ⚫ 收入在 500～1000 元内，超过 500 元的部分纳税 3%； ⚫ 收入超过 1000 元时，超过的部分纳税 4%； ⚫ 收入超过 2000 元时，超过的部分纳税 5%。 试编程实现上述操作。 （7） 编写程序，用 InputBox 函数输入 3 个正整数，打印其中最大的数。 （8） 编写程序，任意输入三个整数 A，B，C，按由大到小顺序把它们打印出来。 （9） 编写程序，计算 (2 1)! ( 1) 3! 5! sin 2 1 1 3 5 − − + + + − − − n x x x x x n n 直到第 n 项的 绝对值小于 10-8 （10） 分别编写两个程序，在窗体上分别打印出如下所示的图形。 （11） 编写程序，输出 1000 之内的所有完数。“完数”是指一个数恰好等于它的因子之 和，如 6 的因子为 1、2、3，而 6=1+2+3，因而 6 是完数。 （12） 一只小球从 10 米高度上自由落下，每次落地后反弹回原高度的 40％，再落下。 编程计算小球在第 8 次落地时，共计经过了多少米？ （13） 编写程序，求出所有小于或等于 100 的自然数对。自然数对是指两个自然数和与 差都是平方数，如 8 和 17 的和为 8+17=25 与其差 17-8=9 都是平方数，则 8 和 17 就称为自然数对。 （14） 找出 100~999 之间的所有“水仙花数”。 所谓“水仙花数”是一个三位数，其各 位数的立方各等于该数本身，例：153=13+53+33，故 153 是“水仙花数”。 （15） 编写程序，在窗体上打印下图所示的“数字金字塔”： （16） 用一元纸币兑换一分、二分和五分的硬币，要求兑换硬币的总数为 50 枚。编程列 出所有可能的兑换方案。 （17） 编写程序，建立并输出一个 10×10 的矩阵，该矩阵两条对角线上的元素为 1，其 余元素均为 0
习题3 、选择题 (1)窗体的标题条显示内容由窗体对象的()属性决定 A Back Color B BackStyle C. Text (2)窗体的示意图标可用( )属性来设置 A. Picture B. Image C Icon D. Mouselcon (3)若要取消窗体的最大化功能,则可设置()属性为 False来实现 A ControlBox B. Min Button C Max Button D. Enabled (4)窗体的风格由窗体对象的( 属性来设置 A Back Style B Border Style C WindowState D FillStyle (5)若要以程序代码方式设置在窗体中显示文本的字体大小,则可用窗体对象的()属性 来实现。 A FontName B Font C. FontS ize Fontbold (6)若要设置文本的显示颜色,则可用()属性来实现 A Backcolor B. Fore Color FillColor D. BackStyle (7)若要使用窗体启动时,位于屏幕的中间,则可通过()属性来设置。 B. Left C. StartUp Position D. WindowState (8)若要禁止窗体被移动,则可设置窗体的( )属性为 False来实现 A Move B Moveable C. MinButton D. Control Box (9)若要将窗体隐藏起来,则实现的方法为( A Hide B UnLoad C Show D WindowState (10)命令钮的标题文字由 )属性来设置 A Text B Caption C Nam D.(名称) (11)命令按钮标题文字的下划线,可通过()符号来设置 D\> (12)若要将某命令按钮设置为默认命令钮,则可设置( )属性为True来实现 A value B Cancel C. Default D. Enable (13)若要设置命令钮的工具提示,则可通过( 属性来设置 A Caption B C. value D ToolTip Text (14)若要使用某命令按钮获得控制焦点,则可使用( )方法来设置。 A Refresh B. Setfocus C GotFocus D. Value (15)若要使用命令钮在运行时不可见,则可通过设置(属性的取值来实现 A. Visible B. Enabled C. Defau D. Value (16)在运行时,若要调用某命令钮的 Click事件过程,则可设置该命令按钮对象的()属 性为True来实现 A Enabled B. value C. Default D. Cancel (17)标签框的边框,由( )属性的设置值决定 A Border Style B Back Style C Back Color D AutoSize (18)若要使用标签框的大小自动与所显示的文本相适应,则可通过设置()属性的值为 True来实现 A Auto Size B Alignment C Appearance D Visible (19)若要设置或返回文本框中的文本,则可通过文本框对象的()属性来实现 A. Captio B. Text C.(名称) D. Na (20)若要使用文本框成为只读文本框,可通过设置()属性值为True来实现。 A ReadOnly B Lock D. Enabled (21)若要设置定时器控件的定时时间,可通过( 属性来设置 A. Interval B. Value C. Enabled D. Text (22)若要多列显示列表项,可通过设置列表框对象的( )属性来实现 A Columns B MultiSelect C Style D. List (23)若要获知当前列表项的数目,可通过访问()属性来实现 A. List B. ListIndex C. ListCount D. Text (24)若要向列表框新增列表项,则可使用的方法是( A. Add B. Remove C Clear D. AddItem
习题 3 一、选择题 (1) 窗体的标题条显示内容由窗体对象的( )属性决定。 A. BackColor B. BackStyle C. Text D. Caption (2) 窗体的示意图标可用( )属性来设置。 A. Picture B. Image C. Icon D. MouseIcon (3) 若要取消窗体的最大化功能，则可设置( )属性为 False 来实现。 A. ControlBox B. MinButton C. MaxButton D. Enabled (4) 窗体的风格由窗体对象的( )属性来设置。 A. BackStyle B. BorderStyle C. WindowState D. FillStyle (5) 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的( )属性 来实现。 A.FontName B. Font C. FontSize D.FontBold (6) 若要设置文本的显示颜色，则可用( )属性来实现。 A. BackColor B. ForeColor C .FillColor D. BackStyle (7) 若要使用窗体启动时，位于屏幕的中间，则可通过( )属性来设置。 A. Top B. Left C. StartUpPosition D. WindowState (8) 若要禁止窗体被移动，则可设置窗体的( )属性为 False 来实现。 A. Move B. Moveable C. MinButton D. ControlBox (9) 若要将窗体隐藏起来，则实现的方法为( ) A. Hide B. UnLoad C. Show D. WindowState (10)命令钮的标题文字由( )属性来设置。 A. Text B. Caption C. Name D. (名称) (11)命令按钮标题文字的下划线，可通过( )符号来设置。 A.＼＜ B.& C. _ D＼＞ (12)若要将某命令按钮设置为默认命令钮，则可设置( )属性为 True 来实现。 A. Value B. Cancel C. Default D. Enable d (13)若要设置命令钮的工具提示，则可通过( )属性来设置。 A. Caption B. Text C. Value D. ToolTip Text (14)若要使用某命令按钮获得控制焦点，则可使用( )方法来设置。 A. Refresh B. SetFocus C. GotFocus D. Value (15)若要使用命令钮在运行时不可见，则可通过设置()属性的取值来实现。 A. Visible B. Enabled C. Default D. Value (16)在运行时，若要调用某命令钮的 Click 事件过程，则可设置该命令按钮对象的( )属 性为 True 来实现。 A. Enabled B. Value C. Default D. Cancel (17)标签框的边框，由( )属性的设置值决定。 A. BorderStyle B. BackStyle C. BackColor D. AutoSize (18)若要使用标签框的大小自动与所显示的文本相适应，则可通过设置( )属性的值为 True 来实现。 A. AutoSize B. Alignment C. Appearance D. Visible (19)若要设置或返回文本框中的文本，则可通过文本框对象的( )属性来实现。 A. Caption B. Text C. (名称) D. Name (20)若要使用文本框成为只读文本框，可通过设置( )属性值为 True 来实现。 A. ReadOnly B. Lock C. Locked D. Enabled (21)若要设置定时器控件的定时时间，可通过( )属性来设置。 A. Interval B. Value C. Enabled D. Text (22)若要多列显示列表项，可通过设置列表框对象的( )属性来实现。 A. Columns B. MultiSelect C. Style D. List (23)若要获知当前列表项的数目，可通过访问( )属性来实现。 A. List B. ListIndex C. ListCount D. Text (24)若要向列表框新增列表项，则可使用的方法是( )。 A. Add B. Remove C. Clear D. AddItem
(25)若要清除列表框的内容,可使用()方法来实现 A. Add B. Ren C. cle D. AddItem (26)在3种不同风格的组合框中,用户不能输入数据的组合框是() A.下拉式组合框B.简单组合框C.下拉式列表框 (27)复选框或单选框的当前状态通过( 属性来设置或访问。 A. value B. Checked C. Selected D Caption (28)下列控件中,没有 Caption属性的是( A.框架 B.列表框 C.复选框 D.单选按钮 (29)复选框的 Value属性为1时,表示 A.复选框未被选中 B.复选框被选中 C.复选框内有灰色的勾 D.复选框操作错误 (30)用来设置粗字体的属性是( A. Fontltalic B. FontName C. Font Bold D. FontSize (31)将数据项“ China”添加到列表框 List1中,成为第一项应使用()语句 A. Listl. addltem"China".0 B. List. AddItem“ China”,l C. List1. AddIton0,“ China” D. Listl. Addltem 1"China (32)假定时钟控件的 Interval属性为1000, Enabled属性为True,并且有下面的事件过程, 计算机将发出()次Bep声。 Private Sub Timer Timer For i=1 To 5 B End Sub A.1000次 B.10000次 C.5次 D.以上都不对 (33)如果每0.5秒产生一个计时器事件,那么时钟控件的 Interval属性应设为()。 B.5 (34)将命令按钮 Commandl的标题复制到文本框控件,Text作为显示文本,应执行()。 A. Text= Commandl BText 1= Commandl Caption CTextI text=Command1 Caption DTextIText=CStr( Command1) (35)表示滚动条控件取值范围最大值的属性是( A Max B Large Change C. value D Max-Min 二、填空题 (1)复选框的 属性设置为2 Grayed时,将变为灰色,禁止用户使用 (2)Ⅴ isual basic中有一种控件组合了文本框和列表框的特点,这种控件是 (3)为了在程序运行时把dpic文件夹中的图形文件ajpg装入图片框 Picture,所使用的语 句为 (4)计时器控件能有规律地以一定的时间间隔触发 事件,并执行该事件过程中的 程序代码。 (5)若要求输入密码时文本框中只显示*号,则应当在文本框的属性窗口中设置 属 (6)图像框和图片框在使用时有所不同,这两个控件中,能作为容器容纳其它控件的是 (⑦)单击滚动条边的箭头时,滚动条默认滚动值为1,为了实现单击滚动条边的箭头时,滚 动条的滚动值为2,需要将其 属性设置为2。 (8)滚动条响应的重要事件有 和 Change,滚动条产生 Change事件是因为 改变了。 (9)列表框中的 和 属性是数组。 (10)在窗体上有一个名为 Command 1的命令按钮和一个名为 TextI的文本框,程序运行后, Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮 Command1变为 可用。请在空白处填入适当的内容,将程序补充完整 Private Sub Form Load Command 1. Enabled= False End Sub
(25)若要清除列表框的内容，可使用( )方法来实现。 A. Add B. Remove C. Clear D. AddItem (26)在 3 种不同风格的组合框中，用户不能输入数据的组合框是( ) A. 下拉式组合框 B. 简单组合框 C. 下拉式列表框 (27)复选框或单选框的当前状态通过( )属性来设置或访问。 A. Value B. Checked C. Selected D. Caption (28)下列控件中，没有 Caption 属性的是( )。 A. 框架 B. 列表框 C. 复选框 D. 单选按钮 (29)复选框的 Value 属性为 1 时，表示( )。 A. 复选框未被选中 B. 复选框被选中 C. 复选框内有灰色的勾 D. 复选框操作错误 (30)用来设置粗字体的属性是( )。 A. FontItalic B. FontName C. FontBold D. FontSize (31)将数据项“China”添加到列表框 List1 中，成为第一项应使用( )语句。 A. List1.AddItem “China”, 0 B. List1.AddItem “China”, 1 C. List1.AddItem 0, “China” D. List1.AddItem 1, “China” (32)假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，并且有下面的事件过程， 计算机将发出（ ）次 Beep 声。 Private Sub Timer1_Timer() For i = 1 To 5 Beep Next i End Sub A. 1000 次 B.10000 次 C. 5 次 D. 以上都不对 (33)如果每 0.5 秒产生一个计时器事件，那么时钟控件的 Interval 属性应设为（ ）。 A. 5 B. 50 C. 500 D. 5000 (34)将命令按钮 Command1 的标题复制到文本框控件，Text1 作为显示文本，应执行（ ）。 A. Text1= Command1 B.Text1= Command1.Caption C.Text1.text= Command1.Caption D.Text1.Text= CStr(Command1) (35)表示滚动条控件取值范围最大值的属性是（ ）。 A. Max B. LargeChange C. Value D. Max-Min 二、填空题 (1) 复选框的 属性设置为 2-Grayed 时，将变为灰色，禁止用户使用。 (2) Visual Basic 中有一种控件组合了文本框和列表框的特点，这种控件是 。 (3) 为了在程序运行时把 d:\pic 文件夹中的图形文件 a.jpg 装入图片框 Picture1，所使用的语 句为 。 (4) 计时器控件能有规律地以一定的时间间隔触发 事件，并执行该事件过程中的 程序代码。 (5) 若要求输入密码时文本框中只显示*号，则应当在文本框的属性窗口中设置 属 性。 (6) 图像框和图片框在使用时有所不同，这两个控件中，能作为容器容纳其它控件的是 。 (7) 单击滚动条边的箭头时，滚动条默认滚动值为 1，为了实现单击滚动条边的箭头时，滚 动条的滚动值为 2，需要将其 属性设置为 2。 (8) 滚动条响应的重要事件有 和 Change，滚动条产生 Change 事件是因为 改变了。 (9) 列表框中的 和 属性是数组。 (10)在窗体上有一个名为 Command1 的命令按钮和一个名为 Text1 的文本框，程序运行后， Command1 为禁用（灰色）。当向文本框中输入任何字符时，命令按钮 Command1 变为 可用。请在空白处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled = False End Sub