北京千橡网景科技发展有限公司：
文网文[号··京公网安备号·甲测资字·文化部监督电子邮箱：wlwh@·
文明办网文明上网举报电话： 举报邮箱：admin1@&&&&&&&&&&&&&&&&您的网站因未备案或涉及违规被禁止访问，请及时联系实际接入商办理备案.一道vb 题目，求大神帮助解答-中国学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
> 信息中心 >
一道vb 题目，求大神帮助解答
来源：互联网 发表时间： 6:54:38 责任编辑：鲁晓倩字体：
为了帮助网友解决“一道vb 题目，求大神帮助解答”相关的问题，中国学网通过互联网对“一道vb 题目，求大神帮助解答”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:一道vb 题目，求大神帮助解答，具体解决方案如下：解决方案1：
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 中国学网 版权所有
京ICP备号-1 京公网安备02号二、程序设计题
51．设计一个程序，输入一个正整数N，求1＋2＋3＋…+N的和。界面如下：
当用户输入N后，单击“计算”按钮，则输出1＋2＋3＋…+N的和。
参考答案：
Private Sub Command1_Click()
Dim i, a, b As Integer
a = Val(Text1.Text)
For i = 1 To a
Label3.Caption = b
Private Sub Command2_Click()
52．编一个求圆柱的侧面积的程序：
当用户输入半径与高后，单击“侧面积为”按钮，输出正确结果。
参考答案：
Private Sub Command1_Click()
Dim r, h, c, s As Single
r = Val(Text1.Text)
h = Val(Text2.Text)
c = 2 * 3.14159 * r
Label3.Caption = s
53．设计一个计时程序。该程序用户界面如图所示，由一个文本框（text1），和两个按钮：命令按钮1（command
l）、命令按钮2（command
2）组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，接停止按钮，则计时停止。单击窗口则退出。（请阅读下面程序，编写出时钟控件的计时事件中的程序代码。）
Dim i, t As Integer
Private Sub Command1_Click()
Timer1.Interval = 1000
Timer1.Enabled = True
Private Sub Command2_Click()
Timer1.Enabled = False
Private Sub Form_Click()
Private Sub Timer1_Timer()
&&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&&&&&&
参考答案：
Text1.Text = t & "秒"
54．编制一个能在窗体中画出由用户指定圆心位置和半径大小的圆的程序,要求单击“绘圆”按钮时绘圆，单击“清除”按钮时清除绘图区中的图形及文本框中的内容。运行界面如下：
参考答案：
Private Sub Command1_Click()
Dim x, y, r As Single
x = Val(Text1.Text)
y = Val(Text2.Text)
r = Val(Text3.Text)
Picture1.Circle (x, y), r
Private Sub Command2_Click()
Picture1.Cls
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
&信息技术教师培训自学部分VB练习题二
一、选择题
1．在 Visual Basic环境下，当写一个新的 Visual Basic程序时，所做的第一件事是B
　& A、编写代码　 B、新建一个工程　 C、打开属性窗口　 D、进入VB环境
2．若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置D
Text属性值为*　&&&&&
B、Caption属性值为*
　& C、password属性值为空　 D、Passwordchar属性值为*
3．能够将文本框控件隐藏起来的属性是B
　& A、Clear B、Visible C、Hide D、New
4．获得系统日期的函数是C
　& A、 data$　 B、 time$　 C、 date$　 D、
5．下列运算符号中属于算术运算符的是_____。B
C、=&& D、&=
6．Visual Basic属于:A
A、& 高级语言B、汇编语言C、机器语言D、低级语言。
7．一个程序可以有_____窗体。C
A、1个& B、2个& C、多个D、无穷多个
8．事件是指_____。B
A、对象的外部特征。
B、预先设置好的能被对象识别的特定动作。
C、对象的属性。
D、对象原来就包含的内部函数或程序。
9．VB在运行中使用_______来临时存储数据。B
A、常量&&&&
B、变量&&&
C、函数&& D、方法
10．布尔型又称_____。B
A、数值型&&
B、逻辑型&&&&
C、字符串型&& D、整型
11．下列运算符号中属于关系运算符的是_____。D
C、AND&& D、&=
12．关于高级语言，下列叙述正确的是。B
A、不必编译即可执行& B、可读性最高&
C、难学难记&& D、执行速度最快 。
13．下列各组控件都具有Caption属性的是（ ）C
A、窗体、文本框 B、标签、定时器 C、窗体、标签 D、文本框、定时器
14．下列运算结果中，值最大的是（ ）D
B、3/4&& C、4 mod
3&& D、3 mod 4
15．Visual Basic语言中，下列那一项数值运算符号是正确的。(C)
A、＠表示加 B、～表示减 C、*表示乘 D、&表示除。
16．下面程序执行的结果是________。C
Private Sub Form_Click()
A$ = "123": B$ = "456"
C = Val(A$) + Val(B$)
Print C \ 100
A、123 B、3 C、5 D、579
17．函数Sqr(9) 的值是（ ）B
A、9& B、3&
C、“3”& D、“9”
18．下列控件中可用于接受用户输入文本，又可用于显示文本的是（ ）B
B、TextBox 控件
D、CommandButton 控件
19．以下程序段执行后整型变量度n 的值为（ ）B
for L=1 to 20 step 5
B、34&& C、15&
20．如果要改变窗体的标题,需要设置窗体对象的_____属性。B
A、Name B、Caption C、BackColor D、BorderStyle
21．Visual Basic提供的标签控件（LABEL）可具有功能是B
A、 输入文本 B、显示文本 C、计时 D、 取得时间
22．以下选项中，不是 Visual Basic控件的是C
A、文本框　　 B、定时器　　 C、窗体　 　 D、命令按钮
23．若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为（ ）D
if a&5 then
C、1&&& D、5
24. 下列程序执行后，整型变量n的值为（ ）B
for I=1 to 20
if I mod 4=0 then n=n+1
C、6&&& D、33
25.下面哪些控件是输入控件______。A
A、文本框&&&
C、列表框&&&
26．窗体初始化程序应写在_______事件中。A
A、Load&&&&
C、Active&&&
D、GotFocus
27．在Visual Basic中，布尔型变量用来_____。D
A、存放需要计算的数字。
B、存放日期、时间或同时存储以上两种数据。
C、存储长文本信息，最多可包含1.2GB字符。
D、存放性别、婚否等逻辑信息。
28． 通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowOpen , 显示____对话框。C
A、保存文件&&&&
B、字体&&&
C、打开文件&&&
29． 通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowFont , 显示____对话框。B
A、保存文件&&&&
B、字体&&&
C、打开文件&&&
30．计时器的Interval属性是用来设置一时间间隔，单位是_____。D
A、1秒&&&&&&&&&
C、1/100秒&&&&&
D、1/1000秒
在计算三角函数时，所使用的度量单位是：B
A、角度制&
&&B、弧度制&
& C、角度制&&
D、弧度制都可以
32. 设置窗体的背景色用属性_______。C
A、Caption&&&&
B、Font&&&&
C、BackColor&&&&
33. 设置窗体中显示的文字前景色用属性_______。A
A、ForColor&&&
B、Font&&&&
C、BackColor&&&&
34．设置窗体左上角到屏幕左边距离的属性是______。A
A、Left&&&
C、Width&&&
35．计算数x的算术平方根的函数是___。D
A、SIN(x)&&&
B、ABS(x)&&
C、STR(x)&&&&
36．计算数x的余弦函数值的函数是______。D
A、SIN(x)&&&
B、ABS(x)&&&
C、STR(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=&F=&100&&&
C、60≤F≤100&&&
D、F&=60 AND F&=100
39． 写成QBasic算术表达式为：B
&&&&&&&&&&&&&&&
B、SQR（X）+ABS（Y+3）&
&&&&&&&&&&
40．在VB中数据类型为单精度浮点型的“数据类型保留字”是。C
A、integer&&
B、long&&&&&
C、single&&&&&
41．在VB中数据类型为布尔型的“数据类型保留字”是。A
A、boolean&&
B、double&&&&&
C、single&&&&&
42．下列变量名正确的是。C
A、xx-4&&&&
B、 4XX&&& C、
xx_y1&&& D、
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("picfile.jpg")
B、Picture1.Picture ="picfile.jpg"
C、Picture1.image = LoadPicture("picfile.jpg")
D、Picture1.image ="picfile.jpg"
46．使用print方法可在图片框中进行文本的输出(如：picture1.print
“信息技术”)，用_____方法可画点。A
A、pset&&&
B、line&&&
C、circle&&&
47．使用print方法可在图片框中进行文本的输出(如：picture1.print
“信息技术”)，用_____方法可使图片框移动位置。D
A、pset&&&
B、line&&&
C、circle&&&
48． 双击工具箱中某个控件，该控件将____。C
A、被选中&&&&&
B、出现在窗体左上角&
C、出现在窗体中部&&&
49.为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是。D
A、ControlBox B、MinButton C、Enabled D、MaxButton
50. 执行下面的程序段后，x 的值为 。C
For i=1 To 10
A、5&&&&&&&
B、6&&&&&&&&
C、7&&&&&&&&&
二、程序设计题
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
Label3.Caption = b
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)
For i = 1 To n
s = s + i * (i + 1)
Label1.Caption = s
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) &
d = (a + b + c) / 2
Label3.Caption = Sqr(d * (d - a) * (d - b) * (d - c))
Label3.Caption = "此三边构不成三角形！"
Private Sub Command2_Click()
54．设计一个简易播放器，要求可播放*.wav文件、*.avi文件、*.mpg文件，运行界面如下：
参考答案：
Private Sub Command1_Click()
CommonDialog1.Filter =
".wav文件|*.wav|.avi文件|*.avi|.mpg文件|*.mpg"
CommonDialog1.ShowOpen
MMControl1.FileName = CommonDialog1.FileName
Private Sub Command2_Click()
<mand = "open"
<mand = "play"
Private Sub Form_Load()
MMControl1.Visible = False
&信息技术教师培训自学部分VB练习题三
一、选择题
1．要求改变窗体的标题时，应当在属性窗口中改变的属性是。A
Caption　&&&
B、Name　&&&&&&&
C、Text　&&&&&&&
2.如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该为：A
A、1000&&&&&&&&&
B、100&&&&&&&
&&&C、10&&&&&&&&&&&
3．能够改变复选框中背景颜色的属性是C
Value　&&&&&
B、Fontcolor　&&
C、Backcolor　&& D、Font
4．下列运算符号中属于字符串连按运算符的是_____。D
A、—&&&&&
B、*&&&&&&
C、AND&&&&
5. Visual Basic规定窗体文件的扩展名是B
　A、 .for　 B、 .frm　 C、 .vbp　 D、 .bas
6．程序、相关的数据及说明文档构成了软件，其中_____是主体。B
A、相关的数据&&&
B、程序&&&
C、说明文档&&&
D、前三项都是。
7．工具箱窗口提供了一些常用的可视化对象类型，称为____。A
A、控件&&&&&&&&&
B、窗体&&&
C、对象&&&&&&&
8．要使定时器的Timer事件每秒钟触发10次，需设置定时器的Interval属性值为。C
A、1&&&&&&
B、10&&&&&
C、100&&&&
9．下列运算符号中属于字符串连接运算符的是____。B
A、—&&&&&
B、+&&&&&&
C、AND&&&&
10．布尔型数据的值____。C
A、有无数多个&&&&&&&&
B、只有1和-1两种&&
C、只有True和False两种&&&&
D、以上都不对
11．下列运算符号中属于逻辑运算符的是_____。C
A、—&&&&&&
C、AND&&&&
12．在Visual Basic语言中，表达式 2+3*3-2*3/2的值是。(C)
A、６&&&&&&
C、８&&&&&
13．下列各组控件具有相同默认事件的是（ ）B
A、窗体、文本框&&
B、标签、按钮&&
C、窗体、标签&& D、文本框、按钮
14．下列关系运算结果为“true”的是（ ）C
A、“1”+2=“12”&&&&&
B、“1”+“2”=“3”
&2=“12”&&&&
D、“1” & “2”=“3”
15．在Visual Basic代码中，将多个语句合并在一行上的并行符是( ) 。B
A、 撇号（’） B、 冒号（：） C、 感叹号（！） D、 问号（?）
16．若要求从文本框中输入密码时在文本框中只显示#号，则应当在此文本框的属性窗口中设置D
A、 Text属性值为“#”&&
&B、Caption属性值为“#”
C、password属性值为空　& D、Passwordchar属性值为“#”
17．下列表达式不合法的是（ ）D
A、“123”+“abc"&&&&&&&&
B、123& "abc"
C、1+2\3&&&&&&&&&&&&&&&&&
D、[3*(4+5)-6]/7
57、以下程序段执行后，整型变量n 的值为（ ）A
n=year\4+year\400-year\100
A、495&&&&&
B、505&&&&&
C、500&&&&
18．当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不会接收到的?C
A、MouseDown&&
B、MouseUp&&
C、Load&&&&
19．窗体的BackColor属性用于设置窗体的____。C
A、高度&&&&&&&
B、宽度&&&&&
C、背景色&& D、前景色
20．下列关于算法的叙述不正确的是（ ）C
A、算法是解决问题的有序步骤
B、算法具有确定性、可行性、有限性等基本特征
C、一个问题的算法都只有一种
D、常见的算法描述方法有自然语言、图示法等
21．某文本框获得控制焦点时产生的事件是B
　& A、LostFocus　　 B、GotFocus　　 C、Point　 　
22. 若要设置定时器控件的定时时间，需设置的属性是A
　　A、Interval　&&&
B、Value　　&&&
C、Enabled　& D、Text
23. 存文件时，窗体以_____（窗体文件）储存。B
A、*．Prg&&&&&&&
C、*．Vbp&&&&&&&
24．文本框和标签的区别是 ______。B
A、文本框中的数据在运行时可以随意改动，而标签中的内容在运行时不可以改动。
B、文本框可以获得输入焦点，而标签无法获得输入焦点。
C、文本框和标签即可以作为输入控件又可以作为输出控件。
D、在文本框和标签中都可以以多行方式显示。
25．结束当前程序的语句是_________。D
A、Quit&&&&&&&&&
26．在Visual Basic中，数值型变量用来_____。A
A、存放需要计算的数字。
B、存放日期、时间或同时存储以上两种数据。
C、存放人名、地址等文字信息。或电话号码、邮政编码等不需要计算的数字信息。
D、存放性别、婚否等信息。
27． 通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowSave , 显示____对话框。A
A、另存文件&&&&
B、字体&&&
C、打开文件&&&
28． 通过执行通用对话框的方法，可以将其表示为不同的对话框。方法ShowPrinter , 显示____对话框。C
A、保存文件&&&&
B、字体&&&
C、打印&&&&&&&
29．要在图像框中显示图象文件信息，需要设置的属性是____。A
A、Picture
&&&&&B、Name&&&
C、Caption&&&&
D、Backcolor
30.&& 下列哪一个不是
VB所提供的算术动算符：A
31. 设置窗体上字体的样式用属性_______。B
A、Caption&&&&
B、Font&&&&
C、BackColor&& D、Hight
32. 设置窗体的标题栏文字用属性_______。C
A、ForColor&&&
B、Font&&&&
C、Caption&&
&&&&D、Hight
33．设置窗体名称的属性是______。D
A、Left&&&
C、Width&&&
34．计算数x的绝对值的函数是______。B
A、SIN(x)&&&&&
B、ABS(x)&&
C、STR(x)&&&&&&&
35．将数字字符串x转换为数值的函数是______。B
A、SIN(x)&&&&&
B、VAL(x)&&
C、STR(x)&&&&&&&
36．c与x和y的平方和的差改写为VB表达式为______。B
A、c-x*x+y*y&&&&
B、c-(x^2+y^2)&&&
C、c-x2+y2&&&&
D、 (x^2+y^2) - c
37．在IF语句的条件中，X≤-10或X&0应写成：B
A、X&=-10 AND
B、X&=-10 OR
C、X≤-10 OR
X&0&&&&&&&
D、X≤-10或X&0
38．在VB中数据类型为整型的“数据类型保留字”是。A
A、integer&&
B、long&&&&&
C、single&&&&&
39．在VB中数据类型为双精度浮点型的“数据类型保留字”是。B
A、integer&&
B、double&&&
C、single&&&&&
40．在VB中数据类型保留字“boolean”表示的数据类型是。C
A、整型&&&&&
B、长整型&&&
C、布尔型&&&&&
D、字符串型
41．函数SQR(X)称为。A
A、算术平方根函数&&&&&&&&&&&&&&
B、绝对值函数
C、正弦三角函数&&&&&&&&&&&&&&&&
D、字符串转换为数值函数
42．数值表达式运算的先后顺序为。A
A、(& )→函数→乘方→* /→+
B、函数→(& )→乘方→* /→+ -
C、函数→乘方→(& )→* /→+
D、(& )→乘方→函数→* /→+ -
43． 表达式4+5 \ 6 * 7 / 8 Mod& 9 的值是。A
A、4&&&&&&&&&&&&
5&&&&&&&&&&&
C、6&&&&&&&&&&&
44．由语句txtname.text="AB",可知txtname一定是_____控件。A
A、文本框控件&&&
B、标签控件&&&&&
C、图象框控件&& D、命令按钮
45．使用print方法可在图片框中进行文本的输出(如：picture1.print
“信息技术”)，用_____方法可画线。B
A、pset&&&
B、line&&&
C、circle&&&
46．使用print方法可在图片框中进行文本的输出(如：picture1.print
“信息技术”)，用_____方法可清除图片框中的内容。C
A、pset&&&
B、line&&&
C、cls&&&&&&
47．VB中工程文件的扩展名为。A
A、.vbp&&&
B、.frm&&&
C、.ds&&&&&
48.设a=2,b=3,c=4,d=5,下列表达式的值是。B
a&b AND c&=d OR
A、True&&&
B、False&&
C、-1&&&&&&
49.表达式4+5-6*7/8 Mod 9的值是。A
A、4&&&&&&
B、5&&&&&&
C、6&&&&&&&
50.下列控件中，哪一个是外部控件。D
A、PictureBox&&
B、CommandButton&&
C、Timer&& D、CommonDialog
二、程序设计题
51．设计一个程序，输入一个长方体的长宽高，计算并输出其体积V，界面如下：
当用户输入长宽高，后单击“计算”按钮，则输出结果。
参考答案：
Private Sub Command1_Click()
Dim a, b, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Label5.Caption = a * b * c
Private Sub Command2_Click()
52．编写一个程序，输入任意三个整数，输出其中最小的自然数。界面如下：
当用户输入三个自然数后，单击“最小自然数为”按钮，则输出正确结果，请阅读下面程序，把所缺的代码写出来。
Private Sub Command1_Click()
Dim a, b, c, d As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a &= b Then
&&&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&&&&&&
Label3.Caption = d
参考答案：&&&&&
If d & c Then
53．设计一个求ax2 +bx+c=0解的程序，用户界面如下：
参考答案：
Private Sub Command1_Click()
Dim a, b, c, d, x1, x2 As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If a && 0 And d &=
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Label3.Caption = "x1=" & x1 &
Chr(13) & "x2=" & x2
Label3.Caption = "此方程无实根！"
Private Sub Command2_Click()
54．编一程序，将阿拉伯数字0、1、2、……、8、9转换为汉语大写数字零、壹、贰、……、捌、玖，程序界面如下：
参考答案：
Dim a As Integer
Dim b As String
a = Val(Text1.Text)
Select Case a
End Select
Label1.Caption = b
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。}