VB复习1Word格式.docx
- 文档编号:21942032
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:42
- 大小:32.87KB
VB复习1Word格式.docx
《VB复习1Word格式.docx》由会员分享,可在线阅读,更多相关《VB复习1Word格式.docx(42页珍藏版)》请在冰豆网上搜索。
•Label2=Label2&
Mid(Text1,i,1)
•Nexti
•EndSub
•PrivateSubMenu12_Click()
•End
•PrivateSubMenu2_Click()
•Form2.Show
•PrivateSubCommand1_Click()
•Cls
•Me.Scale(-10,100)-(150,-30)
•Fora=1To8
•Circle(Rnd*90,Rnd*90),10,QBColor(Rnd*15)
•Nexta
•PrivateSubCommand2_Click()
•UnloadMe
在Form1窗体上放置一个图形框和1个文本框,文本框自动显示考生的真实姓名和学号,按下表建立菜单:
…绘图
在窗体Form2上放置2个标签、1个滚动条和2个命令按钮,按钮的标题分别为"
累加"
和"
,设定滚动条最小值为2、最大值为10。
(1)当单击"
菜单项时,定义图形框的坐标系为(-8,2)-(8,-2)。
用PSet方法在在图形框内在窗体上绘制-2π到2π之间的正弦曲线y=Sinx的红色图形,红色常数为vbRed。
(2)当单击"
菜单项时,打开Form2窗体,单击"
菜单项时,结束程序的运行。
(3)在窗体2内拖动滚动条滑块,在Label1显示滚动条当前值n;
按钮,在标签Label2显示1+2+...+n的值;
按钮,关闭Form2窗体,显示Form1窗体。
•
•6…PrivateSubMenu11_Click()
•Picture1.Scale(-8,2)-(8,-2)
•Forx=-6.28To6.28Step0.01
•Picture1.PSet(x,Sin(x)),vbRed
•Nextx
•Dims%
•Label2=s
•PrivateSubHScroll1_Scroll()
•s=0
•Label1=HScroll1.Value
•Fori=1ToHScroll1.Value
•s=s+i
在Form1窗体上放置1个文本框,2个标签,2个命令按钮,设置文本框为多行,有滚动条。
参见样例,设置各个控件的提示文字。
(1)当单击"
产生随机数并找出最大值"
按钮后,在文本框内自动产生10个100-900之间的随机整数,并在Label2中显示最大的数。
(2)单击"
结束"
按钮,停止程序运行。
在Form1窗体上添加1个List1控件和1个标签,标签显示考生的真实姓名和学号,按下表建立菜单:
…产生
在窗体Form2上放置"
(1)单击"
产生"
菜单项时,在List1内随机产生10个300以内的正整数。
菜单项时,隐藏Form1窗体,显示Form2窗体;
用Line方法在屏幕上随机产生20条长度、颜色、宽度不同的直线。
坐标点为:
x=Rnd*Me.ScaleWidth,y=Rnd*Me.ScaleHeight。
用DrawWidth属性设置线宽,颜色函数:
4…..PrivateSubMenu11_Click()
List1.Clear
Fori=1To10
List1.AddItemInt(Rnd*300)
Nexti
EndSub
PrivateSubMenu12_Click()
End
PrivateSubMenu2_Click()
UnloadForm1
Form2.Show
PrivateSubCommand1_Click()
Cls
Fori=1To20
DrawWidth=Int(Rnd*5+1)
Line(Me.ScaleWidth*Rnd,Me.ScaleHeight*Rnd)-(Me.ScaleWidth*Rnd,Me.ScaleHeight*Rnd),QBColor(Rnd*15)
PrivateSubCommand2_Click()
UnloadMe
在Form1窗体上添加2个文本框和1个标签,标签显示考生的真实姓名和学号,按下表建立菜单:
窗体A
窗体B
在本工程内加入窗体Form2,并放置"
菜单项时,在文本框1随机产生一个10000以内的正整数,同时在文本框2显示该数的逆序数(说明:
735的逆序数是537)。
用用Pset方法在窗体上画200个随机彩色点,点的大小在单位3~6之间变化。
提示:
用DrawWidth设置线宽
颜色函数:
•5…PrivateSubMenu11_Click()
•Text2="
•Text1=Int(Rnd*10000)
•Text2=Text2&
•Fori=1To200
•DrawWidth=Int(Rnd*4+3)
•PSet(Me.ScaleWidth*Rnd,Me.ScaleHeight*Rnd),QBColor(Rnd*15)
•画200个点
•PrivateSubMenu13_Click()
•Dimi,x,y,c
•Cls'
清空窗体
•DrawWidth=1
•Form1.Scale(-10,100)-(150,-30)'
定义坐标系
•Line(-10,0)-(150,0)'
画x轴
•Line(0,100)-(0,-30)'
画y轴
•Randomize'
用Rnd函数之前必须调用
•x=Int(Rnd*159-10)'
x坐标在(-10,150)
•y=Int(Rnd*129-30)'
y坐标在(-30,100)
•c=Int(Rnd*16)'
颜色在0~15之间
•DrawWidth=Int(Rnd*4+3)'
粗细在3~6之间
•PSet(x,y),QBColor(c)'
在坐标(x,y)处画半径为r,颜色为c的圆圈
(1)在Form1窗体上添加1个图形框和1个标签,标签内显示考生的真实姓名和学号,按下表建立菜单:
备注
一级菜单
二级菜单
阶乘"
菜单项,定义图形框的坐标系为(-5,5)-(5,-5)。
用Line方法在在图形框内绘制参数方程x=4Cos5αCos4α,y=4Cos5αSinα在0~2π之间的红色图形,红色常数为vbRed。
按钮,在标签Label2显示数n的阶乘值;
list1.Clear
m=o
Fori=1To10
n=Int(Rnd*800+100)
list1.AddItemn
Ifn>
mThenm=n
label1=m
在Form1窗体上放置1个命令按钮,2个文本框,3个标签,1个框架内含4个单选按钮,分别对应"
+"
、"
-"
*"
/"
4个运算符。
产生随机操作数"
命令按钮,在2个文本框内分别随机产生1-10之间的操作整数。
(2)单击某运算符对应的单选按钮,在标签3中显示计算结果。
程序改错
不允许增加或删除语句、改变语句先后顺序,但可以修改语句。
程序1(Command1_Click()事件):
一元二次方程求根,利用InputBox输入系数,结果显示在Label1。
程序中有2个错误。
Dimdalt!
a#,b#,c#
a=InputBox("
输入系数a"
):
b=InputBox("
输入系数b"
c=InputBox("
输入系数c"
)
dalt=b*b-4*acb*b-4*a*c
Ifdalt>
=0Then'
两个实根
dalt=Sqr(dalt)
Label1="
X1="
&
(b+dalt)/2/a&
vbCrLf
X2="
(b-dalt)/2/a
Label1=Label1&
“x2=”&
(b-dalt)/2/a
Else
无实根"
EndIf
程序2(Command2_Click()事件):
输入百分制成绩mark,在Label1显示对应3级制的评定,程序中有1个错误。
优良:
[80,100]合格:
[60,80),不及格:
[0,60)
mark=Val(Text1)
Ifmark>
=60ThenIfmark>
=60andmark<
80Then
Label2="
合格"
ElseIfmark>
=80Then
优良"
不及格"
程序3(Command1_Click()事件):
本程序段求1~100的之间3的倍数和,结果显示在Label1。
Sum=1Sum=0
Fori=3To100Step3
Sum=Sum+i
Sum="
+SumLabel1="
Sum
程序4(Command1_Click()事件):
判断一个整数的奇偶性,程序中有1个错误。
DimxAsInteger
x=InputBox("
请输入一个整数:
"
数据输入"
Ifx/2=x*0.5Then'
判断条件语句IfxMod2=0Then
a$="
整数"
x&
"
是偶数"
是奇数"
MsgBoxa$,,"
奇偶数判断"
程序5(Command2_Click()事件):
计算10!
,程序中有2个错误。
DimsAsIntegerDimsAslong
s=0s=1
s=s*i
Next
Text1=s
程序6(Command2_Click()事件):
=80Then
ElseIf60<
=mark<
80Then60<
=markAndmark<
及格"
1.在VisualBasic中语句的续行号采用__A_____。
A.空格与下划线B.下划线与空格
C.空格与短线D.短线与空格
2.如果文本框的Enabled属性设为False,则__A______。
文本框的Enabled属性设为False,不能输入,但可显示数据
A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框内
B.文本框的文本将变成灰色,用户仍然能将光标置于文本框内,但是不能改变文本框中的内容。
C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容。
D.文本框的文本正常显示,用户能将光标置于文本框内,但是不能改变文本框中的内容。
3.为了取消窗体的最大化功能,需要设置__D____属性为False。
A.ControlBoxB.MinButton
C.EnabledD.MaxButton
4.表达式Chr(Int(Rnd*5+65))生成的范围为__B____。
Rnd*5+65产生的数在[65,70),Chr(65)将65变为字母A
Chr(66)是B…
A.65∽69B."
A"
∽"
E"
C."
F"
D.65∽70
5.有说明语句Dimx!
,则x是____C____类型的变量。
A.整型B.长整型
C.单精度浮点型D.双精度浮点型
6.下面程序段的功能是求两个数中的小数,____C_________是不正确的。
A.Min=IIf(x>
y,y,x)
B.Ifx<
yThenMin=xElseMin=y
C.Ify<
=xThenMin=y:
Min=x
D.Ify<
=xThenMin=y
Ify>
xThenMin=x
Ify<
Min=x等价于
=xThenMin=y
Min=x
7.下列程序段执行的结果是____A_______。
x=5
y=2
Ifx>
2Thenx=1,不大于2直接跳到Print
Ify>
=2Thenx=3
EndIf
Printx
A.1B.2C.0D.3
8.按照VB默认规定,数组声明Dima(2+5)共有__A____个元素。
A.18B.15
C.10D.7(X+1)*(Y+1)=?
9.当单击一个没有被选中的复选框时,其它已被选中的复选框会处于____D____。
A.不选中B.不显示
C.禁止D.选中
10.图片框Picture1中装入了一个图形,运行时为了清除该图形,应采用的正确方法是___B___。
A.选择图片框,然后按Del键
B.Picture1.picture=LoadPicture("
C.Picture1.picture="
D.选择图片框,在属性窗口中选择Picture属性条,然后按回车键
11.VisualBasic是一种面向对象的可视化程序设计语言,采取了___A______的编程机制。
A.事件驱动B.按过程顺序执行
C.从主程序开始执行D.按模块顺序执行
12.设计时,要求改变窗体的标题,应当在属性窗口中对_A____属性进行操作。
A.CaptionB.Name
C.TextD.Label
13.要使窗体Form1的标题栏中显示"
正在复制文件…"
,以下正确的语句是__A___。
A.Form1.Caption="
B.Form1.Title="
C.Form1.Text="
D.Form1.name="
14.下面正确的赋值语句是__C___。
A.x+y=30B.x*x+y*y=z*z
C.y=y+30D.3y=x
15.a+b小于10,且a-b大于1的逻辑表达式是____B_____。
A.a+b<
10Ora-b>
1
B.a+b<
10Anda-b>
C.a+b<
10.And.a-b>
D.(a-b>
1)To(a+b<
10)
16.在VisualBasic代码中,将多个语句合并在一行上的并行符是__B___。
A.撇号('
)B.冒号(:
C.感叹号(!
)D.问号(?
17.结构化程序由三种基本结构组成,下面属于三种基本结构之一的是__B____。
顺序,判断,循环
A.递归结构B.循环结构
C.过程结构D.输入输出结构
18.按照VB默认规定,数组声明语句Dima(1To2,2)中的数组a包含了__A_______个数组元素。
A.6B.2
C.4D.8
19.若要使单选按钮具有图形特性可通过___D_______属性来进行。
A.AppearanceB.BackStyle
C.BordestyleD.Style
20.假设窗体上有一个列表框控件List1,其中放有若干列表项。
则____D______能表示当前被选中的列表项的内容。
A.List1.ListB.List1.ListIndex
C.List1.IndexD.List1.Text
21.关于运算符优先级,以下说法中正确的是_____A_____。
A.关系运算符的优先级相同B.算术运算符“\”和“/”的优先级相同
C.逻辑运算符的优先级相同D.算术运算符中负号和减号的优先级相同
22.下面C是合法的字符常数。
A.ABC$B.'
ABC'
C."
ABC"
D.ABC
23.循环语句Fori%=8To-2Step-2的执行次数是C。
A.8B.7
C.6D.5
24.以下关系表达式中,其值为False的是A。
A."
>
AbC"
B."
the"
<
they"
C."
VISUAL"
=UCase("
Visual"
)D."
Inte
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 复习
![提示](https://static.bdocx.com/images/bang_tan.gif)