1、 If sNum = sNum + 1 End If Print 5、若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。请在画线处中填入适当的内容。 Private Sub CmdExit_ （ ） 6、下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。在画线处填入正确的内容。 Private Sub Comandl_Click（ ） Dim int1 As Integer int1 =val （txt1.Text） Select Case int1 Case txt2.Text = 值为0值在1和10之间（包括1和10）值大于10
2、 Case Else 值小于0 End Select四、读程序题，写出程序运行结果。1运行结果：Private Sub Form_Click（） For I = 1 To 9 For j = 1 To 30 - 3 * I Print ; Next j For k = 1 To I Print k; Next k For k = I - 1 To 1 Step -1 Print Next IEnd Sub2运行结果：Private Sub Command1_Click（） Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S =
3、 S * i Next i Print S3运行结果：For X = 5 To 1 Step 1 For Y = 1 To 6 - X Print Tab（Y + 5）;* Next YNext X4运行结果：S = 0: T = 0: U = 0 For X = 1 To 3 For Y = 1 To X For Z = Y To 3 S = S + 1 Next Z T = T + 1 U = U + 1Print S; T; U5运行结果：Dim b As Integera = 3.6b = 3.6Text1.Text = aText2.Text = b2以下程序判断从文本框Text1中
4、输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出；否则将焦点定位在文本框Text1中，选中其中的文本。 Private Sub Command_Click（） X = Val（Text1.Text） If （1） Then Print XElse （2） （3） （4） End If五、编程题1设计一个计算程序。该程序用户界面如图所示，由四个文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三个按钮：命令按钮1（command1）、命令按钮2（command2）、命令按钮3（command4）组成程序运行后，用户
5、按清除按钮，则清除文本框中显示的内容，按计算按钮，则计算三科平均成绩。单击退出按钮则退出。Private Sub Command1_Click（） Text1.Text = 1 Text2. 2 = 2 3 .Text = 3 Private Sub Command2_Click（） If Text1. 4= Or Text2.Text = 5 Or Text3.Text = Then 4 MsgBox 成绩输入不全！ 5 Else Text4.Text = （ 6 + Val（Text2.Text） 6 + Val（Text3.Text） / 7 7 8 8 Private Sub Comm
6、and3_Click（）Unload 9 9 10 Sub 10 3设计一个欢迎程序。该程序用户界面如图所示。要求程序运行后，用户选中粗体复选框时 “欢迎您！”几个字的字体变成粗体，用户选中斜体复选框时 “欢迎您！”几个字的字体变成斜体。若取消选中，则恢复原字体。按结束，则退出。4任给3个数，求其中间数，写出程序代码。三、阅读程序题1阅读下列程序并写出程序运行结果Private Sub Form_Click（） Dim s As Long, f As Long, n As Integer, i As Integer n = 3 For i = 1 To n f = f + i s = s +
7、f Nexts= s写出程序运行时单击窗体后，窗体Form1上的输出结果。运行结果：2阅读下列程序并写出程序运行结果 x = 0 Do While x 100 x = （x + 2） * （x + 4） n = n + 1 Loop Text1.Text = Str（n） Text2.Text = Str（x） Text3.Text = Val（Text1.Text） + Val（Text2.Text）文件框Text3的结果是：3阅读下列程序并写出程序运行结果 Dim Sum1 As Integer, Sum2 As Integer Sum1 = 0: Sum2 = 1 For I = 1 T
8、o 4 For J = 1 To I Sum2 = Sum2 * J Next J Sum1 = Sum1 + Sum2Next IPrint Sum1 写出程序运行时单击命令按纽后，窗体上的输出结果。4. 阅读下列程序并写出程序运行结果 Dim x As Integer6阅读下列程序并写出程序运行结果Dim A（2 To 7） As Integer Dim b As IntegerFor b = 2 To 7A（b） = bNext bText1.Text = A（b - 2）程序运行后，单击命令按纽文本框Text1的结果是：Static s As Integer x = Val（Input
9、Box（请输入一个正整数=） If x 6 Then s = s * x s = s + x Text1.Text = & Str（s）程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。5阅读下列程序并写出程序运行结果 Dim A（1 To 3） As String Dim c As Integer,j As Integer A（1） = “2” A（2） = “4” A（3） = “6” c=0 For j=1 to 3 c = c + Val（A（j）Next jPrint cEnd Sub 写出程序运行时单击窗体后，窗体Form1上的结果
10、： 11. 阅读下列程序并写出程序运行结果 Static Sum As Integer I=1 While i0Thenx=y-3Elsey=x+3 Printx-y;y-x A）-33 B）5-9 C） D）-65 （23）单击命令按钮时，下列程序的执行结果为 （ ）PrivateSubCommand1_Click（）DimxAsInteger,yInteger x=12:y=32CallProc（x,y）x;y EndSub PublicProc（nByValmInteger）n=nMod10 m=m1232232 C）23123 二、填空题（1）完成下面的程序，使显示结果如下图所示。Fo
11、rm_Click（）FontSize=18 Sample=【1】 x=（ScaleWidth-TextWidth（Sample）/2 y=（ScaleHeight-TextHeight（Sample）CurrentX=x CurrentY=y 【2】 Sample （2）下列程序的功能是：当x100时，没有意义。请填空。Single x=InputBox（请输入x的值！【3】 CaseIs50 y=0.8*x 50To100 y=0.7【4】 输入的数据出界！Select x,35.窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序：Command1_Clic
12、k（） x=2 Text1.Text=p2（p1（x）,y） Text2.Text=p1（x） PrivageFunctionP1（x=x+y:y=x+y P1=x+y Function P2（xP2=2*x+y 当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是（C） 5执行了以下的程序后，列表框中的数据项有_。Sub Form_click（） For i=0 To 4 List1.AddItem i For i=1 To 2 List1.RemoveItem i31.如下程序，运行的结果是（B） Form_Click（） Integer,iInteger,x（10）F
13、ori=to4 x（i）=i+1 Nexti i=12 proc（x） x（i）;proc（a（）Integer） StaticiDo a（i）=a（i）+a（i+1） i=i+1 LoopWhilei32.假设有以下程序段：I=13 j=51Step-1 I*j j I 则语句PrintI*j的执行次数I、j的值分别是（A） 33.在窗体上一个文本框，其名称为Text1,然后编写如下事件过程：Text1_KeyPress（KeyAsciistrString,n=UCase（Chr（KeyAscii） n=Len（str） Text1=String（n,str） 程序运行后，如果在键盘上输入单
14、字母K，则在文本框Text1中显示的内容为（） 5.下面的程序输入X的值，按以下公式求Y值。 Private Sub Command1_Click（） X=Val（Text1.Text） Select Case X Case 【1 】 Print X200 Case 【2 】 Y=100-X Case 【3 】 Y=100+X Case 【4 】 Y=400 End Select Text2.Text=Y6以下程序是利用公式来计算的值。其中，变量k表示当前符号项，t表示当前项，n表示当前项的序号，要求精度控制在0.00001内。试分析程序，完成空格处填的内容。Dim pi As Single,
15、t As SingleDim n As Single,k As Singlepi=0 : n=1k=1 : t=1Do While（【1 】） pi =pi+t k=-k t=【2 】 n=n+1Looppi=【3 】Print pi=pi7下列程序的功能是输出的前20项，按每行5个数的形式输出。Fibonacci数列：F1=1,F2=1,Fn=Fn-1+Fn-2（n=2）Dim a As Integer, b As IntegerDim c As Integer, i As Integera = 1: b = 1: i = 3Print a, b,Do While （i 1000 Then
16、_ next iabc:Print s7以下程序段的输出结果是_。num=0While num=2 num=num+1 Print numWend8以下程序段的输出结果是_。Dim j As Integer,s As IntegerDo3写出下面程序的运行结果。 For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j print x s=s+j j=j+1Loop Until j=5s四、程序阅读题1写出下面程序的运行结果。Dim s As Integer,k As Integer,m As Integer,n As Integer s=1 For m=1 To 3 For n=m To 3 For k=n To m Step -1 s=s*k Next k,n,m Print s2写出下面程序的运行结果。
