VB 操作题题库重要Word格式文档下载.docx

资源描述

VB 操作题题库重要Word格式文档下载.docx

《VB 操作题题库重要Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB 操作题题库重要Word格式文档下载.docx（21页珍藏版）》请在冰豆网上搜索。

VB 操作题题库重要Word格式文档下载.docx

3.输出平行四边形

PrivateSubCommand1_Click（）

Dimi,jAsInteger

Fori=1To4

PrintTab（6-i）;

Forj=1To4

Print"

本题是在text1中输入一位十六进制数码（若是字母要大写），

运行程序后能译出它表示的十进制数的程序。

请不要更改源程序的结构，删除原题里的①、②、③。

填写正确的代码，使程序完善

DimmAsString

m=①

SelectCasem

Case"

m="

10"

11"

①Text1.Text

②EndSelect

③m

12"

13"

14"

15"

②

Text2.Text=③

5.文本框中输入一个三位正整数，求各位数字之和。

如输入835，计算8+3+5，在标签上输出结果16.

DimaAsInteger

DimsAsInteger

①val

②3

③amod10

④a\10

a=①（Text1.Text）

Fori=1To②

s=s+③

a=④

Label1.Caption=Str（s）

回文字符串是指一个字符串从左往右读与从右往左读是一样的，'

如"

ABCBA"

，"

123321"

等等。

编写程序，输入一个字符串，若是回文字符串，则输出"

YES"

，否则输出"

NO"

。

以下程序使用文本框Text1输入字符串，使用文本框Text2输出结果，

请在程序的两个空格处填上相应的字句，使之完成相应的功能。

①Len（s）

②Mid（s,Len（s）+1-i,1）

③Text2.Text=ok

DimsAsString

DimokAsString

s=Text1.Text

ok="

Yes"

IfMid（s,i,1）<

②Thenok="

No"

③

输入一个数，判断该数是否为完数。

所谓完数即该数等于其因子之和。

例如：

6=1＋2＋3；

28＝1＋2＋4＋7＋14。

若是完数则输出。

PrivateSubcmdPerfect_Click（）

DimmAsInteger

DimsumAsInteger

s="

sum=1

①=Val（InputBox（"

输入一个正整数:

））

①m

②sum+i

③s

Fori=2Tom-1

IfmModi=0Then

sum=②

s=s&

Str（i）

EndIf

Ifsum=mThen

Printm;

是完数"

③'

输出因子之和

Else

不是完数"

8完善程序，使之能够随机产生10个100以内的整数，并找其中的最大数、最小数。

Dima（10）AsInteger

DimmaxAsInteger

DimminAsInteger

Randomize

产生10个随机整数:

Fori=1To10

a（i）=Int（Rnd*100）

Printa（i）;

min=a

（1）

max=a

（1）

Fori=2To10

Ifa（i）<

minThenmin=a（i）

Ifa（i）>

maxThenmax=a（i）

最大数：

max,"

最小数：

min

下面是有趣的倒话游戏程序，请完善程序，使之能完成样张功能。

DimxAsString

DimyAsString

x=Text1.Text

y="

Fori=Len（x）To1Step-1

y=y+Mid（x,i,1）

Text2.Text=y

10.在文本框中分别输入数字后，单击交换按钮，实现两个值交换。

DimbAsInteger

①b

②t

③a

④b

DimtAsInteger

a=Val（Text1.Text）

b=Val（Text2.Text）

t=a

a=①

b=②

Text1.Text=③

Text2.Text=④

11'

中国邮政的EMS国际快递业务：

中国寄往澳大利亚的快递收费标准是：

首个0.5公斤收费210元，其余的重量按55元/每千克计算，（总重不足

0.5千克按210元收费）下面是自动计算寄费的程序，请你完善程序。

DimxAsSingle,yAsSingle

①x

②EndIf

③Text2.Text

y=0

①=Val（Text1.Text）

Ifx>

0.5Then

y=210+（x-0.5）*55

y=210

③=Str（y）

12'

本题是青蛙跃井问题：

井底蛙欲沿湿滑井壁上跃至地面，若井深h尺，蛙上跃3尺下滑1尺，

请给出井深h值，计算蛙上跃次数n。

DimhAsSingle,nAsInteger

h=Val（①）

②1

③n

Ifh>

3Then

IfhMod2=0Then

n=h/2

Else

n=（h-1）/2

Else

n=②

EndIf

Text2.Text=③

13'

本题是从一串只含有字母或数字的字符串中找出所有大写字母，

并把找出的大写字母显示在text2中。

DimxAsString,yAsString

DimiAsInteger,nAsInteger

x=①

n=Len（x）

IfAsc（Mid（x,i,1））<

91AndAsc（Mid（x,i,1））>

64Then

EndSub

答案：

1）text1.text

2）n

3）y

14'

完善程序,使之在运行程序后，能在窗体上显示样张所显示的图形。

Line（600,200）-（1500,①）,RGB（255,0,0）

Line（1500,200）-（1500,1000）,RGB（0,0,255）

Line（1500,1000）-（600,1000）,RGB（②）

Line（③,1000）-（600,200）,RGB（0,0,255）

1）200

2）255,0,0

3）600

15'

该题是求丢番图年龄问题：

丢番图生命的1/6是童年，又过了1/12长胡子，再过了的1/7结婚，婚后5年生儿子，儿子活了父亲年龄的一半死亡，之后丢番图又过了4年死亡。

求丢番图年龄。

DimnAsInteger

①n

②while

③Text1.Text

n=0

①=n+1

Loop②n<

n/6+n/12+n/7+5+n/2+4

③=Str（n）

16计算圆的面积

①Dim

②text1.text

Constpi=3.14

①r,sasSingle

r=Val（②）

s=pi*r*r

T2.Text=③

17.格里高利公式

π/4=1-1/3+1/5-1/7+……，直到最后一项的值小于0.0001为止，输出π的值

请不要更改源程序的结构，删除原题里的①、②、③、④。

DimPiAsSingle,tAsSingle

DimnAsInteger,sAsSingle

Pi=0

t=1:

n=1:

s=1

DoWhileAbs（t）>

=0.0001

Pi=Pi+t

n=n+2

s=-s

t=s/n

Loop

Pi=Pi*4

Pi="

CStr（Pi）

注意：

题目中出现的cstr和str函数是一个意思。

T12从文本框输入一个秒数ss，转换成小时、分钟、秒。

Label1显示“小时”、label2显示“分钟”、label3显示“秒”。

Dimh,m,s,ssAsInteger

ss=Val（Text1.Text）

h=ss\3600

m=（ss-h*3600）\60

s=（ss-h*3600）Mod60

Label1.Caption=CStr（h）

Label2.Caption=CStr（m）

Label3.Caption=CStr（s）

T181输入10个学生的成绩，输出最大值和最小值。

Dimcj（10）AsSingle

DimmaxAsSingle

DimminAsSingle

cj（i）=Val（InputBox（"

请输入10个学生的成绩"

成绩输入"

max=cj

（1）

min=cj

（1）

Ifcj（i）>

maxThen

max=cj（i）

Ifcj（i）<

minThen

min=cj（i）

PrintCStr（max）,CStr（min）

T24小明出题（大概）

以上是题目大概界面

意思是：

第一、.点击出题按钮时，label1

和label2产生0-9两个随机数a和b。

尔后做题者把两数之和输入在文本框中。

第二、点击评判按钮，如果做题人输入结果正确，那么label3显示“正确”，否则label3显示“错误”。

第四、label6显示第几次出题。

Dima,b,c,x,nAsInteger

Label6.Caption="

第"

道题"

a=Int（Rnd*10）

b=Int（Rnd*10）

Label1.Caption=a

Label2.Caption=b

n=n+1

PrivateSubCommand2_Click（）

c=a+b

x=Val（Text1.Text）

Ifc=xThen

Label3.Caption="

正确"

错误"

PrivateSubForm_Load（）

n=1

T175用递归函数求1+2+……+100的和

PublicFunctionS（nAsInteger）AsInteger

Ifn=1Then

S=1

S=n+S（n-1）

EndFunction

DimSumAsInteger

Sum=S（100）

Sum="

CStr（Sum）

T32向文本框1中输入一个三位数后，在文本框2中输出倒过来的三位数。

（比如输入123，输出321）

DimaAsInteger,bAsInteger

DimbaiAsInteger,shiAsInteger

DimgAsInteger

bai=a\100

shi=（a-bai*100）\10

g=aMod10

b=g*100+shi*10+bai

Text2.Text=CStr（b）

T4从100-999中输出水仙花数。

（水仙花数满足各位立方和等于该数）案例1

DimiAsInteger,aAsInteger,bAsInteger,cAsInteger

Fori=100To999

a=i\100

b=（i-a*100）\10

c=iMod10

Ifa^3+b^3+c^3=iThenPrinti

16,水仙花数（msgbox输出三位数，满足各位立方和等于该数）案例2

Dima,b,casinteger'

个位，b：

十位，c：

百位

Fora=0to9

Forb=0to9

Forc=1to9

Ifa^3+b^3+c^3=a+10*b+100*cthen

Msgbox100*c+10*b+a

Endif

Nextc

Nextb

Nexta

T43用递归法求菲薄那列数列。

PublicFunctionFib（nAsInteger）AsInteger

If（n=1）Or（n=2）Then

Fib=1

Fib=Fib（n-1）+Fib（n-2）

DimSAsInteger

S=Fib（n）

S="

CStr（S）

T91随机产生100个随机整数，求偶数的个数

Dima（100）AsInteger

DimtotalAsInteger

total=0

Fori=1To100

Ifa（i）Mod2=0Then

total=total+1

PrintCStr（total）

a（i）=Int（Rnd*1000）

T94将数组a中的10个数按升序排列（冒泡排序）

Fori=1To9

Forj=i+1to10

a（j）Then

a（0）=a（i）

a（i）=a（j）

a（j）=a（0）

PrintCStr（a（i））

T60向文本框中输入半径r，在文本框2中显示面积（注意文本框1的名称为T1，文本框2的名称为T2）

Constpi=3.14

Dimr,sasSingle

r=Val（T1.text）

T2.Text=Str（s）

T60'

有一个qq密码忘记了，只记得密码是5位'

且知道67**8,同时该密码能被67和78整除，求密码。

DimxAsLong

Forx=67008To67998Step10

If（xMod67=0）Or（xMod78=0）Then

Printx

Nextx

18，选择题

x=text1.text

p=0

forI=1tolen（x）

ifmid（x,i,1）=”a”thenp=p+1

nextI

printp

执行上述代码，如果文本框中输入的是“Areyouhappy”，最后窗体上输出的是：

（A）

A1B11C6D5

注：

本题用于求解字符串中小写字母a的个数

T178用递归函数求3！

+5！

+7！

PublicFunctionFac（aAsInteger）AsInteger

Ifa=1Then

Fac=1

Fac=a*fac（a-1）

S=Fac（3）+Fac（5）+Fac（7）

展开阅读全文

VB 操作题题库 重要Word格式文档下载.docx

VB 操作题题库重要Word格式文档下载.docx