8376-程序设计题整理后.docxVIP

8376-程序设计题整理后

题目：(事件)单击窗体。

(响应)输出所有的三位数，它满足该数中有某两位

为相同的数，且该数是一个完全平方数。

求出所有这些数的和，并将结果存入变量SUM中。

-------------------------------------------------

答案：----------------------

dimaasinteger,basinteger

dimb3asinteger,b2asinteger,b1asinteger

fora=10to31

b=a*a

b3=b\100

b2=(b\10)mod10

b1=bmod10

ifb1=b2orb1=b3orb2=b3then

?a,b

sum=sum+b

Endif

nexta

?sum

----------------------

第66题（1.0分）题号:132难度:中第1章

-------------------------------------------------

【程序设计】

-------------------------------------------------

题目：(事件)单击窗体。

(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…

的前10项，并求其和，将和保存在变量s中

-------------------------------------------------

答案：----------------------

Dimi,j,k,mAsInteger

s=0

i=2

j=1

Fork=1To10

s=（s+i）/j

m=j

Print(CStr(i))/CStr(j)

j=i

i=i+m

Next

----------------------

第83题（1.0分）题号:468难度:难第2章

-------------------------------------------------

【程序设计】

-------------------------------------------------

题目：求二维数组中最大元素及其所在的行和列

并将最大值存入变量Max中，将最大值的行位置存入

row中，列位置存入变量column中.

-------------------------------------------------

答案：----------------------

DimiAsInteger,jAsInteger

max=a(1,1):row=1:column=1

Fori=1To2

Forj=1To3

Ifa(i,j)a(row,column)Then

max=a(i,j)

row=i

column=j

EndIf

Nextj

Nexti

Print最大元素是;max

Print在第row行,;第column列

----------------------

第41题（1.0分）题号:47难度:中第1章

-------------------------------------------------

【程序设计】

-------------------------------------------------

题目：编写函数fun，函数的功能是：判断一个字符是

字母字符、数字字符还是其他字符，并做相应的显示。

字母字符显示字符串字母

数字字符显示字符串数字

其他字符显示字符串其他

要求使用SelectCase语句来实现。

-------------------------------------------------

注意：请在指定的事件内编写代码

代码只能写在两行标识之间

不得修改已有代码

保存时不得修改窗体和工程文件的名称及路径，否则后果自负。

----