精选最新版2020VisualBasic程序设计期末完整考试题库288题(含答案)

b) 面向对象 c) 事件驱动

d) 可视化 答案：C

二、填空题

194．表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是_____。 答案：0

195．语句a%=3.14156:Print a%的输出结果是______。 答案：3

%表示整数，相当于dim a as integer .长整数符号是&

196．Visual Basic 的对象是________和_______的总称。 答案：窗体#控件

197．图片框的默认属性为_______（提示：该题只填写英文，如Name事件，只写Name即可)。 答案：PICTURE

198．表达式32/2^3-3*2^2+4^2的值是_______。 答案：8

199．下列程序用来将变量X，Y的值互换，请补充完程序（提示：该题答案中不要出现空格)。

T=Y:______:X=T 答案：Y=X

200．有如下程序，该程序的运行结果是______。 A=20 : b=10

print a>b 答案：TRUE

201．有如下程序，该程序的运行后输出的结果是______。 Private sub Command1_Click() i=\ a=Mid(i,4,3) b=\ Print a ; b

End Sub 答案：AAABBB

202．设有数组声明语句：Option base 1 dim A(3,-2 to 1)，则数组A中有_____个元素。 答案：12

203．有数组定义语句：dim I(99,99) as Integer，则数组I中共包含有______个元素。 答案：10000

204．执行下面的程序段后，s的值为______。

S=5

For I=2.6 To 4.9 Step 0.6 s=s+1

Next I 答案：9

205．程序运行工程中，清除BMP图片框中的图片应使用语句 。答案： cls

206．下面程序段的输出结果是_____。 P=0:s=0 Do

p = p+2 s = s+p

Loop While p<11

Print \答案：s=42

207．VB程序设计中三种基本结构分是：_______结构、选择结构和_______结构。 答案：顺序#循环

208．.80 语句x=inputbox(\请输入数据\输入12345,则x的值为______类型的数据 （提示：例如整型，Int；字符型，String)。 答案：String

209．x,y中至少有一个变量小于变量z的VB表达式为x

210．在Visual Basic中按文件的访问方式不同, 可以将文件分为顺序文件、随机文件和______。 答案：二进制文件

211．以下语句的执行结果是____。 I = Format(5459.4, \ Print I 答案：5,459.40

212．当程序开始运行，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的____属性设置为空。 答案：TEXT

213．可用窗体的___（9)_ 方法在窗体中显示文字。 Print

214．窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时， 将图片加载到图片框中，然后图片框以每1秒钟一次的速度向窗体的右下 脚移动，每次向左、向下移动150twip。请填空：

Private Sub Form_load( )

（1) =loadPicture(“c:\\pic\\ball.ico”) （2) .Interval= (3) End Sub

Private Sub Timer1_Timer( ) Static x , y As Integer x=x+150 y= (4)

Picture1.Move （5) End Sub

答案: (1) picture1.picture (2) Timer1 (3) 1000 (4) y+150 (5) x,y

215．Visual Basie 提供了列表框控件， 当列表框中的项目较多、超过了列表框的长度时， 系统会自动在列表框边上加一个______。 答案：滚动条

216．设置窗体的 属性，可在窗体上显示图片。答案：Picture

217．以下的程序用来输出100到200间不能被3整除的数字，请补充完该程序。 Private Sub Commmand1_Click() Dim x As Integer x = 100

Do Until x > _____ If x Mod 3 <> 0 Then Print x End If x = x + 1 Loop

End Sub 答案：200

218．Private Sub Form_Click() Static SUM As Integer I = 1

Do While I<=10 SUM = SUM + I I = I + 1 Loop

Print SUM End Sub

运行程序，第一次单击窗体：

第二次单击窗体：

219．双精度数用字母_____将尾数与指数分开。 答案：D

220．表达式3/6*5的值是_______。 答案：2.5

221．在Select case 结构中应至少包含一个______子句。 答案：CASE

222．有如下Sub过程: Sub ind(a As Integer) Static x As Integer x = x+a Print x; End Sub

以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。 Private Sub Command1_Click() Ind(2)

End Sub 答案：2

223．货币类型的数据小数点的位置是固定的，精确到小数点后_____位。 答案：4

224．以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。

If X___2=____ Then Print X 答案：MOD 0

225．当对窗体中的对象进行_____操作时，Visual Basic 就会显示该对象的代码窗口。 答案：双击

到 15 (总共 103 个记录) 第一页 前一页 下一页 最后一页

226．给定年份，下列程序用来判断该年是否闰年，请补充完该程序。

提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。 Private Sub Command6_Click() Dim y As Integer

y=InputBox(\请输入年号\

If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) Then Print \是闰年\Else Print \是普通年份\