当前位置：首页 > vb练习题及答案
24. 下列程序执行后，整型变量n的值为（ ）B n=0 for I=1 to 20
if I mod 4=0 then n=n+1 next I
A、5050 B、5 C、6 D、33 25.下面哪些控件是输入控件______。A A、文本框 B、标签 C、列表框 D、滚动条
26．窗体初始化程序应写在_______事件中。A A、Load B、UnLoad C、Active D、GotFocus
27．在Visual Basic中，布尔型变量用来_____。D A、存放需要计算的数字。
B、存放日期、时间或同时存储以上两种数据。 C、存储长文本信息，最多可包含1.2GB字符。 D、存放性别、婚否等逻辑信息。
28． 通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowOpen , 显示____对话框。C
A、保存文件 B、字体 C、打开文件 D、颜色
29． 通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowFont , 显示____对话框。B
A、保存文件 B、字体 C、打开文件 D、颜色
30．计时器的Interval属性是用来设置一时间间隔，单位是_____。D A、1秒 B、1毫秒 C、1/100秒 D、1/1000秒
31. VB 在计算三角函数时，所使用的度量单位是：B A、角度制 B、弧度制 C、角度制 D、弧度制都可以 32. 设置窗体的背景色用属性_______。C
A、Caption B、Font C、BackColor D、Hight 33. 设置窗体中显示的文字前景色用属性_______。A A、ForColor B、Font C、BackColor D、Hight 34．设置窗体左上角到屏幕左边距离的属性是______。A A、Left B、Top C、Width D、Name 35．计算数x的算术平方根的函数是___。D A、SIN(x) B、ABS(x) C、STR(x) D、SQR(x)
36．计算数x的余弦函数值的函数是______。D A、SIN(x) B、ABS(x) C、STR(x) D、COS(x) 37．数学式|xy|+2(d+e)改写为VB表达式为______。C A、|xy|+2(d+e) B、-x*y+2*(d+e) C、ABS(x*y)+2*(d+e) D、|x*y|+2*(d+e) 38．在IF语句的条件中，60≤F≤100应写成：D A、60<=F<=100 B、60=
40．在VB中数据类型为单精度浮点型的―数据类型保留字‖是。C A、integer B、long C、single D、string
41．在VB中数据类型为布尔型的―数据类型保留字‖是。A A、boolean B、double C、single D、string 42．下列变量名正确的是。C
A、xx-4 B、 4XX C、 xx_y1 D、 y/t 43．函数SIN(X)称为。C
A、算术平方根函数 B、绝对值函数
C、正弦三角函数 D、字符串转换为数值函数 44．下列说法不正确的是。B
A、FOR语句中可省略STEP及步长值,默认步长值为1 B、循环变量只能用数值简单变量 C、步长值可正可负
D、初值、终值、步长值可以是数值表达式
45．为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为。A A、Picture1.Picture = LoadPicture(\B、Picture1.Picture =\
C、Picture1.image = LoadPicture(\D、Picture1.image =\
46．使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可画点。A
A、pset B、line C、circle D、move
47．使用print方法可在图片框中进行文本的输出(如：picture1.print ―信息技术‖)，用_____方法可使图片框移动位置。D
A、pset B、line C、circle D、move
48． 双击工具箱中某个控件，该控件将____。C
A、被选中 B、出现在窗体左上角 C、出现在窗体中部 D、没变化
49.为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是。D A、ControlBox B、MinButton C、Enabled D、MaxButton 50. 执行下面的程序段后，x 的值为 。C x=0 For i=1 To 10 x=x+i\\5 Next i
A、5 B、6 C、7 D、8
二、程序设计题
51．编写一个程序，输入任意两个整数，输出其中较大的数。 界面如下：
当用户输入两个整数后，单击―输出‖按钮，则输出正确结果。 参考答案：
Private Sub Command1_Click() Dim a, b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a >= b Then Label3.Caption = a Else
Label3.Caption = b End If End Sub
52. 设计一程序，计算1*2+2*3+3*4+4*5+…+N*（N+1）的和。 程序界面如下：
当用户输入N后，单击―求1*2+2*3+3*4+4*5+…+N*（N+1）‖按钮后，输出正确结果。 参考答案：
Private Sub Command1_Click() Dim i, n, s As double n = Val(Text1.Text)
s = 0 For i = 1 To n s = s + i * (i + 1) Next i
Label1.Caption = s End Sub
53．设计一个从键盘接收三条边的值，测试能否组成三角形，若能，则计算所组成三角形面积，否则，给出相应信息的程序，运行之后界面如下。
参考答案：
Private Sub Command1_Click() Dim a, b, c, d As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text)
If (a + b) > c And (a + c) > b And (b + c) > a Then d = (a + b + c) / 2
Label3.Caption = Sqr(d * (d - a) * (d - b) * (d - c)) Else
Label3.Caption = \此三边构不成三角形！\End If End Sub
Private Sub Command2_Click() End End Sub
54．设计一个简易播放器，要求可播放*.wav文件、*.avi文件、*.mpg文件，运行界面如下：
参考答案：
Private Sub Command1_Click()
CommonDialog1.Filter = \文件|*.wav|.avi文件|*.avi|.mpg文件|*.mpg\CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName End Sub
Private Sub Command2_Click()
本文作者：...共分享92篇相关文档
