操作1、2答案和讲解.docVIP

【文件夹1】密码的原理是将“明文”中的每个字符用另外一个字符替换，这样就形成“密文”。如果将数字进行加密，其对应关系如下所示:明文：0123456789 密文：9876543210 实现以下功能后保存：若在文本框text1中输入待加密的数字，单击“command1命令按钮”后，在文本框text2中输出密文。(数值型与字符型不能进行数学运算) Private Sub Command1_Click() Dim x As String, y As String ‘注意定义变量的类型 Dim i As Integer ‘temp1和temp2 就是普通的变量名字 ① len 9-temp1 y Dim temp1 As String, temp2 As String x = Text1.Text ‘提取text1的内容赋给变量 x y = ‘y 变量的值清空 For i = 1 To ①(Text1.Text) ‘反复执行提取转换连接操作 temp1 = Mid(x, i, 1) ‘提取第I个字符赋给temp1 temp2 = ② ‘提取到的字符转换成相应的密文 y = y + temp2 ‘ 前后都是字符串型???所以+相当于字符串连接符 Next I ‘ cstr(9-val(temp1)) Text2.Text = ③ ‘循环结束后y的值就是密文串，显示在text2中。 End Sub right（”abcde”,3） left（”abcde”,3） P 30函数表 mid（”abcde”,3,4） string（3，“987”） =“999” 值为字符串型 len（”ab cde”）=6 instr （“abdc”,“c”） =4 值为数字型 val（“7”）= 7 cstr（7）=“7” str（7）= “ 7” 转换数值型与字符串型 asc（“A”）=65 chr（97）=“a” 转换字符与对应的ascii码 “1adf” “0” 为 48 空格 为 32 比字符大小 [A,B] int(rnd*(B-A+1))+A abs（）sqr（）sgn（-9）= -1 (只有-1,0,1三个值) rnd（） [0,1)之间的随机数 int（-7.3）=-8 cint（4.5）=4 fix（） 取整函数我们 【文件夹9】实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上。 Private Sub Command1_Click() Dim s(9) As Single ‘定义一个s数组，下标从0 到9 所以10个数组成员 s(i) -1 s(i) For i = 0 To 9 S(i)= Val(InputBox(请输入一个数)) Next i For x = 9 To 0 Step ② Print ③ Next I End Sub S(0) S(1) S(2) S(3) S(9) P29 inputbox（） 和 msgbox（） 函数 Inputbox（提示 [，标题][，默认值][，x坐标][，y坐标]） Inputbox（“请输入一个数”,,30） 注意，返回的值是字符型，如用于计算，须转换 文本框和标签 也是如此，对应的值都是字符型 P50 数组 注意：数组必须 先定义 后使用 Dim s(9) As Single = Dim s(0 to 9) As Single 10数组成员 数组一般与for next结合使用 避免出现 下标越界的错误 for x = 0 to 9 初值与终值一般与 数组的 最小下标和最大下标对应 s(x)= rnd pring s(x) next x 【文件夹4】实现功能：用穷举法找出所有的水仙花数的程序并保存。水仙花数是指一类三位数，其各个数位上的数字之立方和为该数。例如：153=13+53+33。 Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer 100 100 next i For