77范文网 - 专业文章范例文档资料分享平台

2006年4月全国计算机等级考试二级VB笔试试题(3)

来源:网络收集 时间:2019-03-09 下载这篇文档 手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:或QQ: 处理(尽可能给您提供完整文档),感谢您的支持与谅解。点击这里给我发消息

Next i Max=arr(1) Min=arr(1) For i=1 To 100 If【7】Then Max=arr(i) End If If【8】Then Min=arr(i) End If Next i

Print\;Max,\;Min End Sub

程序运行后,单击命令按钮,将产生100个1000以内的随机整数,放入数组arr中,然后查找并输出这100个数中(8)在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框,如图所示,然后编写如下程序: Function Fun(x As Integer,ByVal y As Integer)As Integer x=x+y If x<0 Then Fun=x Else Fun=y End If

End Function

Private Sub Command1_Click() Dim a As Integer,b As Integer a=-10:b=5

Text1.Text=Fun(a,b) Text2.Text=Fun(a,b) End Sub

程序运行后,单击命令按钮,Text1和Text2文本框显示的内容分别是【9】和【10】。 (9)在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编 写如下代码: Dim SaveAll As String Private Sub Command1_Click() Text1.Text=Left(UCase(SaveAll),4) End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub

程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是【11】。 (10)在窗体上画1个命令按钮和1个通用对话框,其名称分别为Command1和CommonDialog1,然后编写如下事件过程: Private Sub Command1_Click() CommonDialog1.【12】=\打开文件\

CommonDialog1.Filter=\CommonDialog1.InitDir=\:\\CommonDialog1.ShowOpen End Sub

该程序的功能是,程序运行后,单击命令按钮,将显示“打开”文件对话框,其标题是“打开文件”,在“文件类型”栏内显示“AIl Files(*.*)”,并显示C盘根目录下 的所有文件,请填空。

(11)在窗体上画1个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load()

Open\:\temp\dat.txt\Text1.Text=\End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) lf【13】=13 Then

If UCase(Text1.Text)=【14】Then Close 1 End Else

Write#1,【15】 Text1.Text=\End If End If

End Sub

以上程序的功能是,在D盘temp目录下建立1个名为dat.txt的文件,在文本框中输入字符,每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则结束程序。请填空。 的最大值Max和最小值Min,请填空。 来

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,免费范文网,提供经典小说综合文库2006年4月全国计算机等级考试二级VB笔试试题(3)在线全文阅读。

2006年4月全国计算机等级考试二级VB笔试试题(3).doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印 下载失败或者文档不完整,请联系客服人员解决!
本文链接:https://www.77cn.com.cn/wenku/zonghe/504706.html(转载请注明文章来源)
Copyright © 2008-2022 免费范文网 版权所有
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ: 邮箱:tiandhx2@hotmail.com
苏ICP备16052595号-18
× 注册会员免费下载(下载后可以自由复制和排版)
注册会员下载
全站内容免费自由复制
注册会员下载
全站内容免费自由复制
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: