《天津科技大学Visual Basic程序设计样卷及答案.ppt》由会员分享，可在线阅读，更多相关《天津科技大学Visual Basic程序设计样卷及答案.ppt（27页珍藏版）》请在三一办公上搜索。
1、一、选择题（共20 分，每小题1 分）1.以下方法不能打开代码窗口的操作是（）A.双击窗体上的对象B.双击工程资源管理窗口中的窗体文件图标C.单击工程资源管理窗口中“查看代码”按钮D.执行“视图”菜单中的“代码窗口”命令2.以下四组标识符，命名正确的一组是（）A.name Int test5 my_carB.bike year?_sina moneyC.str hello Integer top$D.Cap 6Yuan myname%buy3.如果要让文本框可以输入或显示多行文本，需要将文本框的（）属性值设置为True。A.Text B.MultiLine C.ScrollBars D.Ena
2、bled4.要强制显示声明变量，可在窗体模块或标准模块的声明中加入语句（）A.Option Base 0 B.Option ExplicitC.Option Base 1 C.Option Compare,B,A,B,B,5.表达式100+100&100 的值是（）A.300 B.200100 C.100100100 D.1002006.算术表达式(sin(x)+a)/(bc+de)的VB 表达式是（）A.Sin(x)+a/b c+deB.Sin(x)+a/b c+d*eC.(Sin(x)+a)/(b c+d*e)D.Sin(x)+a/(b c+d*e)7.下列语句的输出结果是（）Dim su
3、m As Integersum=12.56Print sumA.12.56 B.12 C.报错 D.13,B,C,D,8.下列表达式可以判断变量str 为大写字母字符的是（）A.AstrZ B.AstrZC.A=str=Z D.A=str And str=Z9.下列程序执行后，X 的值是（）Dim X As IntegerX=2Select Case XCase 0 To 3X=X+1Case Is 3X=X+2Case 2X=X+3End Select A.2 B.3 C.4 D.5,D,B,10.下列程序的执行结果为（）Dim I As IntegerFor I=10 To 20 Step
4、 2I=I+3Next IPrint IA.21 B.23 C.25 D.2711.下列程序的执行结果是（）Dim A As Integer,B As IntegerA=0B=3While A 10A=A+BWendPrint A;BA.12 3 B.A B C.9 3 D.12 4,C,A,12.定义静态数组时，其下标允许是（）A.变量 B.常量C.算术表达式（可含变量）D.常量、变量、算术表达式（可含变量）13.下列程序的执行结果是（）Dim X(5)As IntegerDim i As IntegerFor i=1 To 5X(i)=i*iNext iPrint X(5)A.0 B.5
5、C.16 D.25,B,D,14.下列程序的执行结果是（）Dim X(3,5)As IntegerDim i As Integer,j As IntegerFor i=1 To 3For j=1 To 5X(i,j)=i*jNext jNext iPrint X(3,4)6 B.8 C.10 D.1215.下列关于函数过程的叙述正确的是（）A.函数名只能被赋值一次B.函数名没有赋值，也有值被返回C.函数名可以不遵循变量的命名规则D.定义函数的类型是指定义形参的类型,D,B,16.如果要设置Timer 控件的时间间隔为0.5 秒，那么需要设置Interval 属性值等于（）A.5000 B.50
6、0 C.50 D.517.在属性窗口中输入组合框控件的列表项时，使用（）键换行。A.Enter B.Alt+EnterC.Ctrl+Enter D.Shift+Enter18.下列语句可用于设置复选框Check1 控件为选中状态的语句是（）A.Check1.Value=True B.Check1.Value=FalseC.Check1.Value=0 D.Check1.Value=1,B,C,D,19.当单击滚动条控件右侧的按钮一次，滚动块移动一定的刻度值，决定此刻度值的属性是（）A.Max B.Min C.SmallChange D.LargeChange20.下列程序的执行结果为（）Dim
7、 X As Integer,Y As IntegerDim i As IntegerX=0For i=1 To 3For Y=1 To iX=X+YNext YNext iPrint X;YA.18 4 B.18 3 C.10 3 D.10 4,C,D,二、填空题（共10 分，每小题1 分）1.以下程序用于判断输入的年份是否是闰年，请将程序补充完全。Private Sub Command1_Click()Dim y As Integery=Val(InputBox(请输入年份)If _ ThenPrint y&年为闰年ElsePrint y&年不是闰年End IfEnd Sub,(y Mod
8、4=0 And y Mod 100 0)Or(y Mod 400=0),2.程序代码如下：Dim A As IntegerA=20If A 5 ThenPrint A5ElseIf A 10 ThenPrint A10ElsePrint A=;AEnd If程序执行的结果为_,A5,3.以下程序用于计算1+1/2+1/3+.，直到最后一项小于0.00001，请将程序补充完全。Dim n As Long,s As Singlen=1s=0While _s=s+1/nn=n+1Wend4.以下程序用于计算S=1+3+32+33+.+310的值，请将程序补充完全。Dim S As Long,T As
9、 Integer,I As IntegerS=0T=1For I=0 To 10_S=S+TNext I,1/n=0.00001,T=3 I,5.程序代码如下：Dim a(10)As IntegerDim i As IntegerFor i=1 To 10a(i)=2*iNext iFor i=1 To 10Print a(i);Next i程序执行的结果为_,2 4 6 8 10 12 14 16 18 20,6.以下程序用于对数组进行从小到大的排序，请将程序补充完全。Dim a(10)As IntegerDim i As Integer,j As Integer,t As IntegerF
10、or i=1 To 9For j=1 To 10-iIf _ Thent=a(j)a(j)=a(j+1)a(j+1)=tEnd IfNext jNext i,a(j)a(j+1),7.以下程序用于计算10 行10 列的二维数组的元素之和，请将程序补充完全。Dim a(10,10)As IntegerDim i As Integer,j As Integer,S As IntegerS=0For i=1 To 10For j=1 To 10a(i,j)=i*jNext jNext iFor i=1 To 10For j=1 To 10_Next jNext i,S=S+a(i,j),8.程序代码
11、如下：Sub Fact(ByVal a As Integer,ByRef b As Integer)a=a+10b=b+5End SubPrivate Sub Command1_Click()Dim X As Integer,Y As IntegerX=10Y=20Fact X,YPrint X;YEnd Sub单击Command1 后程序执行的结果为_,10 25,9.以下程序用于计算n!=1!+2!+.+m!，请将程序补充完全。Function Fact(m As Integer)As LongDim i As IntegerDim t As Long,S As LongS=0t=1For
12、 i=1 To m_S=S+tNext iFact=SEnd Function,m,n=1,t=t*i,10.程序代码如下：Dim i As Integer,j As Integer,k As Integerk=0For i=0 To 10 Step 3If i 8 Then Exit ForFor j=1 To 3k=k+1Next jNext iPrint k=;k程序执行的结果为_,k=9,Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer a=Val(Text1.Text)b=Val(Text2.
13、Text)c=a+b Text3.Text=Str(c)End Sub,Private Sub Command1_Click()Dim r As Integer,h As Integer Dim V As Single r=Val(Text1.Text)h=Val(Text2.Text)V=3.14*r*r*h Text3.Text=Str(V)End Sub,Private Sub Command1_Click()Dim x As Integer,y As Integer x=Val(Text1.Text)If x=10 And x 20 Then y=x 2+1 Else y=3*x+3
14、End If Text2.Text=Str(y)End Sub,Private Sub Command1_Click()Dim m As Integer m=Val(InputBox(输入m的值)If m Mod 3=2 And m Mod 5=3 Then Print 满足条件 Else Print 不满足条件 End IfEnd Sub,Private Sub Command1_Click()Dim x As Integer,s As Long Dim n As Integer n=Val(InputBox(输入n的值)s=0 For x=1 To n s=s+x*x*x*x+3*x*x*
15、x+2*x*x+1 Next x Print S=;sEnd Sub,Private Sub Command1_Click()Dim n As Integer Dim a As Integer,b As Integer,c As Integer For n=100 To 999 a=n 100 b=(n Mod 100)10 c=n Mod 10 If a+b+c=5 Then Print n End If Next nEnd Sub,Private Sub Command1_Click()Dim a(100)As Integer Dim i As Integer,s As Integer R
16、andomize(Time)For i=1 To 100 a(i)=Int(Rnd*10)Next i For i=1 To 100 Text1.Text=Text1.Text&a(i)Next i s=0 For i=1 To 100 s=s+a(i)Next i Text2.Text=Str(s)End Sub,Private Sub Command1_Click()Dim a(5,5)As Integer,i As Integer,j As Integer,max As Integer Randomize(Time)For i=1 To 5 For j=1 To 5 a(i,j)=Int
17、(Rnd*10)Next j Next i For i=1 To 5 For j=1 To 5 Text1.Text=Text1.Text&a(i,j)Next j Text1.Text=Text1.Text&vbCrLf Next i max=a(1,1)For i=1 To 5 For j=1 To 5 If max a(i,j)Then max=a(i,j)End If Next j Next i Text2.Text=Str(max)End Sub,Function Fact(x As Integer)As Long Dim s As Long s=2*x*x+3*x+1 Fact=s
18、End FunctionPrivate Sub Command1_Click()Dim x As Integer Dim s As Integer x=Val(Text1.Text)s=Fact(x)Text2.Text=Str(s)End Sub,10.编写Sub 过程，对包含10 个整型元素的一维数组进行加密，加密规则为：先将数组反序，再将每个元素加10，例如：加密前数组为1 2 3 4 5 6 7 8 9 10，加密后数组为20 19 1817 16 15 14 13 12 11。过程定义形式如下：Sub Encrypt(a()As Integer)。,Sub Encrypt(a()As Integer)Dim i As Integer Dim t As Integer For i=1 To 10 2 t=a(i)a(i)=a(11-i)a(11-i)=t Next i For i=1 To 10 a(i)=a(i)+10 Next iEnd Sub,
