126、表达式Left（”This is a book”,3）的值是：（ C） A、 a B、is a book C、Thi D、ook
127、要使文本框中的内容写满一行后自动换行，，应将文本框的哪个属性设为TRUE （A ）
A、Multiline B、Text C 、Scrollbars D、 Caption 128、以下说法正确的是（ A） A、对象是又特殊属性和行为方法的实体
B、属性是对象的特性，所有的对象都有相同的属性 C、属性的一般格式为：对象名_属性名 D、属性值的设置只可以在属性窗口中设置
129、一个新建的窗体，运行后发现屏幕上没有显示，任务栏上也无最小化图标，可能原因是：（ B）
A、该窗体的Enabled属性为False B、该窗体的Visible属性为False
C．该窗体的WindowsState属性为Minisized D、该窗体为多窗体的一个
A、Ctrl B、Tab C、Esc D、回车
130、要改变控件的高度，应改变控件的哪个属性： ( B) A、Width B、Height C、Top D、Left 131、用于隐藏窗体的方法是：（A ）
A、Hide B、Show C、Unload C、Load
132、对于一个含有计时器控件的窗体， 每经过一段由（D ）属性指定的时间间隔， 就会产生一个Timer事件：
A、Name B、Enabled C、Caption D、Interval 133、窗体能够响应的事件是（C ）。
A、ActiveForm B、Drive C、Load D、Change 134、以下各项中，不是字符串常量的是：（ D）
A、” Visual” B、”等级考试” C、” ” D、//Basic//
135、有变量定义语句：Dim max,min as Single，可知变量max的类型是：（B ） A、可变类型 B、单精度型 C、双精度型 D、字符串型 136、Int（100*Rnd）产生随机数的闭区间是：（C ）
A、[1，100] B、[0，100] C、[0，99] D、[1，99] 三编程
1、求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中 代码：Dim i As Integer For i =1 To 100
If i Mod 2 =0 Then Sum=sum+i End If Next Print sum
2、编写程序求10*11*12+11*12*13+….+15*16*17的结果，并将结果输出到窗体上。将结果存入变量M中。
代码：Dim m As Long For i = 1 To 6
t =(i+9)*(i+10)*(i+11) m=m+t Next Print m
3、求出100~200之间，能被5整除，但不能被3整除的数，并求出所有数之和，存入变量SUM中
代码：Dim sum As Integer sum=0
For i = 100 To 200
If i Mod 5 = 0 And i Mod 3<> 0 Then sum = sum +i End If Next Print sum
4、求100以内偶数的和，并将结果输出在窗体上。将结果存入变量SUM中 代码：Dim i As Integer For i =1 To 100
If i Mod 2 =0 Then Sum=sum+i End If Next Print sum
5、求1—1/2+1/3—1/4+….+1/99—1/100的值。将结果存入变量J中 代码：Dim j As Single Dim i As Single j=0
For i = 1 To 100 k=(-1)^(i+1)/i j=k+j Next i Print j
6、求50以内所有偶数的和，并在窗体上输出来。 代码：Dim s As Integer s = 0
For i = 2 To 50 Step 2 s = s + i Next i Print s
7、求3+6+9+12+15+18+…..+300的和，并将结果输出到窗体上。将结果存入变量SUM中
代码：Dim sum As Integer sum = 0
For i = 3 To 300 Step 3 sum= sum +i Next i Print sum
8、求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中。 代码：Dim i,j As Integer Dim k As Long k=1 s=0
For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next
Print(CStr(s))
9、求1+1*2+1*2*3+….+1*2*3*….*10，并将结果存到变量S中。 代码：Dim s As Long j=1
For i = 1 To 10 j= j*i
Sum = Sum + j Next
Print Sum
10、编写程序求10*11*12+11*12*13+….+15*16*17的结果，并将结果输出到窗体上。将结果存入变量M中。 代码：Dim m As Long For i = 1 To 6
t =(i+9)*(i+10)*(i+11) m=m+t Next Print m
11、求1—1/2+1/3—1/4+….+1/99—1/100的值。将结果存入变量J中 代码：Dim j As Single Dim i As Single j=0
For i = 1 To 100 k=(-1)^(i+1)/i j=k+j Next i Print j
12、求50以内所有偶数的和，并在窗体上输出来。
代码：Dim s As Integer s = 0
For i = 2 To 50 Step 2 s = s + i Next i
Print s4、求出100~200之间，能被5整除，但不能被3整除的数，并求出所有数之和，存入变量SUM中 代码：Dim sum As Integer sum=0
For i = 100 To 200
If i Mod 5 = 0 And i Mod 3<> 0 Then sum = sum +i End If Next Print sum 13、求出100以内所有素数的和，并将结果输出到窗体上，并存入所给变量SUM中
代码：Dim i As Integer Dim j As Integer Dim k As Integer Dim b As Boolean b = False
For i = 2 To 100 b = False
j = CInt(Sqr(i)) For k = 2 To j
If i Mod k = 0 Then b=True End If Next
If b = False Then sum=sum+i End If Next Print sum
14、求50以内所有偶数的和，并在窗体上输出来。将结果存入变量S中。 代码：Dim I As Integer For i = 2 To 50
If (i Mod 2)=0 Then S=s+i End If
Next
Print (CStr(s))
15、已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上 代码：Dim s As Single For i=1 To 10 a=i*i
Sum =1/a + Sum Next
Print Sum
16、求3+6+9+12+15+18+…..+300的和，并将结果输出到窗体上。将结果存入变量SUM中
代码：Dim sum As Integer sum = 0
For i = 3 To 300 Step 3 sum= sum +i Next i Print sum
VB6.0程序设计教程复习题
