Visual Basic程序设计基础知识要点(概念分析篇)
知识点1:
(1)在工程资源管理器窗口中可以包含:工程文件、窗体模块文件、标准模块文件和类模块文件(其中可以包含许多各种文件类型)。
(2)Visual Basic应用程序可以以解释方式执行和编译方式执行。
例题:
(1)以下叙述中错误的是 A
A.在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件。
B.以.bas为扩展名的文件是标准模块文件。
C.窗体文件包含该窗体及其控件的属性。
D.一个工程中可以有多个标准模块文件。
(2)以下叙述中错误的是 C
A.打开一个工程文件时,系统自动装入与该工程有关的窗体、标准模块等文件。
B.保存Visual Basic程序时,应分别保存窗体文件及工程文件。
C.Visual Basic应用程序只能以解释方式执行。
D.事件可以由用户引发,也可以由系统引发。
知识点2:
(1)窗体和各种控件的名称(Name)是唯一的,用来标识一个窗体或控件的。而窗体和控件的标题是用来说明的,是可有可无的。
(2)各种控件之间有部分相同的属性,并不是拥有所有属性。控件有些属性只能在属性窗口中设置,但也有少数属性只能在代码状态设置。
(3)Form1.Hide方法和Unload Form1方法的区别:第一个方法窗体消失并不存在于内存中;第二个方法窗体消失但仍存在于内存中。
例题:
(1)以下叙述中正确的是 A
A.窗体的Name属性指定窗体的名称,用来标识一个窗体。
B.窗体的Name属性的值是显示在窗体标题栏中的文本。
C.可以在运行期间改变对象的Name属性的值。
D.对象的Name属性值可以为空。
(2)以下叙述中错误的是 C
A.Visual Basic是事件驱动型可视化编辑工具。
B.Visual Basic应用程序不具有明显的开始和结束语句。
C.Visual Basic工具箱中的所有控件都具有Width和Height属性。
D.Visual Basic中控件的某些属性只能在运行时设置。
知识点3:
(1)标签(Label1):Autosize的True属性可以自动调整标签的大小,而False属性不能。
(2)文本框(Text1):
1、Maxlength属性表示文本框所能容纳的字符数。
2、Password属性表示口令输入,可以是“*”或“?”等。设置文本框输入字符为“*”:Text1.Password=”*”,还原文本框字符:Text1.Password=””,
3、ScrollBars属性是表示文本框有垂直或水平滚动条,但是需要和多行属性Multiline结合一起使用。
4、SelLength属性是表示选中文本框中字符的个数:Text1.SelLength。SelStart 属性是表示选中文本框中字符或光标之前的字符数:Text1.SelStrart。SelText属性是表示选中文本框中的字符:Text1. SelText。
5、文本的主要事件是Change事件:(标签内容随文本框内容变化而变化)
Private sub Command_Change()
Label1.caption=Text1.text
End sub
6、文本框的方法只有一个:Text1.SetFocus
例题:
(1)能够获得一个文本框中被选取文本的内容的属性是 C
A.Text B. SelLength C. SelText D. SelStrart
(2)在窗体上画一个文本框(其名称为Text1)和标签(其名称为Label1)。要求程序运行后,如果在文本框中输入字符,则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 A
A.Private Sub Text1_Change() B. Private Sub Text1_Click()
Label1.caption=Text1.Text Label1.caption=Text1.Text End Sub End Sub
C.Private Sub Label1_Change() D. Private Sub Label1_Click() Label1.caption=Text1.Text Label1.caption=Text1.Text End Sub
(3)命令按钮(Command1):
1、Default属性:当一个命令按钮的Default属性为True时,按回车键和单击该命令按钮的效果相同。
2、Cancel属性:当一个命令按钮的Cancel属性为True时,按ESC键和单击该命令按钮的效果相同。
(4)单选按钮和复选框(Option1和Check1):
1、单选按钮:Value属性的值是True(选中)和False(未选中),Option1.Value=True 等同于Option1.Value用法。
2、复选框:Value属性的值是0(未选中)、1(选中)和2(表示暂时不可用)。Check1.Value=False可以用,但Check1.Value=True不可用(因为True只能转化数值-1而不是1)。
(5)列表框(List1):
1、List属性是一个数组型属性:List1.List(索引),索引可以是数字0、1…,List1.listindex,变量i(List1.Text等同于List1.list(List1.listindex))。
2、MultSelect属性:用来设置一次可以多选表项数。MultSelect属性值为0时,每次只能选择一项;MultSelect属性值为1时,可以同时选择多个项目;MultSelect属性值为2时,可以用辅助键Shift或Ctrl选择多个项目。
3、常用方法:AddItem方法表示添加的是一个项目,而Removeitem方法表示通过删除索引的方式删除项目。RemoveItem 索引索引可以是数字0、1…,List1.listindex,变量i。
(6)组合框(Combo1):
1、Style属性:Style属性值为0时,表示下拉式组合框;Style属性值为1时,表示下简单组合框;Style属性值为2时,表示下拉式列表框。其他功能类似列表框(List1)。(7)图片框和图像框(Picture1和Image1):
1、图片框(Picture1):Autosize属性值为True时,表示图片框大小随图片大小改变而改变;Autosize属性值为False时,表示图片框只能部分显示大图片。
2、图像框(Image1):Stretch属性为True时,图片大小随图像框的大小改变而改变;Stretch属性为True时,图像框的大小随图片大小的改变而改变。
3、两种图形类型都可以按照下面这个方法加载图片:
Picture1.picture=LoadPicture(App.Path & “\图片名称.扩展名”)
Image1.picture=LoadPicture(App.Path & “\图片名称.扩展名”)
如果要清楚图片:
Picture1.picture=LoadPicture(“”)
Image1.picture=LoadPicture(“”)
注意:如果使用App.Path方法需要先保存好窗体文件和工程文件到考生文件夹中。
(8)滚动条(HScroll1):
1、Max和Min属性是分别表示滚动条的最大和最小刻度,刻度值用Value属性值来表示:HScroll1.value。
2、LargeChange和SmallChange属性是分别表示移动滚动条上的左右箭头按钮的移动量和移动滚动条上滚动框的移动量。
3、Scroll和Change事件分别表示拖动滚动条上滚动框的操作和单击滚动条上箭头按钮的操作。
(9)计时器(Timer1):
1、Enabled属性:Enabled属性值为True时,表示计时器可以走动;Enabled属性值为False时,表示计时器停止走动;
2、Interval属性:是表示计时器运动的时间间隔,单位为毫秒。1秒时间:Timer1.Interval=1000。
3、Enabled和Interval这两个属性一般情况下需要一起使用。
知识点4:
(1)Visual Basic常用函数的使用方法:
1、数学函数:
★求平方根:Sqr(n)
★求自然对数Log(n)ln n log78=log e8/log e7(注意非e为底的对数需要如此转换)
★求以e为底的幂值,e x e x Exp(x)
1 n>0
★ Sqn(n)= 0 n=0
★ Rad()-->X=Int(Rnd*(上界—下界+1))+下界(产生随机整数)
2、转换函数:
★ Str(x) 数值x转换成字符串 str(12.75)=”12.75”这样转换12.75之前会多出一位。如果使用Cstr(12.75)=”12.75”这样转换12.75之前不会多出一位。
★Val(x) 字符x转换成数值,但x要一定是数字字符才行,Val(“12.75”)=12.75,如果是含有其他字符Val(“12.7ab”)将无法转换。
★ chr(x) 返回以x为Asccii代码值的字符 chr(97)= ”a”;Asc(x) 给出字符x的Asccii代码值 Asc(“A”)=65
三种类型ASCII代码值转换:
Asc(“0”)~Asc(“9”)-48~57
Asc(“A”)~Asc(“Z”)-65~90
Asc(“a”)~Asc(“z”)-97~122
特殊情况:Asc(“ABC”)=65 只求第一个字符“A”的Ascii代码值★ Fix(x) 将数值型数据x的小数部分舍去 Fix(12.8)=12 Fix(-12.5)=-12; Int(x) 取小于等于x的最大整数当x>0时,用法和Fix一样;当x<0时,Int(-12.3)= -13; Cint(x) 将数值型数据x的小数部分四舍五入 Cint(12.7)=13 Cint(12.3)=12
但是有特殊情况: x 当x是偶数
Cint(x.5)=
x+1 当x是奇数
3、字符函数
★ Left(x,n) 从x字符串左边起取n个字符 Left("ABCDEFG",3)="ABC"; Right(x,n) 从x字符串右边起取n个字符 Right("ABCDEFG",3)="EFG"。
★Mid(x,n1,n2) 从字符串x左边第n1个位置开始向右起取n2个字符
Mid(x,n) 从字符串x左边第n个位置开始向右全部取
Mid("ABCDEFG",3,2)= "CD" Mid("ABCDEFG",3)= "CDEFG"
★Instr(n,s1,s2) 从字符串s1的第n个位置起查找s2在s1中位置,如果n省略,则默认从字符串s1的第1个位置起查找s2在s1中位置
Instr(2,"ABCDEFG","CD")=3
知识点5:
1、运算符:
★算术运算符
运算符的优先级: ^ > -- > (* /) > \ > Mod > (+ --)
★关系运算符
< <= > >= = <> Like Is 运算符优先级相同
★逻辑运算符
运算符的优先级:Not > And > Or > Xor > Eqv
例题:
(1)表达式4 + 5 \ 6 * 7 / 8 Mod 9 的值是 B
A.4 B. 5 C. 6 D. 7
(2) a=3 b=2 c=1 求 Print a>b>c 的结果?
首先a>b的结果是true,然后再Print True>c 此时True需要转换成-1再比较,Print -1>1 结果是False,所以整个输出结果是False。
知识点6:
1、交互函数的使用:
★ InputBox函数:
A=InputBox("提示信息","标题信息","默认值或输入框的值")
例题:
(1) 执行下列语句后,将显示输入对话框,此时如果单击“确定”按钮,则变量strInput的内容是 C
strInput=InputBox("请输入字符串","字符串对话框","字符串")
A."请输入字符串" B. "字符串对话框"
C. "字符串"
D. 空字符串
★ MsgBox函数:
MsgBox “提示信息”, 按钮类型值+图标类型值+默认焦点值, “标题信息”
A= MsgBox “提示信息”, 按钮类型值+图标类型值+默认焦点值, “标题信息”;A的值根据单击什么按钮有关,A的值在[1,7]之间取值。比如:单击“确定”按钮,A=1。
例题:
(1)以上图形所表示的函数表达式为:
MsgBox "请输入查询的学生学号:", 3 + 32 + 256, "学生基本信息查询"
知识点7:
1、选择结构语句(If条件语句):
★单分支条件语句:
格式:① If 条件 Then
语句块
End If (称If块语句)
② If 条件 Then 只有一条语句(称If条语句)
★双分支条件语句:
格式:If 条件 Then
语句块1
Else
语句块2
End If
★多分支条件语句
If 条件1 Then
语句块1
Elseif 条件2 Then
语句块2
。。。。。。
Else
语句块n
End If
其中,条件可以是:关系表达式(a>5)、逻辑表达式(a>5 And c>4)、变量(i)或常数(0)。
例题:
(1)下列程序段的执行结果为 A
X=5
Y=-20
If Not x>0 Then
x=y-3
Else
Y=x+3
End If
Print x-y;y-x
A. -3 3
B. 5 -8
C. 3 -3
D. 25 -25
以上题中的“条件”主要是逻辑表达式。
(2)下列程序段的执行结果为 B
X=2
Y=1
If x*y<1 Then y=y-1 Else y=-1
Print y-x>0
A. True
B. False
C. -1
D.1
以上题中的“条件”主要是关系表达式。
(3)下列程序段的执行结果为 C
Dim x As Integer
If x Then Print x Else Print x-1
A. 1
B. 0
C. -1
D.不确定
以上题中的“条件”主要是变量。
2、选择结构语句(Select Case语句):
Select Case 测试表达式
Case 表达式列表1
语句块1
Case 表达式列表2
语句块2
。。。。。。
Case Else
语句块n
End Select
注意:测试表达式的类型只能是数值数据或字符型,表达式列表的值只要第一个符合测试表达式值的要求,就结束Select Case语句;表达式列表可以是三种结构或三种混合结构:①、1 To 10 ②、1,3,5,6,7,8 ③、Is>10 ④、1,2,,5,7,Is>10
例题:
(1)在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1和Text2的文本框,然后编写如下事件过程:
Private Sub Command1_Click()
n=Text1.text
Select Case n
Case 1 T 10
X=10
Case 2,4,6
X=20
Case Is<10
X=30
Case 10
X=10
End Select
Text2.text=x
End Sub
程序运行后,如果在文本框Text1中输入10,然后单击命令按钮,则在Text2中显示的内容是 A
A. 10
B. 20
C. 30
D.40
3、选择结构语句(IIF函数):
变量=IIF(条件,参数1,参数2)
其中,条件可以是:关系表达式(a>5)、逻辑表达式(a>5 And c>4)、变量(i)或常数(0)。执行过程:条件成立,变量的值就是“参数1”,否则变量的值就是“参数2”。
例题:
(1)设a=6,则执行语句:x=IIF(a>5,-1,0)后,x的值为 D
A. 5
B. 6
C. 0
D. -1
知识点8:
1、循环结构
① For 循环变量=初值 To 终值 Step 步长
循环体
If 条件 Then
语句
Exit For
End If
Next 循环变量
注意:循环如果正常退出时(没有执行Exit For语句),那么循环变量必须
是不管条件成立与否都至少执行一次;While循环是条件成立执行循环体,Until循环是条件不成立执行循环体。
例题:
(1)下列程序段的执行结果为 B
s=0:t=0:u=0
For x=1 To 3
For y=1 To x
For z=y To 3
s=s+1
Next z
t=t+1
Next y
u=u+1
Next x
Print s;t;u
A. 3 6 14
B. 14 6 3
C. 14 3 6
D. 16 4 3
分析:
A组语句和B语句都在X循环内,并且是并列的,所以可以先计算B组语句,A组语句暂时不算,这样很容易求出u=u+1语句循环了三次,则u=3;C组语句和D语句都在Y循环内,并且是并列的,所以可以先计算D组语句,C组语句暂时不算,这样也比较容易求出t=t+1语句循环了六次,则t=6;然后再结合答案很快就能得出答案是选B。
知识点9:
1、数组:
①数组的概念
★等级考试主要考一维数组、二维数组和三维数组(三维的只需知道数组中可以存储多少数据即可)。数组的格式:a(2,3 To 7,-1 To 2),那它的存储空间大小计算:每一维用上界-下界+1计算,例如 (2-0+1)*(7-3+1)*(2-(-1)+1)=3*5*4=60。
★数组的下标下界是根据语句Option Base n来决定:当n=0时,数组下标下界是从0开始;当n=1时,数组下标下界是从1开始。
★数组分为:
固定大小数组: Dim a(10) As Integer
动态大小数组: Dim a() As Integer Redim a(10) ★ Array函数用法:为一个变体型变量创建一个数组。
Dim a as Variant
a=Array(1,2,3,4,5)
因此:a(0)=1 a(1)=2 a(2)=3 a(3)=4 a(4)=5
★注意:如果数组被定义为一下三种类型,(1) 数值型 (2) 字符型 (3)逻辑型,则它们初始化的数组元素数值分别为:0 、空字符串和False 。
例题:
(1)在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
Private Sub Command1_Click()
Dim a(4,4) As Integer
For i=1 To 4
For j=1 To 4
a(i,j)=(i-1)*3+j Next j
Next i
For i=3 To 4
For j=3 To 4
Print a(j,i)
Next j
Next i
End Sub
程序运行后,单击命令按钮,其输出结果为 D 。
A. 6 9
B. 7 10
C. 8 11
D. 9 12
7 10 8 11 9 12 10 13
分析:
对循环和数组结合的问题,往往要先看B组语句输出结果是什么,然后根据B组语句输出结果代入到A
B组语句输出结果:
代入A组语句的结果:
知识点10:
1、过程与函数:
★过程与函数的参数类型有:实参和形参;传递方式有:值传递和地址传递。
★以下程序中,x,y为实参;a,b为形参
注意:实参要与形参的类型、个数要相同。
★在形参a,b之前如果加上关键字ByVal,那么就是值传递;如果加上关键字ByRef或不加关键字,那么就是地址传递。
★过程调用方式有两种:Call Swap(x,y)或Swap x,y (Swap是过程名)
注意:只有地址传递方式才能实现交换功能,值传递方式x,y的值不变。当有事件过程和通用过程一起运行时,先执行事件过程(Command_Click)。
a(3,3) a(4,3)
a(3,4) a(4,4)
9 12
10 13
例题:
(1)假定有如下的Sub过程:
Sub S(x As Single, ByVal y as Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click()
Dim a As Single, b As Single
a=5:b=4
S a,b
Print a,b
End Sub
程序运行后,单击命令按钮,输出结果为_____C_____。
A. 5 4
B. 1 1
C. 1.25 4
D. 1.25 1
程序分析:
首先形参x是地址传递方式,当a传递给x时,因此a与x拥有一个共同存储空间,图形表示:;形参y是值传递方式,当b传递给y时,因此b与y是两个不同存储空间,图形表示:;那么在过程S中:运算x=t/y后,x=1.25,图形表示;因此a的值就是1.25;运算y=t Mod y后,y=1,图形表示:,因为此时b和y存储空间不同,则不影响b的值,则还是4,因此Print a,b的结果就是选择C答案。
知识点11:
1、菜单和鼠标事件
★菜单编辑器的使用:
注意:菜单中的标题可以为空,但不论是第几级菜单名称必须唯一,且不能为空。
★鼠标事件(按下鼠标键事件过程)
主要事件有:Form_MouseDown 、 Form_MouseUp 和 Form_MouseMove。现在以某个为例说明:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
…
End Sub
上述事件过程不仅使用在窗体上(Form_MouseDown),还可以使用于大多数控件上,包括命令按钮(Command1_MouseDown)或文本框(Text1_MouseDown)等。
以上鼠标事件过程的参数,含义如下:
(1)Button 有值1、2和4,分别表示按下左键、右键和中建;
(2)Shift 表示Shift、Ctrl和Alt键的状态,其值分别是1、2和4;
(3)X,Y 表示鼠标光标的坐标位置
★弹出式菜单(菜单和鼠标事件的结合使用)
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=1 Then ‘按下鼠标左键
PopUpmenu File‘通过PopUpmenu方法弹出菜单
End If ‘File是一级菜单的名称
End Sub
运行效果:
2、公共对话框(又称通用对话框)
★通用对话框是我们考试中唯一一个控件箱中没有的控件,需要我们自己添加的,添加的方法是在“工程”菜单的“部件”项中选择“Microsoft Common Dialog Control 6.0”后,才会在控件箱中出现通用对话框图标。
★通用对话框图形
根据以上图形,相应的程序代码如下:
注意:CommonDialog.FilterIndex = 索引(索引是从1开始)
知识点12:
1、文件
文件包括三种:顺序文件、随机文件和二进制文件
①顺序访问:文件中数据是以ASCII码存储的。
②随机访问:文件长度记录是固定不变的,数据类型可以不同,数据以二
进制方式存储在文件中,可以任意时候,任意地方访问。
③二进制访问:必须知道数据是如何写入文件的。
★如果源文件是字符类型,那么读写文件如下所示:
读文件的格式:
Open App.Path & "\文件名(In.txt)" For Input As #文件号(#1)
Do while Not Eof(文件号)
Input #文件号,变量
…
Loop
Close #文件号
写文件格式:
Open App.Path & "\文件名(Out.txt)" For Output(Append) As #文件号(#1)
Print #文件号,变量
Close #文件号
注意:当写文件以Output方式时,原来的文件内容将被覆盖;当写文件以Append方式时,新的文件内容将被添加到文件尾部;
★如果源文件是数值类型,那么读写文件如下所示:
Dim a(10) As Integer
Open App.Path & "\文件名(In.txt)" For Input As #文件号(#1)
For i=1 To 10
Input #文件号,a(i)
…
Next i
Close #文件号
写文件格式:
Open App.Path & "\文件名(Out.txt)" For Output(Append) As #文件号(#1)
For i=1 To 10
Print #文件号,a(i)
Next i
Close #文件号
例题:
(1)在考生文件夹下有文件in5.txt,文件中有字符串“0&1%$s#2&3!45u6ydf7ff@8|{9er”。请在Forml的窗体上画一个文本框,名称为Text1,能显示多行;在画一个命令按钮,名称为Cl,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容中数字字符显示在文本框里。然后单击“存盘”按钮,把文本框中的内容存到文件out5.txt中。如图所示:
根据题目要求,所编写程序如下:
(2)在考生文件下有文件in.txt,文件有10个数据:123 521 362 821 400 300 710 990 120 500. 请在Forml的窗体上画一个文本框,名称为Text1,能显示多行;在画一个命令按钮,名称为Cl,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框里,然后统计10 个数的最大数、最小数和它们的和,并把最大数、最小数和它们的和写到“out.txt”文件中。如图所示:
根据题目要求,所编写程序如下:
Visual Basic程序设计基础知识要点(程序设计篇)全国计算机等级考试中常用的程序编程部分:
一、求最大数、最小数、求和以及求平均数
二、求阶层
三、求最大公约数
四、求素数
五、求水仙花数(拆数法)
六、排序(选择排序、直接插入排序和冒泡排序)
七、字符操作
1、字符串取反(反向输出字符串)
2、判断字符串中的某个字符是否为字母
3、统计每类字符的个数
八、矩阵求法(二维数组)
九、文件读写操作
1、字符型读写操作
2、数值型读写操作
九大问题具体例子分析:
一、求最大数、最小数、求和以及求平均数
例题:随机产生10个两位整数,并存入数据a中,然后分别求10个元素中的最大数、最小数、求10个元素之和以及它们的平均数。
Private Sub Command1_Click()
Dim a(10) As Integer, i As Integer, Max As Integer, Min As Integer Dim Sum as Integer, Avg As Single
Sum=0
For i= 1 To 10
a(i)=Int(Rnd*90)+10 ’产生10—99之间的随机整数
Next i
Max=a(1):Min=a(1) ’假设最大数和最小数
For i= 1 To 10
If Max Max=a(i) End If If Min>a(i) Then ’求最小数 Min=a(i) Then End if Sum=Sum+a(i) ’求和 Next i Avg=Sum/10 ’求平均数 Print “最大数:”;Max;“最小数:”;Min;“和:”;Sum;“平均数:”;Avg End Sub 二、求阶层 例题:求10!. Private Sub Command1_Click() Dim Sum As Long, i As Integer Sum=1 For i= 1 To 10 Sum=Sum*i Next i Print “10!=”;Sum End Sub 三、求最大公约数 例题:求M和N两个数的最大公约数。 Private Sub Command1_Click() Dim M As Integer, N As Integer, R As Integer M=36:N=24 Do R=M Mod N M=N N=R Loop While R<>0 ’或 Loop Until R=0 Print “M和N的最大公约数为:”;M End Sub 四、求素数 例题:求100—200之间的所有素数,并按每行5个元素格式输入所有素数。 Private Sub Command1_Click() Dim n As Integer ,i As Integer j As Integer For n = 100 To 200 For i = 2 To n-1 ’n-1可以是n/2,也可以是Sqr(n)形式 If n Mod i =0 Then Exit For Next i If i>n-1 Then j=j+1 ’统计素数个数 Print n; If j Mod 5 =0 Then Print ’输出5个数换行 End If Next n End Sub 五、求水仙花数(拆数法) 例题:求100—999之间的所有水仙花数,并将所有水仙花数在文本框中显示。所谓水仙花数:即153=1^3+5^3+3^3条件成立。 方法1:(数值型:使用运算符Mod 和 \) Private Sub Command1_Click() Dim i As Integer ,a As Integer ,b As Integer ,c As Integer For i = 100 To 999 a=i\100’取百位数 b=i\10 Mod 10 ’取十位数 c=i Mod 10 ’取个位数 If i=a^3+b^3+c^3 Then Text1.Text=Text1.Text & i & Space(2) End If Next i End Sub 方法2:(字符型:使用函数Mid、Val和CStr) Private Sub Command1_Click() Dim i As Integer ,a As Integer ,b As Integer ,c As Integer For i = 100 To 999 a= Val(Mid(Cstr(i),1,1))’取百位数 b= Val(Mid(Cstr(i),2,1))’取十位数 c= Val(Mid(Cstr(i),3,1))’取个位数 If i=a^3+b^3+c^3 Then Text1.Text=Text1.Text & i & Space(2) End If Next i End Sub 六、排序问题 例题:随机产生10个两位整数,并存入数据a中,然后将这10个元素从小到 大排序(或从大到小),并将排序号的数组显示在文本框中。 方法1:选择排序 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, j As Integer ,temp As Integer For i= 1 To 10 a(i)=Int(Rnd*90)+10 ’产生10—99之间的随机整数 Next i For i= 1 To 9 ’比较n-1轮 For j = i+1 To 10 ’每一轮比较几次