UC知道3道VB设计题~高手进啦。
来源：百度知道 编辑：UC知道 时间：2024/05/31 11:09:55
1、 设计一个程序，点击窗体任何一个位置，都能弹出提示信息“对不起，你的密码错误”，同时显示警告图标和确定取消按钮。保存为msgbox.vbp和msgbox.frm。
2、 设计一个程序，随机生成一个四位数的正整数，把个十百千位全部对调（即个位变为千位，十位变为百位，百位变十位，千位变个位）。提示：利用Rnd函数。保存为contrary.vbp和contrary.frm。
3、 设计一个解密程序，输入任意一串字符，按以下规则还原并将结果显示在屏幕上：
a) 结果=密文的第一个字符+密文中间字符+密文最后字符（在这里，要考虑如何取字符串中间的字符，当字符串长度为偶数时，取中间数的下界）。
b) 如：密文：wteqryu, 结果：wqu
2、 设计一个程序，随机生成一个四位数的正整数，把个十百千位全部对调（即个位变为千位，十位变为百位，百位变十位，千位变个位）。提示：利用Rnd函数。保存为contrary.vbp和contrary.frm。
3、 设计一个解密程序，输入任意一串字符，按以下规则还原并将结果显示在屏幕上：
a) 结果=密文的第一个字符+密文中间字符+密文最后字符（在这里，要考虑如何取字符串中间的字符，当字符串长度为偶数时，取中间数的下界）。
b) 如：密文：wteqryu, 结果：wqu
1.
private sub form_click()
msgbox "对不起，你的密码错误",49
end sub
2.
Private Sub Form_Click()
Dim i%, a(4) As Integer, t%
a(1) = Int(Rnd * 8 + 1)
For i = 2 To 4
a(i) = Int(Rnd * 9 + 1)
Next i
Print "四个整数:"
printf (a())
Print "调换后:"
t = a(1): a(1) = a(4): a(4) = t
t = a(2): a(2) = a(3): a(3) = t
printf (a())
End Sub
Private Sub printf(a() As Integer)
Dim i%
For i = 1 To UBound(a)
Print a(i)
Next i
End Sub
3.
Private Sub Form_Click()
Form1.Show
Dim i As Integer, s As String, r As String
s = Text1.Text
r = Left(s, 1) & Mid(s, Int(Len(s) / 2) + 1, 1) & Right(s, 1)
Print r
End Sub
1
<html>
<head>
<title>程序</title>
<script language="vbscript">
<!--
msgbox("对不起，你的密码错误,"0+1)
-->
</script>
</hea