资源描述：
《操作1、2答案及讲解.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、【文件夹1】密码的原理是将“明文”中的每个字符用另外一个字符替换，这样就形成“密文”。如果将数字进行加密，其对应关系如下所示:明文：0123456789密文：9876543210实现以下功能后保存：若在文本框text1中输入待加密的数字，单击“command1命令按钮”后，在文本框text2中输出密文。(数值型与字符型不能进行数学运算)PrivateSubCommand1_Click()DimxAsString,yAsString‘注意定义变量的类型DimiAsInteger‘temp1和temp2就是普通的变量名字①len①9-temp1②yDi
2、mtemp1AsString,temp2AsStringx=Text1.Text‘提取text1的内容赋给变量xy=""‘y变量的值清空Fori=1To①(Text1.Text)‘反复执行提取转换连接操作temp1=Mid(x,i,1)‘提取第I个字符赋给temp1temp2=②‘提取到的字符转换成相应的密文y=y+temp2‘前后都是字符串型，所以+相当于字符串连接符&NextI‘cstr(9-val(temp1))Text2.Text=③‘循环结束后y的值就是密文串，显示在text2中。EndSubright（”abcde”,3）left（”a
3、bcde”,3）P30函数表mid（”abcde”,3,4）string（3，“987”）=“999”值为字符串型len（”abcde”）=6instr（“abdc”,“c”）=4值为数字型val（“7”）=7cstr（7）=“7”str（7）=“7”转换数值型与字符串型asc（“A”）=65chr（97）=“a”转换字符与对应的ascii码“1adf”“0”为48空格为32比字符大小[A,B]int(rnd*(B-A+1))+Aabs（）sqr（）sgn（-9）=-1(只有-1,0,1三个值)rnd（）[0,1)之间的随机数int（-7.3）=-
4、8cint（4.5）=4fix（）取整函数我们【文件夹9】实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上。PrivateSubCommand1_Click()Dims(9)AsSingle‘定义一个s数组，下标从0到9所以10个数组成员①s(i)②-1③s(i)Fori=0To9S(i)=Val(InputBox("请输入一个数"))NextiForx=9To0Step②Print③NextIEndSubS(0)S(1)S(2)S(3)S(9)P29inputbox（）和msgbox（）函数Inputbox（提示[，标题][，默认
5、值][，x坐标][，y坐标]）Inputbox（“请输入一个数”,,30）注意，返回的值是字符型，如用于计算，须转换文本框和标签也是如此，对应的值都是字符型P50数组注意：数组必须先定义后使用Dims(9)AsSingle=Dims(0to9)AsSingle10数组成员数组一般与fornext结合使用避免出现下标越界的错误forx=0to9初值与终值一般与数组的最小下标和最大下标对应s(x)=rndprings(x)nextx【文件夹4】实现功能：用穷举法找出所有的水仙花数的程序并保存。水仙花数是指一类三位数，其各个数位上的数字之立方和为该数。例
6、如：153=13+53+33。PrivateSubCommand1_Click()DimiAsInteger,aAsInteger,bAsInteger,cAsInteger①100②100③nextiFori=100To999‘穷举最小的三位数到最大的三位数a=i①‘百位b=(i-a*②)10‘十位c=iMod10‘个位Ifa^3+b^3+c^3=iThenPrintI‘行if③‘注意这里是for对应的next而不是if对应的endifEndSub这两题的共同点是：分解数字。不同点是10进制和60进制【文件夹12】实现功能：在Text1中输入
7、一个代表秒数的整数后，单击“计算”按钮后，在Label1、Label2、Label3中显示对应的小时、分钟和秒数。如在Text1中输入“3672”，Label1、Label2、Label3中分别显示“1”、“1”、“12”，即1小时1分12秒。PrivateSubCommand1_Click()Dimh,m,s,ssAsInteger‘这种写法是错误的ss=Val(①)‘从text1中提取总秒数赋给ss①text1.text②ss3600③(ssMod3600)Mod60或ssmod60或ss-h*3600-m*60h=②‘时m=(ssMod36
8、00)60‘分s=③‘秒Label1.Caption=CStr(h)‘数字型转成字符型Label2.Caption=CS
