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

1、 VB程序设计基础 期中练习一一、单选题（40%，每小题2分）1在设计窗体时双击窗体的任何地方，可以打开的窗口是_。A代码窗口B属性窗口C工程资源管理器窗口D工具箱窗口2Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是 。 A属性、控件和方法 B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块 3函数Int( 6 * RND )+1的值是在哪个范围内的整数？_A 0,6 B 0,7 C 1,6 D 1,74代数式 的VisualBasic表达式是 。 Aa+b/Sqr(c+Log(a)+c/d B (a+b)/Sqr(c+Log(a)+c/d C(a+b)/(S

2、pr(c+Log(a)+c/d) D (a+b)/(Sqr(c+Log(a)+c/d)5数学式子sin25写成VB表达式是 。ASin25 BSin（25）CSin（25*3.14/180） DSin(25)6下面 是日期型常量。A12/19/99 B12/19/99C#12/19/99# D12/19/997若x是一个正实数，对x的第3位小数四舍五入的表达式是_。A0.01*Int(x+0.005)B0.01*Int(100*(x+0.005)C0.01*Int(100*(x+0.05)D0.01*Int(x+0.05)8哪一条语句执行后将会删除文本框Text1中的文本？AText1.Tex

3、t=”BText1.SelText=”CText1.ClearDText1.SelText.Clear下列函数中，返回值是字符串的是 。AChrBInStrCValDAsc10可作为Visual Basic变量名的是 。AshowBAlphi_1C2E3D4D+211不正确的VB常量是 。A123!B&HABCC&O18D#1-1-03#12变量X# 占 字节内存容量。A2B4C6D813声明符号常量应该用关键字 。AStaticBConstCPrivateDVariant14下列各组函数中，函数值类型相同的一组是 。AExp(x)、Chr$(x)、Lcase$(x)BAsc(x)、Str$(

4、x)、Rtrim$(x)CSgn(x)、Int(x)、Len(x)DFix(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)的值为 。A10 B2 C4 D1217判断变量x、y中有且只有一个为0的下列各表达式中，正确的是 。Ax=0 Or y=0 and x*y0 Bx+y=0 and x*y0Cx+y0 and x*y=0 Dx=0 and y01

5、8函数Val(&H100) 的返回值为 。A256 B0 C100D6419由For k=35 To 0 Step 3 ：Next k 循环语句控制的循环次数是 。 A0 B12 C1 D1120在Select Case A 的语句中，判断A是否大于等于10小于等于20的是 。ACase A=10 And A=10 And Is = Max Then Max = x _( 3 )_ Next iPrint “最大值:”;Max, ”最小值:”; MinEnd Sub 2【程序说明】设计一个用计算机给出三位整数加法的练习程序，程序界面如下图所示，单击一次，则在文本框中产生一题。其中已将文本框的M

6、ultiline属性设置为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三、

7、程序阅读题（20%，每小题4分）1阅读下列程序，程序运行后，单击窗体，写出窗体上输出结果。 【程序】Private Sub Form_Click()Dim k As Integer, i As IntegerFor i = 100 To 140 If i Mod 5 = 0 Then Print i; k = k + 1 If k Mod 10 = 0 Then Print Next iEnd Sub2下面程序运行时，单击窗体后，写出窗体上输出结果。【程序】Private Sub Form_Click() Dim x As String, y As String, d As Integer D

8、im i As Integer, n As Integer x = abcdefghijkl d = Asc(a) - Asc(A) n = Len(x) y = i = 1 Do While i = n y = y + Chr(Asc(Mid(x, i, 1) - d) i = i + 3 LoopPrint y=; yEnd Sub3下列程序运行后，单击命令按钮后输出的结果是什么？【程序】Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integern = 6For i = 1 To n Print Tab(

9、n - i + 1); For j = 1 To i Print Trim(Str(j); Next j For j = i - 1 To 1 Step -1 Print Trim(Str(j); Next j PrintNext iEnd Sub4下面程序运行时，单击窗体后，请写出窗体上显示的结果。 【程序】Private Sub Form_Click() Dim i As Integer, sum As Long sum = 0 For i = 1 To 6 Step 2 sum = sum + i Next i Print sum; iEnd Sub5下面程序运行时，单击窗体后在输入对话

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