实验八常用算法参核心内容提炼.pdfVIP

实验八常用算法（1）参

一、实验目的

1、熟练掌握程序设计中的各种控制结构，能够灵活使用不同的结构编写代码；

2、掌握计数、累加、连乘、枚举、递推、求最大、最小值等常用算法；

3、熟悉利用循环及LenMid等函数对字符串进行操作的典型方法。

二、实验内容

1、输入字符串，将其中的大写字母变小写，小写字母变大写，其余字符不变，例如

“aBde2%fF”转换的结果为“AbDE2%Ff”。所得的结果在消息框中显示。

Dims$,i#,c$,

d$d=

s=InputBox(请输入文本)

Fori=1ToLen(s)

c=Mid(s,i,1)

Ifc=AAndc=ZThen

d=dLCase(c)

ElseIfc=aAndc=zThen

d=dUCase(c)

Else

d=dc

EndIf

实验八常用算法(1)参

一、实验目的

1、熟练掌握程序设计中的各种控制结构，能够灵活使用不同的结构编写代码；

2、掌握统计、累加、连乘、枚举、递推、求最大、最小等常用算法；

3、熟悉利用循环及LenMid等函数对字符串进行操作的典型方法。

二、实验内容

1、输入字符串，将其中的大写字母变小写，小写字母变大写，小写字母变大写其余字

符不变例例“abde2%ff”转换的结果为“abde2%ff”。所得结果在消息框中显示。

Dims$,i#,c$,d$d=s=

inputbox(请输入文本)fori=1tolen

i,1)ifc=aandc=z

(s)c=mid(s,

that=aandc=ztend=d

ucease(c)eld=dc结束if

2、键盘输入5个数，找出其中最接近100的数字。输出结果如下所示：

您输入的5个数字为：1231781308

其中最接近100的数字是：78

j=Val(InputBox(请输入第一个数))假定第一个数为最接近100的数

Fori=2To5

a=Val(InputBox(请输入第i个数))依次输入第2~5个数

IfAbs(j-100)Abs(a-100)Thenj=a只要找到更接近100的数，就记录

到变量j中

Nexti

Print最接近100的是j

3、在窗体中单击空白处，打印一个完整的9*9乘法口诀表。如果只想打印出其中的右上一

半或左下一半，代码应如何修改？

Dimi%,j%

Fori=1To9

Forj=1To9

Printi*j=;i*j,

Nextj

Print

Nexti

若要打印左下半，则：

2、键盘输入5个数，找出其中最接近100的数字。输出结果如下所示：

您输入的5个数字为：1231781308

其中最接近100的数字是：78

J=Val(inputbox(请输入第一个数))假设第一个数为最接近100的数

Fori