- 1、本文档共4页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
在名称为Form1的窗体上建立一个文本框(名称为Text1,MultiLine属性为True,
ScrollBars属性为2)和两个命令按钮(名称分别为Cmd1和Cmd2,标题分别为,标题分别为读入数据读入数据
和和计算保存计算保存)(如图所示)。
要求程序运行后,如果单击要求程序运行后,如果单击读入数据读入数据按钮,则读入按钮,则读入文件中的100个整数,放入一
个数组中(数组下界为1),同时在文本框中显示出来;如果单击),同时在文本框中显示出来;如果单击计算保存计算保存按钮,则计算
数组中大于或等于400并且小于800的所有数之和,把求和结果在文本框Text1中显示出来,
同时把结果存入考生文件夹中的文件result.txt中。(在prog.bas中的putdata过程可以
把结果存入result.txt文件,考生可以把该模块文件添加到自己的工程中,直接调用此过
程)。
注意:文件必须存放在考生文件夹下,窗体文件名为wy7.frm,工程文件名为wy7.vbp,计
算结果存入result.txt,否则没有成绩。
新建一工程,在上面放置一文本框设置其MultiLine属性为True,ScrollBars属性为True,
再建立两个命令按钮(名称分别为Cmd1和Cmd2,标题分别为,标题分别为读入数据读入数据和和计算保存计算保存),
整个工程的代码如下:
Dimi(1To100)AsInteger
PrivateSubCmd1_Click()
DimjAsInteger
j=0j=0
Forj=1To100
Input#1,i(j)
Next
Close#1
Forj=1To100
Text1.Text=Text1.Texti(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
(1)在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?及所有注释符(即号),但不能修改其它部分。存盘
时不得改变文件名和文件夹。
本题描述如下:
在窗口中有一个RichText文本框控件(名称为rtx1)和一个文本框控件(名称为Text1),
两个命令按钮,名称分别为Command1和Command2,标题分别为,标题分别为加入加入、、统计字符
个数个数。要求程序运行后,单击command1将考生文件夹下的wy01.txt的内容显示到rtx1中;
单击单击统计字符个数统计字符个数按钮统计Text1中有多少个字符,将结果显示在Text1中。
***********************************************************************
(2)在考生文件夹下有工程文件wy6.vbp及窗体文件wy6.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?及所有注释符(即号),但不能修改其它部分。存盘
时不得改变文件名和文件夹。
本题描述如下:
在窗体上有一个名为Image1的图像框,要求程序运行后,鼠标左键点击图像框,则图像框
变大;鼠标右键点击图像框,图像框变小。
1、RichTextBox控件:RichTextBox控件给用户提供了很多比常用的TextBox控件更高级的
格式和功能,允许用户进行多样式的输入和编辑。
语法:
RichTextBox
2、Count属性:返回Long(长整数),包含集合中的对象数目。
MouseDown、MouseUp事件
这些事件是当按下或者释放鼠
文档评论(0)