ቤተ መጻሕፍቲ ባይዱ
End Sub 5.执行下面程序，单击窗体后，窗体上显示的第一行结果是 ，第三行结果是 。 Private Sub Form_Click() Dim Mystr As String Dim Mystr1 As String Dim Mystr2 As String Mystr1 = "B" For i = 1 To 3 Mystr2 = LCase(Mystr1) Mystr1 = Mystr1 & Mystr2 Mystr = Mystr & Mystr1 Print Mystr Mystr1 = Chr(Asc(Mystr1) + i) Next End Sub 6、执行下面程序，窗体上显示的结果是什么？
Dim m As Integer, n As Integer, k As Integer n=20:k=1 For m=1 to n Step k Print m n=n-1 k=k+2 Next Print n,k
7、下面程序段执行完毕，窗体上显示的结果是什么？
Dim b As Integer,k As Integer b=1 For k=1 To 6 b=b*k If b>=20 Then Exit For Else k=k+1 End If Next k Print k,b
计算机软件技术基础（1）复习题
一、判断题 1、VB编译生成的可执行文件不再需要工程文件与各个模块文件。（ ） 2、VB程序中不区分代码字符的大小写。（ ） 3、当把浮点数赋给整型变量时，会出现溢出错误。（ ） 4、在同一作用域中，变量名不能重复。（ ） 5、日期时间型变量既可以保存日期值，也可以保存时间值，但不能同 时保存日期和时间值。（ ） 6、框架控件和形状控件都不能响应用户的鼠标单击事件。（ ） 7、当定时器控件的Interval属性值为0时，会连续不断地发送Timer事 件。（ ） 8、一个菜单项是不是分隔条，由Caption属性决定。（ ） 9、可以通过语句代码使一个单选框组中的所有单选框均为不选定状 态。（ ） 10、Windows下窗体的子菜单最多有5级。（ ） 答案： F T T T F F F T T T 二、单项选择题 1.多个语句可以书写在同一行上，但它们之间要加 A）： B）； C) ， D）、 2.在窗体Form1的Click事件过程中有以下语句： Label1.Caption=”Visual BASIC” 设标签的原Caption属性值为默认值，则该语句执行之后该标签控件 Name属性和Caption属性的值分别为 A）“Label1”、“Visual BASIC” B）“Label1”、“Caption” C）“Label”、“VisualBASIC” D）“Label”、“Label1” 3.下面几对数据类型中，哪一对所占的内存大小一致： A）Integer、Single B) Integer、Boolean C) Date、Single D) Long、Variant 4.下面哪条语句可以正确地声明一个动态数组： A) Dim A(n) As Integer B) Dim A(1 To n) As Integer C) Dim A() As Integer D) Dim A( , ) As Integer 5.如果在模块的声明段中有Option Base 0语句，则在该模块中使用Dim
答案：1、 207.36 4 3、5 0 0 5、Bb
2、12 6 6 4、abcdef fedcba BbCcEe
BbCc
6、1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 0 41
7、7，15
8、 15，54 四、程序设计 1.编写递归函数求1+2+3+……+m的值。 2.设一窗体上有文本框、按钮、列表框各一个，在文本框中输入任意一 个英文句子（包含多个词），单击按钮，程序将该句分解为单词，每一 个单词作为一个条目添加到列表框中。 3．编程计算20＋21＋22＋23＋···＋210的值。 4．一个共有15个台阶的楼梯，从下面走到上面。一次只能迈一个台阶 或两个台阶，并且不能后退，走完这个楼梯共有多少种方法。 答案： 1、Private Function Add(n As Integer) As Integer If n = 1 Then Add = 1 Exit Function End If Add = m + Add(m - 1) End Function 2、Private Sub Command1_Click() Dim str1 As String Dim str2 As String Dim int1 As Integer
a(7,3 To 5)声明的数组有 个元素 A) 21 B) 28 C) 24 D)32 6.菜单控件没有下面哪一个属性： A)Caption B）Checked C）Enabled D）Value 7.一个菜单项是不是一个分隔条，是由： 属性决定的 A) Name B）Caption C）Enabled D）Visible 8.以下面哪种方式打开的文件，只能读不能写： A) Input B）Output C）Random D）Append 9.下列函数中，返回值是字符串的是： A) Chr B) InStr C) Val D) Asc 10.调用一次Circle方法，不能绘制出下面哪个图形： A）圆弧 B）椭圆弧 C）扇形 D）螺旋线 答案： B A B C C B B A A D 三、读程序，写结果 1.下面程序段执行完毕，窗体上显示的结果是什么？ Dim b As Single,k As Integer b=0.2 p=100 n=0 Do p=p*(1+b) n=n+1 Loop until p>200 Print p,n 2.下面程序段在窗体上输出的是什么？ Dim i As Integer, j As Integer Dim k As Integer For i=1 To 10 Step 3 For j=0 to 10 If j>=5 Then i=i+4:Exit For j=j+1 k=k+1 Next If i>8 Then Exit For Next Print i,j,k
3.下面程序段在窗体上输出的是什么？ Dim a(4,4) As Integer Dim nc As Integer,nr As Integer Dim I as Integer,j As Integer ,k As Integer Nc=4:nr=1:I=1:j=1 For k=1 To 16 A(I,j)=k If I<nc And j=nr Then I=I+1 ElseIf I=nc And j<nc Then J=j+1 ElseIf I>nr And j=nc Then I=I-1 ElseIf I=nr And j>nr+1 Then Nc=nc-1 Nr=nr+1 End If Next Print a(4,2),a(3,3),a(2,2) 4.运行下面的程序，单击窗体后，从键盘上输入字符串“abcdef”，窗 体上显示 的第一行结果为 ，第二行输出结果为 。 Private Sub Try(c As String, d As String) Dim a As String Static i As Integer i=i+1 a = Mid(c, i, 1) If a <> "" Then Try c, d d=d&a End Sub Private Sub Form_Click() Dim s1 As String, s2 As String s1 = InputBox("输入一个字符串") Try s1, s2 Print s1 Print s2
8、对下面程序，单击窗体后，在文本框Text1和Text2中显示的内容分 别是什么？
Provate Sub Form_Click()
Dim x As Integer, y As Integer X = 1 : Y =5 Do While x < 15 Y=y + x X=x+2 Loop Text1.Text=x Text2.Text=y End Sub
3、2047
Private Sub Form_Click() Dim x As Integer, sum As Integer x = 1: y = 1 For I = 1 To 10 x=x*2 sum = sum + x Next Print sum End Sub 4、至少有119级台阶 Private Sub Command1_Click() Dim int1 As Integer Do If int1 Mod 2 = 1 And int1 Mod 3 = 2 And int1 Mod 5 = 4 _ And int1 Mod 6 = 5 And int1 Mod 7 = 0 Then Text1.Text = int1 Exit Do End If int1 = int1 + 1 Loop End Sub
str1 = Text1.Text int1 = 1 Do Do While Mid(str1, int1, 1) <> " " And int1 <= Len(str1) str2 = str2 & Mid(str1, int1, 1) int1 = int1 + 1 Loop List1.AddItem str2 str2 = "" int1 = int1 + 1 Loop While int1 <= Len(str1) End Sub