visual basic.docx
- 文档编号:8305222
- 上传时间:2023-01-30
- 格式:DOCX
- 页数:23
- 大小:24.31KB
visual basic.docx
《visual basic.docx》由会员分享,可在线阅读,更多相关《visual basic.docx(23页珍藏版)》请在冰豆网上搜索。
visualbasic
1.MsgBox函数在对话框中显示消息,等待用户单击按钮,并返回一个Integer告诉用户单击哪一个按钮。
语法MsgBox(prompt[,buttons][,title][,helpfile,context])
Prompt必需的。
字符串表达式,作为显示在对话框中的消息。
如果prompt的内容超过一行,则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13)&Chr(10))将各行分隔开来。
Buttons可选的。
数值表达式 hhobj_6.Click()>是值的总和,指定显示按钮的数目及形式,使用的图标样式,缺省按钮是什么以及消息框的强制回应等。 Title可选的。 在对话框标题栏中显示的字符串表达式。 如果省略title,则将应用程序名放在标题栏中。 Helpfile可选的。 字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。 Context可选的。 数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。 Input函数返回String hhobj_4.Click()>,它包含以Input或Binary方式打开的文件中的字符。 语法: Input(number,[#]filenumber) number必要的。 任何有效的数值表达式 hhobj_5.Click()>,指定要返回的字符个数。 filenumber必要的。 任何有效的文件号 hhobj_6.Click()>。 2.复选框用来表示状态,在程序运行期间可以改变其状态。 复选框标题由Caption属性来设置,复选框的Value属性用来表示复选框的状态,其取值有: 0---表示复选框未被选中; 1---表示复选框被选中; 2---表示复选框被禁止使用(灰色)。 3.在VisualBasic中,定义变量的关键字为Dim、Static、Redim、Public或Private,它们在使用上是不同的,Dim用于标准模块、窗体模块或过程中定义变量或者数组;Static用于过程中定义静态变量或数组;Public用于在标准模块中定义全局变量或数组;Redim主要用于定义数组。 4.在VisualBasic中,可以接受不同的图形文件,见下表。 VisualBasic支持的图形文件 文件类型 文件扩展名 位图文件 .bmp;.dib 图标文件 .ico;.cur Windows图元文件 .wmf;.emf GIF格式图形压缩文件 .gif JPEG格式图形压缩文件 .jpg 5.有关Load语句、Unload语句、Show方法和Hide方法的,在此简单介绍一下这些语句和方法: Load语句 格式: Load窗体名称 Load语句把一个窗体装入内存,执行Load语句后,可以引用窗体中的控件及各种属性,但此时窗体没有显示出来,"窗体名称"是窗体的Name属性; Unload语句 格式: Unload窗体名称 该语句与Load语句的功能相反,它清除内存中指定的窗体; Show方法 格式: [窗体名称].Show[模式] Show方法用来显示一个窗体。 如果省略"窗体名称",则显示当前窗体。 参数"模式"用来确定窗体的状态,可以取两种值,即0和1(不是False和True)。 当"模式"值为1(或常量vbModal)时,表示窗体是"模态型"窗体,在这种情况下,鼠标只在此窗体内起作用,不能到其他窗口内操作,只有关闭该窗口才能对其他窗口进行操作;当"模式"值为0(或省略参数"模式"值)时,表示窗体为"非模态型"窗体,不用关闭该窗体就可以对其他窗体进行操作; Hide方法 格式: [窗体名称].Hide Hide方法使窗体隐藏,即不在屏幕上显示,但仍在内存中,因此,它与Unload语句的作用不同。 6.下面有关注释语句的格式,错误的是 A)Rem注释内容 B)′注释内容 C)a=3: b=2′对a、b赋值 D)PrivateSubCommand1_MouseDown(buttonAsInteger,shiftAsInteger,_Rem鼠标按下事件的命令调用过程XAsSingle,YAsSingle) 解析: 程序中添加注释语句是为了提高程序的可读性,一般格式为: Rem注释内容或′注视内容;注释语句是非执行语句,仅对程序的有关内容起注释作用,它不被解释和编译,故选项A)和选项B)没有错误;任何字符都可以在注释行中作为注释内容,注释语句通常放在过程、模块的开头作为标题用,也可放在执行语句(单行或者复合语句行)的后面,但不可以放在续行符的后面,所以选项C)没有错误;所以本题的正确答案是选项D)。 7.在VisualBasic中有两类过程,一类是系统提供的内部函数和事件过程;另一类是用户根据自己的需要定义的,供事件过程的多次调用,而第二类过程中,我们现在涉及最多的是子过程。 它们的共同点都是完成某种特定功能的一组程序代码;不同的是函数是带有返回值的特殊过程,所以函数过程定义时有返回值的类型说明。 8.Chr函数返回String,其中包含有与指定的字符代码相关的字符。 其语法格式为: Chr(charcode) charcode必要参数,是一个用来识别某字符的Long。 Asc函数返回一个Integer,代表字符串中首字母的字符代码。 其语法格式为: Asc(string) string必要的参数,可以是任何有效的字符串表达式。 例题: 1.在名称为Form1的窗体上有一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为"读入数据"和"计算保存",如图7-6所示。 要求程序运行后,如果单击"读入数据"按钮,则读入"in.txt"文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击"计算保存"按钮,则计算数组中前30个数的平均值(结果四舍五入为整数),并把结果在文本框Text1中显示出来,同时把结果存入考生文件夹中的文件"out.txt"中。 参考代码: OptionExplicit Dimi(1To100)AsInteger PrivateSubCmd1_Click() DimjAsInteger Open"in.txt"ForInputAs#1 Forj=1To100 Input#1,i(j) Text1.Text=Text1.Text&i(j)&Space(5) Next Close#1 EndSub PrivateSubCmd2_Click() DimtempAsLong DimjAsInteger Forj=1To30 temp=temp+i(j) Next temp=temp/30 Text1.Text=temp putdata"out.txt",temp EndSub 标准模块mode.bas的代码: OptionExplicit Subputdata(t_FileNameAsString,t_StrAsVariant) DimsFileAsString sFile="\"&t_FileName OpenApp.Path&sFileForOutputAs#1 Print#1,t_Str Close#1 EndSub 2.在名称为Form1的窗体上有一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮名称分别为Cmd1和Cmd2,标题分别为"读入数据"和"计算保存",如图6-5所示。 要求程序运行后,如果单击"读入数据"按钮,则读入"in.txt"文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击"计算保存"按钮,则计算其中前50个数之和,并把求和结果在文本框Text1中显示出来,同时把结果存入考生文件夹中的文件"out.txt"中。 参考代码: OptionExplicit Dimi(1To100)AsInteger PrivateSubCmd1_Click() DimjAsInteger OpenApp.Path&"\in.txt"ForInputAs#1 Forj=1To100 Input#1,i(j) Text1.Text=Text1.Text&i(j)&Space(5) Next Close#1 EndSub PrivateSubCmd2_Click() DimjAsInteger DimtempAsLong Forj=1To50 temp=temp+i(j) Next Text1.Text=temp putdata"out.txt",temp EndSub 3.计算100-200之间所有素数之和 参考代码: PrivateSubCmd1_Click() DimiAsInteger DimtempAsLong temp=0 Fori=100To200 Ifisprime(i)Then temp=temp+i EndIf Next Text1.Text=temp putdata"out.txt",temp EndSub 标准模块代码: OptionExplicit Subputdata(t_FileNameAsString,T_StrAsVariant) DimsFileAsString sFile="\"&t_FileName OpenApp.Path&sFileForOutputAs#1 Print#1,T_Str Close#1 EndSub Functionisprime(t_IAsInteger)AsBoolean DimJAsInteger isprime=False ForJ=2Tot_I/2 Ift_IModJ=0ThenExitFor NextJ IfJ>t_I/2Thenisprime=True EndFunction 4.在名称为Form1的窗体上有一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2,两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为"读入数据"和"排序显示保存",如图5-6所示。 程序运行后,如果单击"读入数据"按钮,则读入in.txt文件中的100个整数,放入一个数组中(数组下界为1);如果单击"排序显示保存"按钮,则对这100个整数按从大到小进行排序,把排序后的全部数据在文本框Text1中显示出来,然后存入考生文件夹的out.txt文件中。 (排序的方法有多种,如冒泡排序、选择排序等,本题用的是选择排序法。 选择法排序的思想是: 每一次循环从数组的n-i+1(I=1,2,…,n-1)个元素中选择一个值最小的元素与你n-i+1个元素的前面那个元素交换位置,即与整个数组的第i个位置的元素交换位置。 如此下去,直到i=n-1时,排序结束。 ) 参考代码: OptionExplicit Dimi(1To100)AsInteger PrivateSubCmd1_Click() DimjAsInteger OpenApp.Path&"\in.txt"ForInputAs#1 Forj=1To100 Input#1,i(j) Text1.Text=Text1.Text&i(j)&Space(5) Next Close#1 EndSub PrivateSubCmd2_Click() DimjAsInteger DimkAsInteger DimtempAsInteger DimflagAsBoolean Forj=1To100 flag=False Fork=1To100-j Ifi(k) temp=i(k) i(k)=i(k+1) i(k+1)=temp flag=True EndIf Next IfNotflagThen ExitFor EndIf Next Text1.Text="" Forj=1To100 Text1.Text=Text1.Text&i(j)&Space(5) Next putdatai,100 EndSub 5.在窗体上有3个名称分别为Text1、Text2和Text3的文本框,一个名称为C1,标题为"计算"的命令按钮,如图4-4所示。 要求程序运行后,在Text1和Text2中分别输入两个整数,单击"计算"按钮后,可把两个整数之间的所有整数(含两个整数)累加起来并在Text3中显示。 注意: 要使文本框中的字符用于算术运算,首先要利用Val将文本框中输入的数字字符转换为数字类型(文本框中的内容默认为字符串类型) 参考代码: OptionExplicit PrivateSubC1_Click() DimiAsInteger,sAsInteger DimaAsInteger,bAsInteger a=Val(Text1.Text) b=Val(Text2.Text) Ifa>bThen i=a a=b b=i EndIf s=0 Fori=aTob s=s+i Nexti Text3.Text=s EndSub 6.在窗体上建立一个名称为Text1的文本框,建立一个名称为Cmd1,标题为"计算"的命令按钮,如图4-5所示。 要求程序运行后,如果单击"计算"按钮,则求出100-200之间所有可以被3整除的数的总和,在文本框中显示出来,并把结果存入考生文件夹下的out.txt文件中。 参考代码: PrivateSubCmd1_Click() DimtempAsLong DimiAsInteger Fori=100To200 IfiMod3=0Then temp=temp+i EndIf Next Text1.Text=temp putdata"out.txt",temp EndSub 7.在名称为Form1的窗体上有一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2,两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为"读入数据"和"排序显示保存",如图4-6所示。 程序运行后,如果单击"读入数据"按钮,则读入"in.txt"文件中的100个整数,放入一个数组中(数组下界为1);如果单击"排序显示保存"按钮,则对这100个整数按从小到大进行排序,把排序后的全部数据在文本框Text1中显示出来,然后存入考生文件夹中的文件"result.txt"中。 分析: 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 文本框显示的内容由Text属性设置;按钮的标题由Caption属性设置,单击命令按钮触发Click事件;在本题中涉及到文件的操作,读入顺序文件以顺序的方式打开,用Input#语句读取数据,另外需要注意的是对文件操作完后,一定要关闭文件。 参考代码: OptionExplicit Dimi(1To100)AsInteger PrivateSubCmd1_Click() DimjAsInteger Open"in.txt"ForInputAs#1 Forj=1To100 Input#1,i(j) Text1.Text=Text1.Text&i(j)&Space(5) Next Close#1 EndSub PrivateSubCmd2_Click() DimjAsInteger DimkAsInteger DimtempAsInteger DimflagAsBoolean Forj=1To100 flag=False Fork=1To100-j Ifi(k)>i(k+1)Then temp=i(k) i(k)=i(k+1) i(k+1)=temp flag=True EndIf Next IfNotflagThen ExitFor EndIf Next Text1.Text="" Forj=1To100 Text1.Text=Text1.Text&i(j)&Space(5) Next putdatai,100 EndSub 8.在名称为Form1的窗体上有一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2,两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为"读入数据"和"保存数据"),如图3-5所示。 程序运行后,如果单击"读入数据"按钮,则读入"in.txt"文件中的100个整数,放入一个数组中(数组下界为1),并在文本框Text1中显示出来;如果单击"保存数据"按钮,则把数组中的前50个数据在文本框Text1中显示出来,并存入考生文件夹中的文件"result.txt"中。 解析: 文本框显示的内容由Text属性设置,Multiline属性决定文本框是否可多行显示;按钮的标题由Caption属性设置,单击命令按钮触发Click事件。 题中涉及到文件的操作,读入顺序文件以顺序的方式打开,用Input#语句读取数据,另外需要注意的是对文件操作完成后,一定要关闭文件。 参考代码: Dimi(1To100)AsInteger PrivateSubCmd1_Click() DimjAsInteger j=0 OpenApp.Path&"\in.txt"ForInputAs#1 Forj=1To100 Input#1,i(j) Next Close#1 Forj=1To100 Text1.Text=Text1.Text&i(j)&Space(5) Next EndSub PrivateSubCmd2_Click() DimtempAsLong DimjAsInteger Text1.Text="" Forj=1To50 Text1.Text=Text1.Text&i(j)&Space(5) Next putdatai,50 EndSub 9.在名称为Form1的窗体上有一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为"读入数据"和"计算保存",如图2-6所示。 要求程序运行后,如果单击"读入数据"按钮,则读入"in.txt"文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击"计算保存"按钮,则计算数组中大于或等于400并且小于800的所有数之和,把求和结果在文本框Text1中显示出来,同时把结果存入考生文件夹中的文件result.txt中。 解析: 文本框显示的内容由Text属性设置;按钮的标题由Caption属性设置,单击命令按钮触发Click事件;在本题中涉及到文件的操作,读入顺序文件以顺序的方式打开,用Input#语句读取数据,另外需要注意的是对文件操作完后,一定要关闭文件。 参考代码: Dimi(1To100)AsInteger PrivateSubCmd1_Click() DimjAsInteger j=0 OpenApp.Path&"\in.txt"ForInputAs#1 Forj=1To100 Input#1,i(j) Next Close#1 Forj=1To100 Text1.Text=Text1.Text&i(j)&Space(5) Next EndSub PrivateSubCmd2_Click() DimtempAsLong DimjAsInteger Forj=1To100 Ifi(j)>=400Andi(j)<800Then temp=temp+i(j) EndIf Next Text1.Text=temp putdatatemp EndSub 10.在名称为Form1的窗体上有一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为"读入数据"和"计算保存",如图8-5所示。 要求程序运行后,如果单击"读入数据"按钮,则读入"in.txt"文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击"计算保存"按钮,则计算小于或等于700的所有数之和,并把求得的结果在文本框Text1中显示出来,同时把该结果存入考生文件夹中的文件"out.txt"中。 解析: 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 文本框显示的内容由Text属性设置,Multiline属性决定文本框是否可多行显示;按钮的标题由Caption属性设置,单击命令按钮触发Click事件。 题中涉及到文件的操作,读入顺序文件以顺序的方式打开,用Input#语句读取数据,另外需要注意的是对文件操作完后,一定要关闭文件。 参考代码: OptionExplicit Dima(1To100) DimiAsInteger DimnAsInteger DimfAsInteger DimsAsLong PrivateSubCmd1_Click() OpenApp.Path&"\in.txt"ForInputAs#1 Fori=1To100 Input#1,n a(i)=n Text1.Te
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- visual basic