VB串讲解析.docx
- 文档编号:28080417
- 上传时间:2023-07-08
- 格式:DOCX
- 页数:27
- 大小:87.76KB
VB串讲解析.docx
《VB串讲解析.docx》由会员分享,可在线阅读,更多相关《VB串讲解析.docx(27页珍藏版)》请在冰豆网上搜索。
VB串讲解析
目录
1-5第一套的综合应用题2
24-4第24套题简单应用22
4-4第4套题简单应用2电子科技大学出版p2053
31-3第31套题简单应用13
56-2第56套题基本操作24
40-3第40套题简单应用25
29-1第29套题基本操作15
26-1第26套题基本操作16
39-4第39套题简单应用26
1-4第1套题简单应用27
1-3第1套题简单应用18
20-3第20套题简单应用19
2-4第2套题简单应用210
6-5第6套题综合应用11
5-3第5套题简单应用112
11-3第11套题简单应用113
22-2第22套题基本操作213
8-3第8套题简单应用114
4-1第4套题基本操作115
1-5第一套的综合应用题
【解题思路】单选按钮数组常用于提供唯一选择,Value属性值决定每个单选按钮的选中状态:
False为未选中,True为选中,Caption属性用于设置单选按钮的标题。
本题在For循环语句(循环变量k的初值为0,终值应为3)逐一检查每个单选按钮是否被选中,用变量n记录选中单选按钮的索引号。
然后取消对当前选中单选按钮的选择,使单选按钮数组中的下一个按钮被选中。
如果当前已经选中最后一个单选按钮,则将n赋值为0,重新从单选按钮数组的第1个元素开始。
【操作步骤】
步骤1:
打开本题工程文件。
步骤2:
编写程序代码。
PrivateSubCommand1_Click()
Dima()AsLong//注意要定义为长整型,防止溢出
DimiAsInteger
DimnAsInteger
Fori=0ToOp1.Count–1//Op1.Count是单选按钮数目,这里用的是控件数组
IfOp1(i).Value=TrueThen//判断哪一项被选则,把它后面的数值赋给n,确定n值
n=Val(Op1(i).Caption)
ExitFor
EndIf
Next
ReDima(n)//重新申请空间,动态申请
a
(1)=1
a
(2)=1//确定数列第一项和第二项的值
Fori=3Ton
a(i)=a(i-1)+a(i-2)
Next
Text1.Text=a(n)
EndSub
步骤3:
调试并运行程序,关闭程序后按题目要求存盘。
24-4第24套题简单应用2
【解题思路】单击"读入数据"按钮,运用文件操作和For循环语句从文件in4.txt中读入数据放到二维数组a中。
在Command2Click事件过程,计算5门课程的平均分,通过CInt函数对平均分取整,存入数组s(i),并依次放入Text1文本框数组中。
在Command3Click事件过程中,通过形状控件的Height、Top属性和线条的Y1属性,画出直方图,并通过设置形状控件的Visible使平均分的直方图显示出来。
【操作步骤】
步骤1:
打开本题工程文件。
步骤2:
分析并编写程序代码。
程序提供代码
Dima(5,10)AsInteger
Dims(5)
PrivateSubCommand1_Click()
' OpenApp.Path&"\in4.txt"ForInputAs#1//打开in4.txt文件,用来读取,文件编号是1
Fori=1To5
Forj=1To10
Input#1,a(i,j)
Nextj
Nexti
Close#1
EndSub
PrivateSubCommand2_Click()
Fori=1To5
s(i)=0
Forj=1To10
' s(i)=s(i)+a(i,j)
Nextj
' s(i)=CInt(s(i)/10)//可根据下一条语句得出CInt是类型转换函数,整型
Text1(i-1)=s(i)
Nexti
EndSub
PrivateSubCommand3_Click()
Fork=1To5
Shape1(k-1).Height=s(k)*20
m=Line2.Y1
' Shape1(k-1).Top=Line2.Y2-Shape1(k-1).Height
' Shape1(k-1).Visible=True
Nextk
EndSub
步骤3:
调试并运行程序,关闭程序后按题目要求存盘。
4-4第4套题简单应用2电子科技大学出版p205
31-3第31套题简单应用1
【解题思路】Rnd()函数用于产生一个小于1但大于或等于0的随机数。
本题程序用变量Max记录最大数,最初把数组的第一个元素的值赋给Max,然后通过For循环语句将其后的元素依次与之比较,如果其值大于Max则将其赋值给Max,依次类推,最终Max的值就是数组各元素中的最大值。
【操作步骤】
步骤1:
打开本题工程文件。
步骤2:
分析并编写程序代码。
程序提供代码
OptionBase1
PrivateSubCommand1_Click()
DimarrN(30)AsInteger
DimMaxAsInteger
Randomize//初始化随机数生成器
Fori=1To30
'arrN(i)=Int(Rnd*1000)
Nexti
'Max=arrN
(1)
Fori=2To30
'IfarrN(i)>MaxThen
Max=arrN(i)
EndIf
Nexti
PrintMax
EndSub
56-2第56套题基本操作2
【考点分析】本题考点有:
水平滚动条的Name、SmallChange、LargeChange、Min和Max属性,列表框的Name属性、AddItem方法、Str()函数以及窗体的Click事件。
【解题思路】通过属性窗口Name、Min和Max属性设置水平滚动条的名称、最小值和最大值。
SmallChange是单击滚动条两端的箭头时,Value属性增加或减少的增量值。
LargeChange是单击滚动条中滚动看前面或后面的部位时,Value属性增加或减少的增量值。
【操作步骤】
步骤1:
建立界面,添加控件并设置控件的属性。
程序中用到的控件及属性见表3.166。
步骤2:
编写程序代码。
参考答案
PrivateSubForm_Click()
L1.AddItemStr$(Form1.HS1)//或者L1.AddItemStr(HS1.Value)
EndSub
步骤3:
调试并运行程序,关闭程序后按题目要求存盘。
40-3第40套题简单应用2
【解题思路】判断0~200范围内的数能不能被3整除,须使用求余运算符Mod,如果余数不为0,则表示该数不能被整除。
并需要设置一个变量,以累计不能被3整除的数的和。
【操作步骤】
步骤1:
打开本题工程文件。
步骤2:
分析并编写程序代码。
程序提供代码
SubSaveData()
OpenApp.Path&"\"&"outtxt.txt"ForOutputAs#1
Print#1,Text1.Text
Close#1
EndSub
FunctionFun()
EndFunction
PrivateSubCommand1_Click()
d=Fun()
Text1.Text=d
SaveData
EndSub
程序结束
参考答案:
FunctionFun()
DimsAsInteger,iAsInteger
Fori=0To200
IfiMod3=0Then
s=s+i
EndIf
Nexti
Fun=s
EndFunction
步骤3:
调试并运行程序,关闭程序后按题目要求存盘。
29-1第29套题基本操作1
【解题思路】根据题意,须在命令按钮的Click事件过程中,将标签和文本框的Visible属性值设置为False,并用Print方法将文本框的内容输出到窗体上。
【操作步骤】
步骤1:
建立界面,并设置控件的属性。
程序中用到的控件及属性见下表。
步骤2:
编写程序代码。
参考答案
PrivateSubCommand1_Click()
Form1.PrintText1.Text
Label1.Visible=False
Text1.Visible=False
EndSub
步骤3:
调试并运行程序,关闭程序后按题目要求存盘。
26-1第26套题基本操作1
【解题思路】文本框的内容由Text属性设置,命令按钮标题则由Caption属性设置,单击命令按钮触发Click事件。
并且在程序中用到了InputBox()函数。
【操作步骤】
步骤1:
建立界面并设置控件属性。
程序中用到的控件及其属性见表3.81和表3.82。
表3.81
控件
标签1
标签2
属性
Name
Caption
Name
Caption
设置值
Label1
身高
Label2
体重
表3.82
控件
文本框1
文本框2
命令按钮
属性
Name
Name
Name
Caption
设置值
Text1
Text2
Command1
输入
步骤2:
分析并编写程序代码。
参考答案
PrivateSubCommand1_Click()
Text1.Text=InputBox("请输入身高","输入对话框",,100,100)
Text2.Text=InputBox("请输入体重","输入对话框",,100,100)
EndSub
步骤3:
调试并运行程序,关闭程序后按题目要求存盘。
39-4第39套题简单应用2
【解题思路】使用列表框的AddItem方法,在窗体载入时向列表框添加一个编号信息"a0001"。
在Command1Click事件过程中,通过文本框Text1中输入一个编号,运用If判断语句进行判断,如果该编号与已存在于列表框中的其他编号不重复,则将其添加到列表框Liast1已有项目之后;否则,将弹出MsgBox对话框"不允许重复输入,请重新输入!
",单击该对话框中的"确定"按钮,可以重新输入。
单击”退出”按钮,程序结束。
【操作步骤】
步骤1:
打开本题工程文件,添加一个名称为Label1,标题为"请输入编号"的标签;再添加一个名称为Text1,初始文本内容为空的文本框。
步骤2:
分析并编写程序代码。
程序提供代码
PrivateSubForm_Load()
'List1.AddItem"a0001"
EndSub
PrivateSubCommand1_Click()
'Fori=0ToList1.ListCount-1
' List1.ListIndex=i//已选中的表项的位置
IfList1.Text=Text1.TextThen
MsgBox"不允许重复输入,请重新输入!
"
ExitSub
EndIf
Nexti
'List1.AddItemText1.Text
Text1.Text=""
EndSub
PrivateSubCommand2_Click()
'End
EndSub
步骤3:
调试并运行程序,关闭程序后按题目要求存盘。
1-4第1套题简单应用2
【解题思路】在窗体上建立好控件后,先设置控件属性,再编写事件过程。
本题需注意容器中控件的画法。
命令按钮标题由Caption属性设置,单击命令触发Click事件;单选按钮的标题由Caption属性设置,程序中需要检测的单选按钮的状态,通过Value属性来实现,如果单选按钮被选中,则Value值为1,否则Value值为0。
在文本框中显示内容通过Text属性实现,其形式为:
文本框名.Text=显示的内容。
在VB程序中,Open语句用于打开数据文件,打开顺序文件的基本格式为:
OpenFileNameForModeAs#FileNumber。
其中,FileName表示要打开的文件的路径;Mode为打开模式,OutPut用于输出,Append用于追加写入,Input用于读取;FileNumber为打开文件时指定的句柄。
读文件操作在窗体的Load事件过程中完成,写文件操作在命令按钮的Click事件过程中完成。
【操作步骤】
步骤1:
打开本题工程文件,在窗体中添加两个框架,一个命令按钮和4个单选按钮。
步骤2:
为步骤1建立的控件设置相关属性,程序中用到的控件及属性见表3.5和表3.6。
步骤3:
分析并编写程序代码。
程序提供代码
PrivateSubFormUnload(CancelAsInteger)
Open"out4.txt"ForOutputAs#1
Print#1,Op1.Value,Op2.Value,Op3.Value,Op4.Value,Text1.Text
Close#1
EndSub
程序结束
参考答案
PrivateSubC1_Click()
Text1.Text="我是"
IfOp1.ValueThen//通过单选按钮的Value值(选中为True,没选中为False)来确认性别
Text1.Text=Text1.Text&Op1.Caption
Else
Text1.Text=Text1.Text&Op2.Caption
EndIf
IfOp3.ValueThen
Text1.Text=Text1.Text&Op3.Caption
Else
Text1.Text=Text1.Text&Op4.Caption
EndIf
EndSub
步骤4:
调试并运行程序,关闭程序后按题目要求存盘。
1-3第1套题简单应用1
【解题思路】通过文本框的Name属性设置文本框名称;在窗体上添加单选按钮,通过Name属性设置名称,右击单选按钮进行复制,弹出对话框,选择创建单选按钮数组,并通过Caption属性设置每一个单选按钮的标题;通过命令按钮Name和Caption属性分别设置命令按钮的名称和标签;设置两个字符型变量a、b,a="我坐",b="我开",用于SelectCase选择语句的字符串连接;通过对单选按钮数组Index属性查询,实现单击单选按钮完成字符串连接和文本框显示操作的功能。
【操作步骤】
步骤1:
打开本题工程文件,在窗体中添加一个单选按钮数组,包含3个单选按钮。
再添加一个文本框。
步骤2:
按照题目要求设置控件的属性,见表3.4。
步骤3:
分析并编写程序代码。
PrivateSubOp1Click(IndexAsInteger)
DimaAsString,bAsString,cAsString
a="我坐"
b="我开"
'SelectCaseIndex
Case0
Text1.Text=a+Me.Op1(0).Caption+"去"
//Me表示当前窗体
Case1
'Text1.Text=a+Me.Op1
(1).Caption+"去"
Case2
Text1.Text=b+Me.Op1
(2).Caption+"去"
EndSelect
EndSub
程序结束
20-3第20套题简单应用1
【解题思路】Subcalc()函数实现将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,首先调用ClearList函数清空列表框,运用Val函数使Text1的值由字符转化为数值,DoWhile语句控制产生整数的个数为5个,通过Mod函数和If语句判断是否能被所选数整除,并用列表框的AddItem方法,把能被整除的数添入到列表框中。
在Command1Click事件过程中,向文本框中输入正整数,并运用val(Option1(i).Caption)语句提取单选按钮数组中所选的数值,再通过调用calc()函数实现数据的处理过程。
【操作步骤】
步骤1:
打开本题工程文件。
步骤2:
分析并编写程序代码。
程序提供代码
PrivateSubCommand1_Click()
DimyAsInteger
Fori=0To2
' IfOption1(i).value=TrueThen
' y=val(Option1(i).Caption)
EndIf
Next
Callcalc(y)
EndSub
PrivateSub_calc(yAsInteger)
ClearList
i=1//用于循环计数
x=Val(Text1.Text)+1//大于文本框中的数,所以从加1开始
' DoWhilei<=5//注意:
不是只循环5次,小于等于5只是个条件
IfxMody=0Then
' List1.AddItemx
i=i+1
EndIf
x=x+1//x会一直加一,每当能整除时i才加1
Loop
EndSub
PrivateSub_ClearList()
Fork=List1.ListCount-1To0Step-1//Step为循环的步长
List1.RemoveItemk
Nextk
EndSub
程序结束
2-4第2套题简单应用2
【解题思路】通过For循环语句实现xn()的乘幂运算;Click事件过程中通过Val()函数实现字符类型向数值型的转换,通过循环语句及调用xn()函数,获得函数返回值,实现表达式的运算结果;运用Call语句调用SaveResult函数对于结果进行保存,涉及文件的Open、Close和Output操作,最后将结果保存在文件夹下的out4.dat文件中。
【操作步骤】
步骤1:
打开本题工程文件。
步骤2:
分析并编写程序代码。
程序提供代码
PrivateFunctionxn(aAsSingle,mAsInteger)//求a的m次幂
DimiAsInteger
tmp=1
Fori=1Tom
' tmp=tmp*a//求a的i次幂的结果
Next
'xn=tmp//返回计算结果
EndFunction
PrivateSubCommand1_Click()
DimnAsInteger
DimiAsInteger
DimtAsSingle
Dims,xAsSingle
n=Val(Text1.Text)
x=Val(Text2.Text)
z=0
Fori=2Ton
t=x+i
' z=z+xn(t,i)//求各个幂的和
Next
'Label1.Caption=z
CallSaveResult
EndSub
PrivateSubSaveResult()
OpenApp.Path&"\out4.dat"ForOutputAs#1
Print#1,Label1.Caption
Close#1
EndSub
程序结束
步骤3:
按照题目要求调试并运行程序。
步骤4:
关闭程序后,按照题目要求保存工程和窗体文件。
6-5第6套题综合应用
【解题思路】本题源程序已给出读文件中的数据和向文件中写数据的三个过程,只需适时调用它们,即在"读入数据"和保存过程中调用;要把数组Arr1、Arr2中对应下标的元素相减并把结果存入第3个数组中,需利用FOR循环逐一取出Arr1、Arr2对应元素;由于数组Arr1、Arr2及存储第3个数组和的变量要跨过程使用,因此需定义成窗体级变量;调用过程WriteData时需传递两个参数,分别是存入数据的文件名和存储第3个数组和的变量;语句OptionBase1用于限定数组下标的下限,默认为1。
Call语句将控制权转移到一个Sub过程,Function过程,或动态连接库(DLL)过程。
语法:
[Call]name[argumentlist]
Call可选参数;关键字。
如果指定了这个关键字,则argumentlist必须加上括号,例如:
CallMyProc(0),name是必要参数,要调用的过程名称。
【操作步骤】
步骤1:
打开本题工程文件,在窗体中添加两个命令按钮控件。
步骤2:
按照步骤1设置两个命令按钮控件的属性,命令按钮控件的属性见表。
步骤3:
分析并编写程序代码。
程序提供代码
OptionBase1//在模块级别中使用,声明数组的缺省下界,默认为0
DimArr1(20)AsInteger
DimArr2(20)AsInteger
SubReadData1()
OpenApp.Path&"\"&"datain1.txt"ForInputAs#1
Fori=1To20
Input#1,Arr1(i)
Nexti
Close#1
EndSub
SubReadData2()
OpenApp.Path&"\"&"datain2.txt"ForInputAs#1
Fori=1To20
Input#1,Arr2(i)
Nexti
Close#1
EndSub
SubWriteData(FilenameAsString,NumAsInteger)
OpenApp.Path&"\"&FilenameForOutputAs#1
Print#1,Num
Close#1
EndSub
程序结束
参考答案:
PrivateSubC1_Click()
CallReadData1//调用过程ReadData1
CallReadData2//调用过程ReadData2
EndSub
PrivateSubC2_Click()
DimArr3(1To20)AsInteger
DimsumAsInteger
sum=0
Fori=1To20//相减后结果存入Arr3
Arr3(i)=Arr1(i)-Arr2(i)
sum=sum+Arr3(i)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 串讲 解析