VB期末考试试题.doc.docVIP

VB期末考试试题 1．下列代数式的Visual Basic表达式是（ ）。 二、填空2．设x为大于零的实数，则大于x的最小奇数的Visual Basic表达式是_ IIF(int(x) mod 2=0,int(x)+2,int(x)+1)。3． a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是:__ a1=a3 xor a2=a3。若a1和a2之中没有一个与a3的值相等，则相应的表达式是：__ a1a3 and a2a3___。? 4．设init的初值为10，则由下列循环语句控制的循环次数是__6__。????? Do While? init=5??????? init=init-1????? Loop5.在Visual Basic 中，变量从它的作用范围来看，可分为?_全局变量___、_模块级变量_____和___过程级变量__ 三种。6．语句Picture1.Circle(800,1000),500的含义是?_以圆心为（800，1000）半径为500的圆_。7．声明定长为10个字符变量Sstr的语句为：_ Dim Sstr as String*10_。 三、程序阅读题，阅读下列程序书写结构。 ?程序1??? Private Static Sub Command1_Click()Dim x As Integer, s As Integerx = Val(InputBox(请输入一个正整数＝))If x 5 Then??? s = s * xElse???????????? s = s + xEnd IfText1.Text = s= + Str(s)End Sub程序运行时连续三次单击Command1，且设输入的数是5，2和4时，分别写出文本框text1.text的值。 结果：（ s=5 s=10 s=40 ）b)?程序2??? Private Sub Form_Click()Form1.Clsw = 3For k = 2 To 6 Step 2?????????? Form1.Print w=; w, k=; k?????????? w = w + 1Next kForm1.Print w=; w, k=; kEnd Sub写出程序运行时单击窗体后，Form１上输出结果。 结果为：（ w=3 k=2 W=4 k=4 W=5 k=6 W=6 k=8 ）????? c)?程序3Rem 在窗体的通用声明区声明两个模块级变量a和y??????? Dim a As Integer, y As IntegerPrivate Sub Form_Load()Open c:\a1.dat For Output As #1Close #1End SubPrivate Sub Command1_Click()?Open c:\a1.dat For Append As #1?Call aa(5)?y = y + a?Print #1, y=; y, a=; a: Close #1End SubSub aa(i As Integer)? x = 1? Do Until x i???? a = a + x???? x = x + 3? LoopEnd Sub写出程序运行时连续三次单击Command1后，a1.dat文件的最终结果为：（ y=5 a=5 yy=15 a=10 yy=30 a=15 ） 五、?程序填空题（每小题9分，共18分） a)?程序说明:利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表， 如图１所示。单击“开始“命令按钮，秒表开始计时 ，单击“结束“命令按钮， 秒表结束计时，并在标签框显示运行时间，如“运行了０小时２分１０秒“。 （假设对象的属性都在程序代码中设定）。Dim x As LongDim h As Integer, m As Integer, s As Integer Private Sub Form_Load()Form1.Caption = 动态秒表（小时：分：秒）Command1.Caption = 开始[S]Command2.Caption = 结束[E]Label1.Alignment = 2?? 居中对齐Label1.Caption = 0:0:0timer1.Interval =__1000______Timer1.Enabled = Falsex = 0End SubPrivate Sub Command1_Click()_ t