文档介绍：该【VB期末考试上机题编程 】是由【雨林书屋】上传分享，文档一共【18】页，该文档可以免费在线阅读，需要了解更多关于【VB期末考试上机题编程 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。VB期末考试上机题编程答案
VB期末考试上机题编程答案
1/18
VB期末考试上机题编程答案
页眉内容
VB期末考试上机题编程答案
,编写一个找出全部四位好运数显示在列表框中,并将好运数的个数显示在文本框中。
所谓好运数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存
,保存在D盘的VBTest文件夹中。如不按要求保存,造成文件没法上传,结果自负!详尽要求:
1、程序参照界面以以下图,编程时不得增添或减少界面对象或改变对象的种类,窗体及界面元素大小
适中,且均可见;
2、单击"查找"按钮,则开始查找并在列表框中显示结果,并在文本框中显示好运数的个数;
3、单击“除去”按钮,则将列表框和文本框清空;
4、单击“退出”按钮,结束程序运转;
5、程序中应包括一个过程,用于判断一个数是不是好运数。
解:PrivateSubCommand1_Click( )
DimiAsInteger,aAsInteger
Fori=1000To9999
Ifk(i):a=a+1
Nexti
=a
EndSub
PrivateSubCommand2_Click( )
GtSB5n90g0w
VB期末考试上机题编程答案
VB期末考试上机题编程答案
18/18
VB期末考试上机题编程答案
页眉内容
=""
EndSub
PrivateSubCommand3_Click( )
End
EndSub
PrivateFunctionk(nAsInteger)AsInteger
DimiAsInteger,aAsInteger,s1AsInteger,s2AsInteger
DimsAsString
s=CStr(n)
Fori=1ToLen(s)/2
s1=s1+Mid(s,i,1)
s2=s2+Mid(s,Len(s)+1-i,1)
Nexti
Ifs1=s2Thenk=True
EndFunction
新建一个工程,编写求某一自然数因子和的程序。要求经过文本框获得输入的自然数,计算后将所
计算获得的因子和显示在另一文本框中。,保存在
D盘的VBTest文件夹中。如不按要求保存,造成文件没法上传,结果自负!
详尽要求:
VB期末考试上机题编程答案
VB期末考试上机题编程答案
3/18
VB期末考试上机题编程答案
GtSB5n90g0w
VB期末考试上机题编程答案
VB期末考试上机题编程答案
18/18
VB期末考试上机题编程答案
页眉内容
1、程序参照界面以以下图,编程时不得增添或减少界面对象或改变对象的种类,窗体及界面元素大小
适中,且均可见;
2、单击"乞降"按钮,则在文本框中显示计算获得的因子和;
3、单击“除去”按钮,则将文本框清空,焦点设置在第一个文本框;
4、单击“退出”按钮,结束程序运转;
5、在程序中应包括一个用于计算自然数因子和的函数过程YinZi(n)。
解;PrivateSubCommand1_Click( )
DimnAsInteger
n=Val()
Callyinzi(n)
=yinzi(n)
EndSub
PrivateFunctionyinzi(nAsInteger)AsInteger
DimiAsInteger
Fori=1Ton/2
IfnModi=0Thenyinzi=yinzi+i
Nexti
EndFunction
PrivateSubCommand2_Click( )
=""
VB期末考试上机题编程答案
VB期末考试上机题编程答案
5/18
VB期末考试上机题编程答案
GtSB5n90g0w
VB期末考试上机题编程答案
VB期末考试上机题编程答案
18/18
VB期末考试上机题编程答案
页眉内容
=""
EndSub
PrivateSubCommand3_Click( )
End
EndSub
,编写一个程序,判断随机生成的10个三位正整数是不是降序数。所谓降序数是指百
位数大于十位数且十位数大于个位数的数。,保存
在D盘的VBTest文件夹中。如不按要求保存,造成文件没法上传,结果自负!详尽要求:
1、程序参照界面以以下图,编程时不得增添或减少界面对象或改变对象的种类,窗体及界面元素大小
适中,且均可见;
2、单击"执行"按钮,随机生成10个三位正整数,显示在左侧的列表框中,将判断结果参依旧图的格式
显示在右侧的列表框中;
3、单击“除去”按钮,则将两个列表框清空;
4、单击“退出”按钮,结束程序运转;
5、程序中应包括一个名为jx的函数过程,用于判断一个正整数可否为降序数。
解;PrivateFunctionjx(nAsInteger)AsBoolean
DimiAsInteger
VB期末考试上机题编程答案
VB期末考试上机题编程答案
7/18
VB期末考试上机题编程答案
GtSB5n90g0w
VB期末考试上机题编程答案
VB期末考试上机题编程答案
18/18
VB期末考试上机题编程答案
页眉内容
DimaAsInteger,bAsInteger
Fori=2ToLen(Str(n))
a=Val(Mid(n,i-1,1))
b=Val(Mid(n,i,1))
Ifa<=bThenExitFor
Nexti
Ifi>Len(Str(n))-1Thenjx=True
EndFunction
PrivateSubcommand1_click( )
Dima(1To10)AsInteger
DimiAsInteger
Fori=1To10
a(i)=1000+Int(Rnd*9000)
(i)
Ifjx(a(i))(i)
Nexti
EndSub
PrivateSubCommand2_Click( )
EndSub
PrivateSubcommand3_click( )
End
VB期末考试上机题编程答案
VB期末考试上机题编程答案
9/18
VB期末考试上机题编程答案
GtSB5n90g0w
VB期末考试上机题编程答案
VB期末考试上机题编程答案
18/18
VB期末考试上机题编程答案
页眉内容
EndSub
新建一个工程,统计一个二进制数中0的个数和1的个数。将原窗体文件和工程文件分别另存为为
,保存在D盘的VBTest文件夹中。如不按要求保存,造成文件没法上传,结果自负!
详尽要求:
1、程序参照界面以以下图,编程时不得增添或减少界面对象或改变对象的种类,窗体及界面元素大小
适中,且均可见;
2、第一个文本框用于输入一个二进制数,单击“统计”按纽,在其余两个文本框中分别显示
0和1的
个数;
3、单击“除去”按纽,将三个文本框内容除去,且光标落在第一个文本框;
4、单击“退出”按纽,则结束程序运转;
5、程序中应包括一个过程,用于统计字符串中0和1的个数。
解;PrivateSubCommand1_Click( )
DimsAsString
s=
DimaAsInteger,bAsInteger
Callfun(s)
EndSub
VB期末考试上机题编程答案
VB期末考试上机题编程答案
11/18
VB期末考试上机题编程答案
GtSB5n90g0w
VB期末考试上机题编程答案
VB期末考试上机题编程答案
18/18
VB期末考试上机题编程答案
页眉内容
PrivateSubfun(sAsString)
DimiAsInteger,aAsInteger,bAsInteger
Fori=1ToLen(s)
IfMid(s,i,1)=0Then
a=a+1
Else:b=b+1
EndIf
Nexti
="0的个数有"&Val(a)&个""
="1的个数有"&Val(b)&个""
EndSub
PrivateSubcommand2_click( )
=""
=""
=""
EndSub
PrivateSubcommand3_click( )
End
EndSub
新建一个工程,编写一个程序,找出随机生成的30个三位正整数中的升序数。所谓升序数是指百位
数小于十位数且十位数小于个位数的数。,保存在
VB期末考试上机题编程答案
VB期末考试上机题编程答案
13/18
VB期末考试上机题编程答案
GtSB5n90g0w
VB期末考试上机题编程答案
VB期末考试上机题编程答案
18/18
VB期末考试上机题编程答案
页眉内容
D盘的VBTest文件夹中。如不按要求保存,造成文件没法上传,结果自负!
详尽要求:
1、程序参照界面以以下图,编程时不得增添或减少界面对象或改变对象的种类,窗体及界面元素大小
适中,且均可见;
2、单击"执行"按钮,随机生成30个三位正整数,按6个数一行的格式显示在多行文本框中,再找出其
中的升序数输出到列表框;
3、单击“除去”按钮,则将文本框和列表框清空;
4、单击“退出”按钮,结束程序运转;
5、程序中应包括一个名为jx的函数过程,用于判断一个正整数可否为升序数。
解:PrivateSubCommand1_Click( )
Dima(1To6,1To5)AsInteger
DimiAsInteger,jAsInteger
Fori=1To6
Forj=1To5
a(i,j)=10+Int(Rnd*20)
Ifjx(a(i,j))=(i,j)
=&a(i,j)&""
Nextj
=&vbCrLf
Nexti
EndSub
VB期末考试上机题编程答案
VB期末考试上机题编程答案
15/18
VB期末考试上机题编程答案
GtSB5n90g0w
VB期末考试上机题编程答案
VB期末考试上机题编程答案
18/18
VB期末考试上机题编程答案
页眉内容
PrivateSubCommand2_Click( )
=""
EndSub
PrivateFunctionjx(nAsInteger)AsInteger
DimiAsInteger
DimaAsInteger,bAsInteger
Fori=2ToLen(Str(n))
a=Val(Mid(n,i-1,1))
b=Val(Mid(n,i,1))
Ifa>=bThenExitFor
Nexti
Ifi>Len(Str(n))-1Thenjx=True
EndFunction
PrivateSubCommand3_Click( )
End
EndSub
新建一个工程,编写一个程序,求两个正整数的最小公倍数。,保存在D盘的VBTest文件夹中。如不按要求保存,造成文件没法上传,结果自负!详尽要求:
VB期末考试上机题编程答案
VB期末考试上机题编程答案
17/18
VB期末考试上机题编程答案
GtSB5n90g0w
VB期末考试上机题编程答案
VB期末考试上机题编程答案
18/18
VB期末考试上机题编程答案
页眉内容
1、程序参照界面以以下图,编程时不得增添或减少界面对象或改变对象的种类,窗体及界面元素大小
适中,且均可见;
2、从两个文本框中输入两个正整数,单击"求解"按钮,在第三个文本框中显示求得的这两个数的最小
公倍数;
3、单击“除去”按钮,则将三个文本框清空,并将焦点设置在第一个文本框;
4、单击“退出”按钮,结束程序运转;
5、程序中应包括一个过程,用于求两个正整数的最小公倍数。
解;PrivateSubCommand1_Click( )
Dima,bAsInteger
a=Val()
b=Val()
Callgcd(a,b)
=gcd(a,b)
EndSub
PrivateSubCommand2_Click( )
=""
=""
=""
EndSub
VB期末考试上机题编程答案
VB期末考试上机题编程答案
19/18
VB期末考试上机题编程答案
GtSB5n90g0w
VB期末考试上机题编程答案
VB期末考试上机题编程答案
18/18
VB期末考试上机题编程答案