资源描述
单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,主页,第,7,章,习题讨论,退出,单选题,多选题,(,无,),填空题,编程题,补充,1.,假设已通过下列,Sub,语句定义了,SubA,过程。若要调用该过程，可以采用,_,语句。,Sub,SubA(x,As Integer,）,A.Print SubA(20)B.Call SubA(50000),C.y=SubA(700)D.,SubA,32000,答案：,D,单选题,2,下面程序运行的结果是,Private Sub,Form_Load,(),Show,Dim x As Integer,x1 As Integer,x=5:x1=4,Call,Ktest(x,x1),Print x;x1;,Call,Ktest(x,x1),Print x;x1,End Sub,Sub,Ktest(ByVal,t As Integer,t1 As Integer),t=t+5,t1=,t1,+t*2,End Sub,A.10,14,25,39 B.5 24,44,5,C.5,24,5,44 D.10,24,15,44,答案：,C,在窗体上已经建立了一个文本框,Text1,和一个命令按钮,(Command1),，运行程序后单击命令按钮，则在文本框,Text1,中显示的内容是,Dim a As Integer,模块级变量,Private Sub Command1_Click(),Dim b As Integer,c As Integer,a=2:b=-1,Call,MySub(b,c),c=c+,b:Call,MySub(c,b),a=a+c,Text1.Text=a+b+c,End Sub,Sub,MySub(ByVal,x,y),Dim b As Integer,a=x+a+b,x=2*a+x,y=x+1,End Sub,答案：,10,填空补充题,填空补充题,1.,设计一个能检查是否为数字字符串的通用过程，调用该过程检验三个文本框中输入的字符是否都是数字。如果都是数字，则求这三个数字之和并把结果显示在第,4,个文本框中。,编程第,1,题,编程及上机调试,第,1,题,Private Sub Command1_Click(),Dim a As String,b As String,c As String,a=Trim(Text1.Text),b=Trim(Text2.Text),c=Trim(Text3.Text),If,che(a,)And,che(b,)And,che(c,)Then,Text4.Text=,Val(a,)+,Val(b,)+,Val(c,),Else,Text4.Text=,存在非数字字符,End If,End Sub,Function,che(x,As String)As Boolean,che,=True,For k=1 To,Len(x,),s=,Mid(x,k,1),If s 9 Then,che,=False,Exit For,End If,Next k,End Function,2.,编写一个标准模块，该模块包含一个能比较,3,个数大小和送回大数的,Sub,过程。调用该过程来求,6,个数的最大数。利用文本框控件数组和文本框来分别输入数据和输出最大数。,编程及上机调试,第,2,题,Private Sub Command1_Click(),a=Val(Text1.Text),b=Val(Text2.Text),c=Val(Text3.Text),d=Val(Text4.Text),e=Val(Text5.Text),f=Val(Text6.Text),Call,max(a,b,c,m),Call,max(m,d,e,m),Call,max(m,f,f,m),Text7.Text=m,End Sub,标准模块文件,Sub,max(x,y,z,m),比较三个数大小并返回大数,If x y Then m=x Else m=y,If m z Then m=z,End Sub,编写程序时一定要考虑到程序的优化问题,.,衡量程序优化的基本标准是采用好的算法、结构合理、简明易读、运行时间短和占用内存空间少。下面给出一个求解某个问题的程序，但运行时间比较长，请读者修改程序，并求出正确的答案。,把,324,表示为,3,个加数之和,使第一个加数能被,23,整除,第二个加数能被,19,整除,第三个加数能被,43,整除,求出这,3,个加数等于多少,?,编程及上机调试,Private Sub,Form_Load,(),show,For a=1 to 324,For b=1 to 324,For c=1 to 324,if(a Mod 23=0)And(b Mod 19=0)And(c Mod 43=0)_,And(,a+b+c,=324)Then,Print“,这三个加数是：”,;,a,b,c,End if,Next,c,b,a,End Sub,Private Function,fun(ByVal,m As Integer),If m Mod 2=0 Then,fun=2,Else,fun=1,End If,End Function,Private Sub Command1_Click(),Dim i As Integer,s As Integer,s=0,For i=1 To 5,s=s+,fun(i,),Next,Print s,End Sub,程序运行后，单击命令按钮，在窗体上显示的是,A)6B)7C)8D)9,答案：,B,单选题,（,29,）,在窗体上画出一个名称为,command1,的命令按钮，然后编写如下通用过程和命令按钮的事件过程：,(34),在窗体上画一个名称为,command1,的命令按钮，然后编写如下程序：,Dim,sw,As Boolean,Function,func(X,As Integer)As Integer,If X 20 Then,Y=X,Else,Y=20+X,End If,func,=Y,End Function,单选题,Private Sub,Form_MouseDown(Button,As Integer,Shift As Integer,X As Single,Y As Single),sw,=False,End Sub,Private Sub,Form_MouseUp(Button,As Integer,Shift As Integer,X As Single,Y As Single),sw,=True,End Sub,Private Sub Command1_Click(),Dim intnum As Integer,intnum=InputBox(),If,sw,Then,Print,func(intnum,),End If,End Sub,程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入,25,，则程序的执行结果为,A),输出,0B),输出,25C),输出,45D),无任何输出,答案：,D,单选题,Public Sub,fun(a,()As Integer,x As Integer),For i=1 To 5,x=x+,a(i,),Next i,End Sub,在窗体上画一个名称为,text1,的文本框和一个名为,command1,的命令按钮。然后编写如下的事件过程：,Private Sub Command1_Click(),Dim arr(5)As Integer,n As Integer,For i=1 To 5,arr(i,)=i+1,Next,fun,arr,n,Text1.Text=,Str(n,),End Sub,程序运行后，单击命令按钮，则在文本框中显示的内容是,A)30B,）,25C)20D)15,答案：,C,单选题,（,35,）设有如下通用过程,(11),在名称为,form1,的窗体上画一个文本框，其名称为,text1,在属性窗口中把该文本框的,multiline,属性设置为,true,，然后编写如下的事件过程：,Private Sub,Form_Click,(),Open d:textsmtext1.txt For Input As#1,Do While Not _,Line Input#1,aspect$,whole$=,shole,$+aspect$+Chr$(13)+Chr$(10),Loop,Text1.Text=whole$,Close#1,Open d:testsmtext2.txt For Output As#1,Print#1,_,Close#1,End Sub,上述程序的功能是，把磁盘文件,smtext1.txt,的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件,smtext2.txt,。请填空。,答案：,eof(1),Whole$,填空题,Private Sub,Form_Load,(),Show,For i=1 To 11,Print Tab(20-i);,For j=1 To i-1,If j 9 Then i=k,Print,Chr(k,+47);,Next i,Next j,End Sub,
展开阅读全文