《 VB程序设计基础 》期中练习一

《 VB 程序设计基础 》期中练习一一、单选题（40%，每小题2分）1．在设计窗体时双击窗体的任何地方，可以打开的窗口是___。

A ．代码窗口B ．属性窗口C ．工程资源管理器窗口D ．工具箱窗口 2．Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是 。

A ．属性、控件和方法B ．属性、事件和方法C ．窗体、控件和过程D ．控件、过程和模块3．函数Int( 6 * RND )+1的值是在哪个范围内的整数？___A ． [0,6]B ． [0,7]C ． [1,6]D ． [1,7]4．代数式 的VisualBasic 表达式是 。

A ．a+b/Sqr(c+Log(a))+c/dB ． (a+b)/Sqr(c+Log(a))+c/dC ．(a+b)/(Spr(c+Log(a))+c/d)D ． (a+b)/(Sqr(c+Log(a))+c/d)5．数学式子sin25°写成VB 表达式是 。

A ．Sin25B ．Sin （25）C ．Sin （25*3.14/180）D ．Sin(25°) 6．下面 是日期型常量。

A ．"12/19/99"B ．12/19/99C ．#12/19/99#D ．{12/19/99}7．若x 是一个正实数，对x 的第3位小数四舍五入的表达式是______。

A ．0.01*Int(x+0.005)B ．0.01*Int(100*(x+0.005))C ．0.01*Int(100*(x+0.05))D ．0.01*Int(x+0.05) 8．哪一条语句执行后将会删除文本框Text1中的文本？A ．Text1.Text=””B ．Text1.SelText=””C ．Text1.ClearD ．Text1.SelText.Clear９．下列函数中，返回值是字符串的是 。

A ．ChrB ．InStrC ．ValD ．Asc 10．可作为Visual Basic 变量名的是 。

A ．show B ．Alphi_1 C ．2E3 D ．4D+2 11．不正确的VB 常量是 。

A ．123! B ．&HABC C ．&O18 D ．#1-1-03# 12．变量X# 占 字节内存容量。

A ．2 B ．4 C ．6 D ．8 13．声明符号常量应该用关键字 。

A ．StaticB ．ConstC ．PrivateD ．Variantdc a c ba +++ln14．下列各组函数中，函数值类型相同的一组是。

A．Exp(x)、Chr$(x)、Lcase$(x) B．Asc(x)、Str$(x)、Rtrim$(x)C．Sgn(x)、Int(x)、Len(x) D．Fix(x)、Left$(x)、Ucase$(x)15．设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为。

A．“中华民国” B．“中国人民”C．“中共人民” D．“人民共和”16．先声明Dim X As String*10，再赋值X=”浙江”，最后Len(X)的值为。

A．10 B．2 C．4 D．1217．判断变量x、y中有且只有一个为0的下列各表达式中，正确的是。

A．x=0 Or y=0 and x*y<>0 B．x+y=0 and x*y<>0C．x+y<>0 and x*y=0 D．x=0 and y<>018．函数Val("&H100") 的返回值为。

A．256 B．0 C．100 D．6419．由For k=35 To 0 Step 3 ：Next k 循环语句控制的循环次数是。

A．0 B．12 C．1 D．1120．在Select Case A 的语句中，判断A是否大于等于10小于等于20的是。

A．Case A>=10 And A=<20 B．Case 10 To 20C．Case Is 10 To 20 D．Case Is >=10 And Is =<20二、程序填空题（10%，每空2分）请在以下两题的__( 1 )__、…、__( 5 )__处填入适当的内容，将程序补充完整。

1．【程序说明】Form_Click过程用于求一组整数数据中的最大值和最小值，数据的个数由InputBox函数输入。

Private Sub Form_Click()Dim n As Integer, i As Integer, x As IntegerDim Max As Integer, Min As Integern = Val( InputBox(“请输入数据的个数”) )x = Val( InputBox(“请输入数据”) )Max = x__( 1 )__For i = 1 To __( 2 )__x = Val( InputBox(“请输入数据”) )If x > Max Then Max = x__( 3 )__Next iPrint “最大值:”;Max, ”最小值:”; MinEnd Sub2．【程序说明】设计一个用计算机给出三位整数加法的练习程序，程序界面如下图所示，单击一次，则在文本框中产生一题。

其中已将文本框的Multiline属性设置为True，并设置垂直滚动(ScrollBars=2)；程序中Chr(13)+Chr(10)表示回车换行符。

注：程序中有两个（4）空，算作一个空，答题时都要写出。

Private Sub Form_Load()Text1.text=””End SubPrivate Sub Command1_Click()Dim x As Integer, y As Integerx = __( 4 )__ '产生三位随机数y = __( 4 )__ '产生三位随机数Text1.Text = __( 5 )__ & x & "+" & y & "=( )" & Chr(13) & Chr(10) End Sub三、程序阅读题（20%，每小题4分）1．阅读下列程序，程序运行后，单击窗体，写出窗体上输出结果。

【程序】Private Sub Form_Click()Dim k As Integer, i As IntegerFor i = 100 To 140If i Mod 5 = 0 Then Print i;k = k + 1If k Mod 10 = 0 Then PrintNext iEnd Sub2．下面程序运行时，单击窗体后，写出窗体上输出结果。

【程序】Private Sub Form_Click()Dim x As String, y As String, d As IntegerDim i As Integer, n As Integerx = "abcdefghijkl"d = Asc("a") - Asc("A")n = Len(x)y = ""i = 1Do While i <= ny = y + Chr(Asc(Mid(x, i, 1)) - d)i = i + 3LoopPrint "y="; yEnd Sub3．下列程序运行后，单击命令按钮后输出的结果是什么？【程序】Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integern = 6For i = 1 To nPrint Tab(n - i + 1);For j = 1 To iPrint Trim(Str(j));Next jFor j = i - 1 To 1 Step -1Print Trim(Str(j));Next jPrintNext iEnd Sub4．下面程序运行时，单击窗体后，请写出窗体上显示的结果。

【程序】Private Sub Form_Click()Dim i As Integer, sum As Longsum = 0For i = 1 To 6 Step 2sum = sum + iNext iPrint sum; iEnd Sub5．下面程序运行时，单击窗体后在输入对话框中输入13，写出窗体上程序运行结果。

【程序】Private Sub Form_Click()Dim x As Integer, y As Stringx = Val(InputBox(""))y = ""Do While x <> 0y = x Mod 2 & y x = x \ 2 Loop Print y End Sub四、程序设计题（30%，每小题10分）1．程序界面设计如下左图，运行程序后在Text1中输入数据（设输入数据类型是整形），单击“计算”按钮（Command1）由下右图给出的公式计算函数f(x)的值，并将结果输出到Label3标签框中；单击“结束”按钮（Command2）则结束程序运行。

分别编写这两个命令按钮的单击事件Command1_Click()和Command2_Click()。

2．编制Form_Click 事件过程求s 的值，直到最后一项的绝对值小于10-6为止，结果在窗体上显示。

3．随机产生30个两位正整数，求它们的偶数平均数和奇数平均数，结果输出在窗体上，代码编写在Form_Click 事件过程中。

⎪⎩⎪⎨⎧>+-<=<=-+⋅-<-+=5log 5552sin 5123)(102x x x x x x x x x x f x++⨯-+-⨯+⨯-⨯=+)1()1( (4313212111)n n s n。