VB操作题顺序结构操作题
VB6—顺序结构操作题一、操作题，每题10分，6题共60分
【第1题】
打开“Z:\12\工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：在Text1中输入一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。
如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。
Private Sub Command1_Click()
Dim h As Integer
Dim m As Integer
Dim s As Integer
Dim ss As Integer
ss = Val(①)
h = ②
m = (ss - h * 3600) \ 60
s = (ss - h * 3600) Mod ③
Label1.Caption = Str(h)
Label2.Caption = Str(m)
Label3.Caption = Str(s)
End Sub
【第2题】
打开文件“考生文件夹\26\工程1.vbp”，完善Command1_Click及Command2_Click事件代码并保存。
在窗体上有一个“标签”控件Label1和两个“命令按钮”控件，命令按钮command1上显示“上移”，另一个命令按钮command2上显示“下移”。
实现功能：
（1）设置标签控件Label1属性，显示文字为“欢迎进入算法与程序设计”；
（2）单击“command1”时，Label1上移100个单位；单击“command2”，Label1下移100个单位。
【第3题】
打开文件“考生文件夹\32\工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：从键盘上输入一个三位数，然后将它逆序输出到对应文本框中。
例如输入为“123”时，输出结果为“321”。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim bai As Integer
Dim shi As Integer
Dim ge As Integer
a = Val(①)
bai = a \ 100
shi = (a - bai * 100) \ 10
ge = a Mod 10
② = ge * 100 + shi * 10 + bai
③ = Str(b)
End Sub
【第4题】
打开“Z:\36\工程1.vbp”，完善Command1_Click事件代码并保存。
实现功能：给出三角形的三边边长a，b，c（输入保证能构成三角形，无需判断正确性），输出三角形面积。
三角形面积计算公式：
Private Sub Command1_Click()
Dim s As Single
Dim q As Single
Dim a As Single
Dim b As Single
Dim c As Single
① = Val(InputBox("请输入边长a的值："))
b = Val(InputBox("请输入边长b的值："))
c = Val(InputBox("请输入边长c的值："))
q = (a + b + c) / 2
s = ②(q * (q - a) * (q - b) * (q - c)) Print ③
End Sub
【第5题】
打开文件“考生文件夹\60\工程1.vbp”，完善
Command1_Click事件代码并保存。
实现功能：从文本框Text1中输入一个圆的半径，计算圆的面积，把结果输出到文本框Text2中。
Private Sub Command1_Click()
Const pi = 3.14
Dim r As Single
Dim s As Single
r = Val(①)
s = ②
1
Text2.Text = ③
End Sub
【第6题】
打开“Z:\414\工程1.vbp”，进行以下操作并保存。
实现功能：
(1) 将label1标签上的文字设置为“测试系统”；
(2) 把窗体中显示用户名的文本框的字体设置为“楷体_GB2312”；
(3) 在窗体的相应位置添加一个“确定”的命令按
钮。
控件名请采用默认值。
最终效果图如下：
（过程省略）
1。
vb教程---输入输出顺序结构1
(3) Enabled属性:该属性决定控件是否对用户产生的事件 作出响应 (4) Visible属性 该属性决定控件是否可见，默认值为True。 (5)Height、Width、Top和Left属性：Height和Width属性 确定控件的高度和宽度，Top和Lelf属性确定控件在窗体中 的位置
X Top Left Width Y
Buttons参数值=65 ( 1+64+0) 或 vbOKCancel+ vbInformation+VbDefaultButton1
练习使用信息框
设计一个如下所示的提示框：
A = MsgBox("非法数据！" + Chr(13) +Chr(10)+ "是否继续？", vbYesNo + vbCritical, "提示信息")
Buttons参数值= 1+64 或 vbOKCancel+ vbInformation
Buttons参数的设置
3.说明哪一个是缺省按钮
Buttons的和=按钮设置值+图标设置值+缺省按钮值
对应值 符号常量 缺省的活动按钮
0
256 512
VbDefaultButton1
VbDefaultButton2 VbDefaultButton3
2. Tab函数
函数格式：Tab(n) 功能：把输出位置移到第n列。
例如：
Print Tab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩"
输出结果是(1个汉字占2个位置)：
└┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C )（A）\ （B）/ （C）Mod （D）*4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor（C）AutoRedraw （D）Caption5.不论何控件，共同具有的属性是( B )（A）Text （B）Name（C）ForeColor （D）Caption6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D )（A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构（C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D )（A）“12334”（B）123 （C）12334 （D）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1（C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+110.若要清除列表框的所有内容，可用来实现的方法是( C )（A）RemoveItem （B）Cls（C）Clear （D）以上均不可以11.要使时钟控件Timer1的Timer事件不起作用，以下正确的语句是( B ) （A）Timer1.Visible=False （B）Timer1.Enabled=False（A） Timer1.Interval=1000 （D）Timer1.Index=012.引用列表框(List1)最后一个数据项应使用的语( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount) (D)List1.List(ListCount-1)13.如下数组声明语句，正确的是( B )（A）Dim a[3,4]As Integer （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （D）Function f1(ByVal n%)15.假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub16.程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是( A )（A）x的值是数值10 （B）输入对话框的标题是“输入整数”（C）信息框的标题是“输入数据：10”（D）信息框中显示的是“输入的数据是：”二、填空题（每题2分，共20分）1、当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择视图菜单的工具箱选项，使“工具箱”窗口显示。
VB第3章_控制结构
8
type参数及功能
常数 vbOKOnly VbOKCancel VbAbortRetryIgnore VbYesNoCancel 值 0 1 2 3 显示OK按钮 显示OK及Cancel 按钮 显示Abort、Retry 及 Ignore 按钮 显示显示 Yes、No 及 Cancel 按钮 功能描述
Print "B" Else Print "C" End If ElseIf score >= 60 Then Print "D" Else Print "E" End If End Sub
'此处为小于70分的情况
22
3.2.3 Select Case语句
格式：
说明： 变量或表达式：数值型或字符表达 式 表达式列表：与“变量或表达式” 的类型必须相同，可以是下面4种类型
End Sub
28
求和运行结果
29
例3.10 实现计算器函数区中求阶乘(n!) Private Sub Cmd_n_Click( ) Dim i, n, s As Long s=1 n = Val(InputBox("输入n(1-12)", "求n!")) For i = 1 To n s=s*i Next MsgBox s, 0, "n!" End Sub
7
3.1.2 数据的输入、输出函数
2. 输出函数MsgBox
格式 ：MsgBox(prompt [，type][，title][，helpFile，context]) 说明：
① prompt是字符串类型，提示
② type是一个整数值或符号常量，用来控制在对话 框内显示的按钮、图标的类型。 如上例中输出： MsgBox s, 0, "Area"
《Visual BASIC程序设计》期末考试编程题复习及答案
第2章1.新建工程，在窗体上创建两个命令按钮Command1、Command2，一个标签Label1，界面如图2-5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。
“改变颜色”按钮代码：Label1.ForeColor = vbRedLabel1.Caption = "颜色已经改变"2）单击“改变字体”按钮，标签上的字体改为“黑体”。
“改变字体”按钮代码：Label1.FontName = "黑体"图2-5程序运行界面最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:\EX文件夹下。
2.设计一个留言薄。
新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2-6所示，。
要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。
单击“清除”按钮则清除两个文本框中的内容。
“提交”按钮代码：Text2.Text = Text1.Text“清除”按钮代码：Text1.Text = ""Text2.Text = ""图2-6 程序界面最后将工程文件、窗体文件分别以lx2-4.vbp、lx2-4.frm为文件名保存在D:\EX文件夹下。
3.设计一个程序，程序界面如图2-7所示。
当单击“显示”按钮时，在文本框中显示“欢迎使用VB！”；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。
“显示”按钮代码：Text1.Text = "欢迎使用VB!"“清除”按钮代码：Text1.Text = ""“退出”按钮代码：End图2-7 程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:\EX文件夹下。
VB顺序结构与选择结构
x = 0.25 * w
Else If w <= 100 Then
x = 0.25 * 50 + 0.35 * (w–50)
Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w–100) End If End If Text2.Text = x
练习
相应流程图与程序界面
输入 x 值
真
x ≥ 2
假
y = x 3－ 9
y ＝ x
2
＋ 5 x -6
输出 y 值
相应代码
行If语句
Private Sub Command1_Click( )
Dim x As Single x = Val(Text1.Text)
块If语句
Private Sub Command1_Click( )
VB顺序结构与选择结构
文成县第二高级中学 信息技术
顺序结构
执行过程的次序从上到下，从左到右。
例：请问此时的c的值是多少？
a = 10 b = a*2 c = a+b
在顺序结构中，由多条赋值语句构成，那么我们一起来看下赋值语句。
赋值语句
赋值语句用来表明赋给某一个变量一个具体的确定值的语句叫做赋值语句。在算 法语句中，赋值语句是最基本的语句。 赋值语句的格式：
( w 50) 0.25 w x 0.25 50 0.35 ( w 50) (50 w 100) 0.25 50 0.35 50 0.45 ( w 100) ( w 100)
VB顺序结构编程练习题(2)解答a
VB顺序结构编程练习题(2)参考解答1、有一个“就是它”的猜数游戏，步骤如下：请你任意输入一个三位数，在这三位数后重复一遍，得到一个六位数，467→467467。
把这个数连续除以7，11，13，最后的商就是你输入的三位数。
请编程加以验证。
x=val(inputbox(“请输入一个三位数：x”))y=x*1000+xy=y/7y=y/11y=y/13print ”x=”;x,”y=”;y2、某学校开运动会，要在正六边形的操场的周围插上彩旗。
如果每边插a面彩旗(包括每个角上的彩旗)，a变量数可由键盘输入，问总共需要多少面彩旗?a=val(inputbox(“每边插旗数：”))s=6*a-6print ”正六边形的操场每边插彩旗面数为：”;aprint ”总共需要彩旗面数为：”;s3、计算图形的周长和面积．c=(48+36)*2s=48*12+24*24print ”图形的周长为：”;cprint ”图形的面积为：”;s4、编写求下列自然数等差数列之和的程序，数列的首项和末项由键盘输入。
4+5+6+7+8+9+10+11+12+13+14+15等差数列的求和公式自己从网上或从数学手册查找，当然也可自己推导。
sx = Val(InputBox("输入等差数列的首项："))mx = Val(InputBox("输入等差数列的末项："))n = mx - sx + 1s = (sx + mx) * n / 2print "自然数等差数列："print "首项="; sx, "末项="; mxprint "该自然数等差数列的和为："; s{等差数列的和=(首项+末项)×项数／2)} number=last-first+1;5、输入一个学生的情况，包括学号(用整数表示)、姓名(用第一个字母表示)、语文成绩和数学成绩，然后输出学号、姓名、总分和语数外三门课的平均成绩（保留两位小数）。
VB使用与顺序结构A
单击，拖出按钮
双击按钮
填入程序代码
修改
关闭-播放
单击按钮
a = CDbl(InputBox(“aaa"))
b = CDbl(InputBox(“bbb"))
c=sqr(a*a+b*b) : print a,b,c 关闭 form1
工程另存为-选择路径检查文件二个变量的内容进交换VB6.0的工作界面4
工程资源管理器窗口 工程是指用于创建一
个应用程序的文件集合。
工程资源管理器窗口含有建 立一个应用程序所需要的文 件清单。
VB6.0的工作界面5
属性窗口 属性窗口主要是针对窗属性显示方式
体和控件设置的，在Visual Basic中，窗体和控件被称 为对象。每个对象的特征都 属性列表 可以用一组属性来描述，属 性窗口就是用来设置窗体或 窗体中控件属性的。
海伦公式：d=(a+b+c)/2
s=(d*(d-a)*(d-b)*(d-c))^0.5
*3. 已知一元二次方程 ax2+bx+c=0有两个实数根,用a, b , c 求其两个根（可相等）
以上两（三）题编程产生所有文件,压缩成一个以学 号为文件名的RAR或ZIP文件,开学后递交
窗体（form）包含控件（展示与操作） 控件包含程序代码
VB6.0的工作界面1 【新建工程】对话框
VB6.0的工作界面2
主窗口
标题栏
工具栏
窗体设计器窗口
工具箱
工程窗口
菜单栏 工程资源管 理器窗口
属性窗口
窗体布局窗口
VB6.0的工作界面3
窗体设计器窗口 简称窗体（Form），
是最终用户看到的软件界面， 应用程序的运行结果、各种 图形、图像、数据等都是通 过窗体或窗体中的控件显示 出来的。
VB程序设计试题及答案(一)
VB程序设计试题及答案（一)一、单选题1. VB6.0是一种面向 B 的编程环境。
（A）机器（B）对象(C）过程（D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下 D 语句是正确的。
（A) Forml。
Caption=“欢迎使用VB”（B) Forml。
Caption='欢迎使用VB’(C) Forml.Caption=欢迎使用VB(D）Forml.Caption=”欢迎使用VB”3。
若要使命令按钮不可操作,要对 A 属性进行设置。
(A）EnabIed （B)Visible(C）Backcolor (D)Caption4。
如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
（A）Change (B）LostFocus（C) KeyPress （D）GotFocus5。
下面 A 是合法的变量名。
(A）X_yz (B）123ab。
（C) integer (D）X-Y6. 以下关系表达式中,其值为False的是 A 。
（A) "ABC">"AbC”（B）"女"〉"男”（C）”BASIC”=UCase（"basic）(D) ”123”<”23”7。
为了给x、y、z三个变量赋初值1,下面正确的赋值语句是 A .(A) x=1:y=1：z=1 （B) x=1,y=1，z=1(C）x=y=z=1 (D）xyz=18。
VB提供了结构化程序设计的三种基本结构，三种基本结构是 D 。
（A）递归结构、选择结构、循环结构（B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D）选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
(A）If sex="男" And age=4O And InStr(duty，"教授"）〉O Then n=n+l （B) If sex=”男" And age=4O And (duty=”教授” Or duty="副教授") Then n=n+l（C）If sex=”男” And age=4O And Right（duty，2）="教授" Then n=n+l (D）If sex="男" And age=4O And duty="教授" And duty=”副教授” Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
第二章VB顺序结构
第二章VB顺序结构
【课题】：输入语句
【教学目标】：
（1）语句的一般格式，及各种符号的使用
（2）Let语句的使用
【重点难点】：
Vb语句的一般格式及let语句
【前导知识】：表达式
【教学方式】：讲问结合。
【教学工具】：投影仪
【教学过程】：
二、赋值语句
赋值语句是程序设计中最基本、最常用的语句1、功能
计算右端的表达式，并把结果赋值给左端的变量2、格式
［Let］变量名=表达式
或[let][对象名称.]属性名称=表达式
3、例
已知a=6,b=9,计算c=√a2 + b2
编写的窗体单击事件过程代码如下：
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single
a = 6
b = 9
c = Sqr(a * a + b * b)
Print "c=" & c
End Sub
运行程序后单击窗体，输出结果如下：。
VB操作操
四、填充题（题数：2道，总分：10分）1、（选修）将数学表达式“a2+2ab+b2”按原顺序转换为VB表达式为：a^2 + 2*a*b + b^22、（选修）在字符串“Visual Basic 6.0”中截取字符串“Visual Basic”的表达式为：LEFT（"Visual Basic 6.0",12)VB操作题’（1）删除①②③及下划线，填空完成程序。
'（2）从键盘输入10个100以内的整数，单击命令按钮后在窗体上输出其中的最大数，最小数和平均值'注：请不要更改原程序结构，删除①、②、③及下划线，并在对应位置填写正确的代码。
Private Sub Command1_Click()Dim x As Integerx = InputBox("请输入您的数：")Print "您输入的数有：" & x; "、";Max = x: Min = x: Sum = xFor i = 2 To 10x = InputBox("请输入您的数："): Print x;Sum = Sum + xIf x > Max Then Max = xIf x < Min Then Min = xNext iPrint "平均值" & Sum / 10Print "最大数" & Max, "最小数" & MinEnd Sub四、填充题1、（选修）阅读如下VB程序段，运行程序后，当n的值为5时，a 的值为（ 120 ）。
a = 1For i=1 to na = a*iNext i2、（选修）有如下VB程序段，功能是找出100以内的奇数中能被7整除的正整数，并将它们累加起来。
程序中划线处的语句有错，正确的语名应该是：if i mod 7 =0 Then Y=Y+iY=0For i=1 to 100 step 2if i\7=0 Then Y=i+iNext iVB操作题'删除程序中的①②③及下划线，填空完成程序，运行程序使能打印下面所示的图案。