vb课后答案vb试题

《Visual Basic程序设计》试题 院（系）： 班级： 学号： 姓名： 注意事项: 1．本 试卷 云南省高中会考试卷哪里下载南京英语小升初试卷下载电路下试卷下载上海试卷下载口算试卷下载 共五大题，满分100分，考试时间120分钟。 2．所有答案请答在答案栏上，答在其它地方无效。 一．填充题 （每题1分，共10分） 1．要从字符串“Visual BASIC 6.0”中截取子字符串“BASIC”可使用函数（ ）。 2．产生从整数a到整数b之间的随机整数使用的表达式（ ）。 3．将x四舍五入到百位（例如，若x=12374.52应舍入成12400），可使用表达式（ ）。 4．表达式：True Or Not 5–3 <= 4的值为（ ）。 5．表示条件“年份Year能被4整除，但不能被100整除”的逻辑表达式为（ ）。 6．除了在设计阶段通过修改Picture属性装载图形外，还可以使用（ ）函数在运行程序时装载图形。 7．在程序运行期间，用户在文本框输入的内容，存放到文本框的（ ）属性中。 8. 已知数组元素A(1)=4,A(2)=2,A(3)=1,A(4)=3，则A(A(1)+A(2)-A(4))的值为 ( )。 9．当文本框的Text属性被修改时，会发生( )事件。 10.假定在用户界面上有多个控件，要在程序中把光标设置在接受输入的控件上，应使用的方法是（ ）。 二．单项选择题 （每题1.5分，共30分） 1．执行语句:Print Spc(8), "basic" 其结果"basic"字符串在第（ ）列开始显示。 a) 10 b) 11 c) 14 d)15 2．以下关于表达式的运算顺序，错误的说法是 ( )。 a) 函数运算最优先 b) 最后进行的是逻辑运算 c) 关系运算的优先级比算术运算的优先级高 d) 取负运算的优先级比求幂运算的优先级低 3．s、t、r为字符串变量，它们的值分别是"xyz"、"321"和"66"，执行下列语句后，显示的结果为 （ ）。 s = s + r: r = r + t: Print s;spc(2);r a) xyz66 387 b) "xyz66" "387" c) "xyz66" "66321" d) xyz66 66321 4. 假设A1，A2，A3是布尔变量，其值依次为：True，True，False，下列表达式的值为 False的是 （ ）。 a) A1 And A2 Or A3 b) True Or Not（7 – 3 <= 4 ） c) Not A1 And Not A2 d) Not A1 Eqv Not A2 5．以下不正确的单行结构条件语句是（ ）。 a) If x>y Then Print " x>y " b) If x Then t = t * x c) If x Mod 3=2 Then ? x d) If x<0 Then y = 2*x-1: Print x End If 6．下列Case语句中正确的是（ ）。 a) Select Case x Case 1 Or 3 Or 5 y=x*x-1 Case Is >10 y=x+1 End Select b) Select Case x Case 1, 3, 5 y=2*x-1 Case Is x <=1 Y=2*x+1 End Select c) Select Case x Case Is <=0 y=x-1 Case Is >0 y=Sqr(x)+1 End Select d) Select Case x Case x>=1 And x<= 5 y=x-1 Case Is >10 y=x*x+1 End Select 7．设有程序段： Dim k% k=3 Do until k=0 k=k-1 Loop 对上述循环语句描述正确的是（ ）。 a) 循环体1次也不执行 b) 循环体执行1次 c) 循环体执行3次 d) 循环体执行无限次 8. 关于循环语句的说法，正确的是 ( )。 a) Do While … Loop是先执行循环体再判断条件是否成立 b) Do Until … Loop是先执行循环体再判断条件是否成立 c) Do … Loop While 是先执行循环体再判断条件是否成立 d) Do … Loop Until 是先判断条件再决定是否执行循环体 9．下面程序段中循环语句的循环次数是（　 ）。 For x=7 To 1 Step -3 Print x Next x a) 0 b) 3 c) 4 d) 7 10．使用文本框Text1接受用户输入的口令时，可使用以下选项( )，屏蔽在文本框中输入的内容。 a) Text1.Value = "*" b) Text1.Text = "*" c) Text1.PasswordChar = "*" d) Text1.Caption = "*" 11．要把窗体缩小为其大小的一半（非最大化状态下），可使用以下（ ） 语句。 a) Form1 = Form1/2 b) Form1.Width = Form1.Width / 2 : Form1.Height = Form1.Height / 2 c) Form1.Left = Form1.Left / 2: Form1.Top = Form1.Top / 2 d) Form1.Size = Form1.Size / 2 12. 列表框不具有的属性是( )。 a) Name b) Text c) Sorted d) Value 13．复选框的Value属性值为2时，表示( )。 a)没有选择该复选框 b)选中该复选框 c)该复选框被禁止使用 d)该复选框获得焦点 14．下列控件中（ ）不能接受GotFocus和LostFocus事件。 a) 命令按钮 b) 组合框 c) 复选按钮 d) 计时器 15．设置计时器的时间间隔可以通过（ ）属性来实现。 a) Value b) Text c) Max d) InterVal 16．设有数组说明语句：Dim　b（-１To 1，-1 To２），则数组b中元素的个数是（　 ）。 a) 12 b) 15 c) 16 d) 20 17. 下列关于数组和记录的说法 ( ) 是不正确的。 a) 记录是由可变数目元素组成的结构类型数据 b) 记录中的元素可以具有不同的数据类型 c) 数组是由固定数目同类元素按一定顺序排列而成的结构类型数据 d) 记录是由固定数目元素组成的结构类型数据 18．已知有说明语句 Type dat year As Integer month As Integer End Type Type emp name As String﹡8 sex As String*1 birthday As dat End Type Dim person As emp 并假设变量person所表示职工的出生日期是“1968年6月”，则下列正确的赋值语句是（ ）。 a) year=1968：month=6 b) birthday.Year=1968：birthday.month=6 c) person.year=1968：person.month=6 d) person.birthday.year=1968：person.birthday.month=6 19. 关于变量，不正确的说法是( )。 a) 同一模块中不同级的变量可以同名 b) 局部变量只能在它说明的过程中使用 c) 在窗体模块中各过程之外用Dim语句定义的变量全都是全局变量 d) 不同模块中定义的变量可以同名 20. （ ）不能在 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块中定义。 a) 事件过程 b) 子过程 c) 函数过程 d) 公共过程 三.阅读下面程序，写出程序的运行结果。(共26分) 1．Private Sub Command1_Click() Dim x As Integer, y As Integer For x=1 To 10 Step 3 Select Case x*2 Case Is<8 y = x + 8 Case 2 y = x * 2 Case 8 y = x * 3 Case Else y = x + 10 End Select Print x, y Next x End Sub 2．Public Sub P(ByVal x as Integer, ByRef y As Integer) x = x + y y = 2 * x + y End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer x = 10 y = 20 P y,x Print x,y P x,y Print y,x End Sub 3．Private Sub Command1_Click() Dim a%, x%, y% x = 1: y = 1 : a = 1 Do Until a > 8 If a Mod 2 = 1 Then y = y * a Else x = x * a End If a = a + 1 Loop Print “x=”;x,”y=”; y End Sub 4．Private Sub Command1_Click() Dim A(1 To 10) As Integer, x as Integer For x = 1 To 10 If x>3 Then A(x) = x Mod 5 Else A(x) = x * 2 Mod 9 End If Next x For x = 1 To 9 A(x) = A(x) + A(x+1) Next x For x=1 To 10 Print A(x), If x Mod 4=1 Then Print Next x End Sub 5．Private Sub Command1_Click() Dim x as Integer, y As Integer y = 1 For x=1 To 10 Do While y<28 y = y + x If y>20 Then Exit Do Loop If y>25 Then Exit For Next x Print x, y End Sub 四．程序填空题（每空2分，共20分） 1．下面事件过程的功能是：求满足1*2*…*n> 10000的最小n值。 Private Sub Command1_Click() Dim n%, t& n = 0: t = 1 While （1） n = n + 1 t = （2） Wend Print Tab(8); "最小n值为："; n End Sub 2． 在窗体设置一个名为List1的列表框，下面程序的功能是：当程序运行后，单击窗体，输出的结果为： 计算机学院 电子与信息学院 自动化学院 Private Sub Form_Click() Dim i% For i = 0 To （3） If i Mod 2 = 0 Then Print （4） End If Next i End Sub Private Sub Form_Load() List1.AddItem "计算机学院" List1.AddItem "建筑学院" List1.AddItem "电子与信息学院" List1.AddItem "机械学院" List1.AddItem "自动化学院" End Sub 3. 下面事件过程的功能是通过调用过程swit,调换数组中数值的存放位置,即b(1)与b(8)的值互换, b(2)与b(7)的值互换……, b(4)与b(5)的值互换。 Private Sub command1_Click() Dim b(1 to 8) as integer For i=1 to 8 b(i)=i Next Call swit(_________) For i=1 to 8 Print b(i); Next i End sub Sub sewit (c() as integer) n=____________ for i=1 to n/2 d=c(i) c(i)=c(n) c(n)=d _____________ next i End Sub 4. 下面事件过程的功能是从学生分数顺序文件D:\file1.dat中读取各个学生的分数，并求该班的最高分数。 Private Sub command1_Click() Dim score!, s!，max! Open "d:\file1.dat" For Input As #3 s = 0：max=0 While （9） （10） if score>max Then max=score Wend Print "最高分数为："; max Close #3 End Sub 五．程序设计题（每题7分，共14分） 1．编写一个Command1_Click事件过程：产生20个100到999之间的随机数，按生成顺序保存在数组中，并按每行5个数的格式输出。用户任意输入一个数，如果该数出现在这20个数中，则输出该数的生成序号；否则，输出“没有找到”的信息。 2．求s= 的值。要求定义求f= 函数过程，由命令按钮的单击事件过程输入m、n和p的值，调用f函数过程求s的值，然后在窗体上显示计算结果。 � EMBED Excel.Sheet.8 ��� 9 _1149434125.xls Sheet1 题 号 一 二 三 四 五 总 分 得 分 评卷人 科 目 C程序设计 计算机组成原理 总 分 得 分 题 号 1 2 3 4 5 6 7 8 9 10 答 案 题 号 11 12 13 14 15 16 17 18 19 20 答 案 题 号 Ⅰ Ⅱ 总 分 得 分 评卷人 Sheet2 Sheet3 _1149620298.unknown _1096095365.unknown