发布时间 : 2024/6/7 19:57:31 星期五 文章在Visual Basic 程序更新完毕开始阅读678feeccbb4cf7ec4afed0c0

则运行时按钮从窗体上消失. A、DisabledPicture B、Visible C、Default D、Enabled 120、一个窗体上有两个文本框按放置顺序分别是Text1Text2 要想在Text1中按“回车”键“焦点”自动转到Text2上应在 D 事件过程中编写程序。 A、Private Sub Text1_Click() B、Private Sub Text2_GotFocus() C、Private Sub Text1_LostFocus() D、Private Sub Text1_KeyPress(KeyAscii As Integer) 121、文本框中选定的内容,由下列( A )属性反映. A、Seltext B、Caption C、sellenght D、Text 122、下面4项中不属于面向对象系统三要素的是( A ). A、变量 B、事件 C、方法 D、属性 123、若要使命令按钮不可操作,要设置的属性是( A ). A、Enabled B、Visible C、Caption D、BackColor 124、文本框控件中将Text的内容全部显示为所定义的字符的属性项是(D). A、Password B、以上都不是 C、需要编程来实现 D、PasswordChar 125、如果Print方法在窗体的Load事件过程中不起作用原因是 A 属性值为false。 A、AutoRedraw B、ControlBox C、Moveable D、MaxButton 126、inputBox函数返回值的类型为(C). A、变体 B、数值 C、字符串 D、数值或字符串(视输入的数据而定) 127、窗体的Caption属性的作用是(B). A、确定窗体的边界类型

B、确定窗体的标题 C、确定窗体的名称 D、确定窗体的字体 128、欲使标签的内容自动换行,必须设置属性(A). A、WordWrap B、AutoSize C、Alignment D、left 129、用来设置粗体字的属性是D A、FontItalic B、FontSize C、FontName D、FontBold 130、Text1控件在运行时不可见,是设置下列(B)属性的结果. A、Cancel B、Visible C、ControlBox D、Enabled 131、若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的(D)属性. A、BORDERSTYLE B、BACKCOLOR C、FORECOLOR D、BACKSTYLE 132、要使“命令按钮”在程序运行时不可见可以将其 C 属性设置为False。 A、Cancel B、Default C、Visible D、Enabled 133、下列赋值语句正确的是(D). A、Text1.name=Text1.Name+Text2.Name B、Text1.Caption=Text1.Caption+Text2.Caption C、Text1.Enable=Text1.Enable+Text2.Enable D、Text1.text=Text.text+Text2.text 134、不具有输入数据功能的控件是(C)控件. A、列表框 B、选项按钮 C、窗体 D、文本框 135、程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是(A). A、Load B、Click C、MouseDown D、MouseUp 136、列表框和组合框的 B 属性的值表示其列表中项目的个数。 A、 ListIndex B、 ListCount C、List D、Text 137、在定义静态数组时关于下标的叙述中正确的是 A 。 A、省略下界一般系统默认为下界是 0 B、下标可以是字符型 C、下标下界最小为-32768 下标上界最大为32767 D、下标可以是变量。 138、下列程序 Private Sub Textl _Change() Print Textl End Sub 当

在文本框输入\这4个字符时窗体上显示的是 D A、1234 B、1 12 123 1234 C、1 2 3 4 D、1121231234 139、下面()对象在运行时一定不可见. C A、Line B、Option C、Timer D、Text 140、若要清除列表框的所有内容,可用什么方法实现 C A、以上均不可以 B、Cls C、Clear D、RemoveItem 141、要使时钟控件Timer1的Timer事件不起作用,以下正确的语句是 A A、Timer1.Enabled=False B、Timer1.Index=0 C、Timer1.Interval=1000 D、Timer1.Visible=False 142、为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件),则应 将其Interval属性值设置为( D). A、300 B、5 C、500 D、5000 143、将数据项\添加到列表框(List1)中成为第一项应使用的语句是 A。 A、List1.AddItem〞China〞,0

B、List1.AddItem〞China〞,1 C、List1.AddItem 0, 〞China〞 D、List1.AddItem 1,〞China〞 144、在程序代码中修改滚动条的value 属性时将激发滚动条的( D)事件. A、scroll B、dragdrop C、gotfocus D、change 145、循环结构For I%= -1 to -17 Step -2 共执行( C)次. A、6 B、5 C、9 D、8 146、执行下面的程序段后,x 的值为( D) x=5 For i=1 To 20 Step 2 x=x+i\\5

Next i A、24 B、23 C、22 D、21 147、由For k=10 to 0 step 3:next k循环语句控制的循环次数是( D). A、-11 B、12 C、-10 D、0 148、下列方法中可用于列表框动态添加数据的是( D). A、removeitem B、addlist C、add D、additem 149、组合框控件是将()组合成一个控件. A A、列表框控件和文本框控件 B、复选框控件和选项按钮控件 C、标签控件和列表框控件 D、标签控件和文本框控件 150、下面程序段输出的结果是 D Private Sub Command1_Click() x = 8

For i = 0 To 20 Step 5 x = x + i Next Print \ End Sub A、X=50 B、X=218 C、X=210 D、X=58 151、定时器的Interval属性以()为单位指定Timer事件之间的时间间隔. C A、分 B、微秒 C、毫秒 D、秒 152、由For k=35 to 0 step 3:next k循环语句控制的循环次数是(). A A、0 B、-10 C、12 D、-11 153、在列表框中当前被选中的列表项的序号是由下列哪个属性表示(). C A、List B、Index C、ListIndex D、TabIndex 154、设计动画通常使用时钟控件()来控制动画速度. C A、Enabled B、Timer C、Interval D、Move 155、为了能在列表框中利用Ctrl和Shift键进行多个列表项的选择,则应 将列表框的Multiselect属性设置为(). C A、1 B、3 C、2 D、0 156、引用列表框的最后一项应使用(). D A、List1.List(ListCount-1) B、List1.List(List1.ListCount) C、List1.List(ListCount) D、List1.List(List1.ListCount-1)

157、列表框控件中的列表内容是通过()属性设置的. A A、List B、Caption C、Name D、Text 填空 1.在窗体上已建立多个控件如Text1Label1Command1若要使程序一运行焦点就定位在Command1控件上应对Command1控件的__tabindex___属性设置为_TabIndex____。 2.日期表达式 #2/24/02# - #2/12/02# 的值为_12____。 3 .已知a=2.5b=5.0c=2.5d=True则表达式a>=0 AND a+c>b+3 OR NOT d的值是_false____。 4.表示x是5的倍数或是9的倍数的逻辑表达式为__x mod 5 = 0 OR x mod 9 = 0___。 5.在刚建立工程时使窗体上的所有控件具有相同的字体格式就对__font___的属性进行设置。 6.Int(-2.6)、Int(2.6)、Fix(-2.6)、Fix(3.6)的值分别是_-3____、___2__、__-2___、____3_。 7.Label和TextBox控件用来显示和输入文本如果仅需要让应用程序在窗体中显示文本信息可使用_label___控件若允许用户输入文本则应使用_Textbox____控件。 8.若命令按钮的名称为Cmdopen程序要求单击该命令按钮时打开一个窗口frm1请对以下事件过程填空。 Private Sub Cmdopen_Click()_____ _frm1.show____ end sub 9.表达式93 \\ 7 Mod 2 ^ 2 的值是__1___。 10.表达式Ucase(Mid(“abcdefgh”,3,4))的值是__CDEF___。 11.当程序运行时要求窗体中的文本框呈现空白则在设计时应当在此文本框的__属性___窗口中把此文本框的__text___属性设置成空白。 12.已知a=3b=4c=5表达式a>b and Not c>a Or c>b And ca And Not b

'**********ERROR********** Loop s > 3000 Print \从1 到:\的和是\答案 【学生答案】 i = i + 2 【参考答案】 i=i+1 2. '------------------------------------------------ '【程序改错】 '------------------------------------------------ 862 '题目以下程序段用于输出100-300的所有素数 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2 k = Int(Sqr(n)) i = 2 '**********ERROR********** swit = 1 '**********ERROR********** While swit = 0 If n Mod i = 0 Then swit = 1 Else '**********ERROR********** i = i - 1

End If Wend If swit = 0 Then Print n; End If Next n End Sub 答案 【学生答案】 swit = 1 【参考答案】 swit=0 【学生答案】 While swit = 0 【参考答案】 While i<=k And swit =0 While k>=i And swit=0 While swit=0 And i<=k While swit=0 And k>=i 【学生答案】 i = i - 1 【参考答案】 i=i+1 3.Option Explicit Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Print Tab(30); \ \9 '**********ERROR********** Print Tab(i * 6); i Next i Print For j = 1 To 9 Print j; \ For k = 1 To j Print Tab(k * 6); j * k; \\ '**********ERROR********** Next j Print '**********ERROR********** Next k 答案 【学生答案】 Print Tab(i * 6); i 【参考答案】 Print Tab(i * 6); i; 【学生答案】 Next j 【参考答案】 Next k 【学生答案】 Next k 【参考答案】 Next j 4.'------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目以下程序段用于计算5的N次方。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox(\Input n \'**********ERROR********** k = 0

'**********ERROR********** s = 0 Do While k <= n s = s * 5 k = k + 1 '**********ERROR********** Next Print \的\\次方是\答案 【学生答案】 k = 0 【参考答案】 k=1 【学生答案】 s = 0 【参考答案】 s=1 【学生答案】 Next 【参考答案】 loop '------------------------------------------------ 5.'【程序改错】 '------------------------------------------------ '题目以下程序段用于打印如图1所示的九九乘法表 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Print Tab(30); \Print \ \ Print Tab(i * 6); i Next i Print For j = 1 To 9 Print j; \\'**********ERROR********** For k = 1 To 9 '**********ERROR********** Print Tab(j * 6); j * k; \ Next k Print Next j End Sub 答案 【学生答案】 Print Tab(i * 6); i 【参考答案】 Print Tab(i*6);i; 【学生答案】 For k = 1 To 9 【参考答案】 For k = 1 To j 【学生答案】 Print Tab(j * 6); j * k; \【参考答案】 Print Tab(k*6);j*k;\\6.'【程序改错】 '------------------------------------------------ '题目下面程序可

输出如下图形 ' * ' *** ' ***** ' ******* ' ********* '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4 m = 1 s = \

To 1 Step -1 '**********ERROR********** Print Spc(n) For j = 1 To 2 * m - 1 Print s; Next j Print '**********ERROR********** n = n + 1 '**********ERROR********** m = m - 1 Next i 答案 【学生答案】 Print Spc(n) 【参考答案】 Print Spc(n); Print Spc(i); ?Spc(n); ?Spc(i); 【学生答案】

n = n + 1 【参考答案】 n=n-1 n=-1+n 【学生答案】 m = m - 1 【参考答案】 m=m+1 7.'题目以下程序段用于输出100-300的所有素数 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, i As Integer, swit As Integer For i = 101 To 299 k = Int(Sqr(i) For n = 2 To k If i Mod n = 0 Then '**********ERROR********** Exit End If Next n '**********ERROR********** If n < k Then Print i; End If '**********ERROR********** Next n 'Print i 答案 【学生答案】 Exit 【参考答案】 exit for 【学生答案】 If n < k Then 【参考答案】 If n>k Then If k

b = Val(InputBox(\请输入一个整数\c = Val(InputBox(\请输入一个整数\max=a '**********FILL********** If ______Then max=b End If If max < c Then '**********FILL********** ________ End If '**********FILL********** Print a; \、\\、\中最大值是\答案 【学生答案】 If ______Then 【参考答案】 maxmax b>=max 【学生答案】 ________ 【参考答案】 max=c 【学生答案】 Print a; \、\、\中最大值是\【参考答案】 max 2.以下程序的功能。 ' Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(\请输入a的值\InputBox(\请输入b的值\请输入c的值\

d >= 0 Then '**********FILL********** If _____ Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else

x1 = p x2 = p '**********FILL********** _____ Print \x1, \x2 '**********FILL********** _____ q = Sqr(-d) / (2 * a) Print \p; \答案 【学生答案】 If _____ Then 【参考答案】 d>0 【学生答案】 _____ 【参考答案】 End if End If end if 【学生答案】 _____ 【参考答案】 else Else ELSE 3.'从键盘输入学生分数统计学生总人数和各分数段人数 '即优秀90-100、良好80-89、中等70-79、 ' 及格60-69、不及格60以下的人数。 Private Sub Form_Click() Dim score%, n1%, n2%, n3%, n4%, n5% msg = \请输入分数-1结束\msgtitile = \输入数据\score = Val(InputBox(msg, msgtitle)) '**********FILL********** While _____ total = total + 1 '**********FILL********** Select Case _____ Case Is >= 90 n1 = n1 + 1 Case Is >= 80 n2 = n2 + 1 Case Is >= 70 n3 = n3 + 1 Case Is >= 60 n4 = n4 + 1

Case Else n5 = n5 + 1 '**********FILL********** _____ score = Val(InputBox(msg, msgtitle)) Wend Print n1, n2, n3, n4, n5, total End Sub 答案 【学生答案】 While _____ 【参考答案】 score>=0 and score<=100 score>=0 and score<=100 score<>-1 【学生答案】 Select Case _____ 【参考答案】 score 【学生答案】 _____ 【参考答案】 End Select 4以下程序段用于实现输入两个正整数m和n求其最大 '公因数和最小公倍数。 Private Sub Form_Click() Dim a%, b%, num1%, num2%, temp num1 = InputBox(\请输入一个正整数\num2 = InputBox(\请输入一个正整数\ temp = num1: num1 = num2: num2 = temp End If a = num1 b = num2 '**********FILL********** Do While _____ temp = a Mod b a = b '**********FILL********** _____ Loop Print \最大公因数为\a Print \最小公倍数为\num1 * num2 / a 答案 【学生答案】 If _____ Then 【参考答案】 num1

num2>num1 【学生答案】 Do While _____ 【参考答案】 b<>0 b>0 00 temp>0 0

n / i = int ( n / i) 【学生答案】 _____ 【参考答案】 i = i + 1 6题目从键盘上输入一串字符以\结束统计输入字符中的 ' 大、小写字母和数字的个数。 Private Sub Form_Click() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0 ch = InputBox(\请输入一个字符\