延边大学计算机VB期末考试试题整理填空Word格式文档下载.docx
- 文档编号:15382897
- 上传时间:2022-10-29
- 格式:DOCX
- 页数:45
- 大小:169.30KB
延边大学计算机VB期末考试试题整理填空Word格式文档下载.docx
《延边大学计算机VB期末考试试题整理填空Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《延边大学计算机VB期末考试试题整理填空Word格式文档下载.docx(45页珍藏版)》请在冰豆网上搜索。
APPEND
append
Append
关闭所有已经打开的文件,应使用语句_____。
CLOSE
close
Close
如果要将变量a在过程中定义为静态的整型变量,应使用的语句是_____。
statica%
staticaasinteger
Statica%
StaticaAsInteger
MsgBox函数的返回值的类型为_____。
数值型
文本框的默认属性是_____。
Text
text
TEXT
标签控件的默认属性是_____。
CAPTION
Caption
caption
【程序说明】窗体上已建立命令按钮Command1(开始)、Command2(结束)和文本框Text1,
Text1中输入字符个数不得超过100个。
开始运行时,“结束”命令按钮不能响应;
按“开始”
命令按钮后,将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列,并在窗体上
输出重新排列后的字符串,同时“结束”命令按钮能响应,“开始”按钮不能响应。
PrivateSubCommand1_Click()
DimnAsByte,iAsByte,jAsByte,pAsByte
Dima(100)AsString*1,str1AsString,tAsString
str1=Text1.Text:
n=Len(str1)
Fori=1Ton:
_____:
Nexti
Fori=1Ton-1
p=i
Forj=i+1Ton
Ifa(p)>
a(j)Then_____Nextj
Ifp<
>
iThent=a(i):
a(p)=t
Printa(i);
:
_____
Command1.Enabled=False
EndSub
PrivateSubCommand2_Click()
End
PrivateSubForm_Load()
Command2.Enabled=False
【空1】错误
【学生答案】
【参考答案】
False
============================================================
【空2】错误
Date
【空3】错误
CommonDialog1.Color
【空4】错误
m1
【程序说明】文件c:
\a1.dat中存放若干个学生信息的记录(行),按Command1按钮后,
查找文件中姓名与输入姓名相同的记录,找到则删除该记录。
DimbsAsString,csAsString
Open"
c:
\a1.dat"
ForInputAs#1
temp.dat"
bs=InputBox("
输入学生姓名"
DoWhileNotEof
(1)
LineInput#1,cs
ifInStr(cs,Trim(bs))=_____Thenprint#2,cs
Loop
Close#1:
Close#2
Kill"
Name_____
[无]
ForOutputAs#2
"
As"
【程序说明】以下是一个简化了的猜数游戏程序,自动生成一个小于100的随机正整数
与您用输入对话框输入的数进行对比,猜中后输出相关信息,过程结束。
单击窗体则开始猜数,如要终止VisualBasic程序运行可以按Ctrl+Break组合键。
PrivateSubForm_Click()
DimrAsInteger,xAsInteger,iAsInteger
Randomize:
r=_____
Fori=1To10
x=Val(InputBox("
请输入一个整数:
))
Ifx<
rThenm=MsgBox("
太小了,请继续猜!
Ifx>
太大了,请继续猜!
Ifx=rThen
Print"
猜中了!
共猜了"
+_____+"
次"
Ifi<
=5ThenPrint"
太棒了!
ElsePrint"
加油!
EndIf
1
【程序说明】右击窗体则打开Windows自带的计算器“C:
\windows\calc.exe”;
单击“退出”按钮时将右击窗体的次数写入磁盘文件。
_____
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle)
IfButton=2Thenn=n+1:
Shell_____
C:
For_____
Print#1,n:
Close#1
DimnAsInteger
\windows\calc.exe"
Output
End
【程序说明】本程序求3~100之间的所有素数(质数)并统计个数;
同时将这些素数从
小到大依次写入顺序文件e:
\dataout.txt;
素数的个数显示在窗体Form1上。
DimcounAsInteger,flagAsBoolean
Dimt1AsInteger,t2AsInteger
coun=0
Fort1=3To100
flag=True
Fort2=2ToInt(Sqr(t1))
If_____thenflag=False
Nextt2
coun=coun+1
Write#1,t1
Nextt1
Open"
e:
\dataout.txt"
ForOutputAs#1
t1Modt2=0
IfflagThen
Printcoun
【程序说明】窗体上有两个命令按钮:
Command1(显示)和Command2(退出)。
下列程序运行时,
“显示”按钮能响应,“退出”按钮不能响应;
单击“显示”按钮后,在窗体上显示一个用字符“*”
组成的5层的金字塔,同时“显示”按钮不能响应,“退出”按钮能响应。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 延边 大学计算机 VB 期末考试 试题 整理 填空