UC知道求简单的VB编程代码 各位老大帮忙啊
来源：百度知道 编辑：UC知道 时间：2024/05/25 04:23:51
一
编制一个帐号与密码的检验程序：
要求：① 帐号不超过6个数字，密码4个字符（设密码为VB6)，
密码框中不显示实际输入字符
② 帐号(如：非数字)不正确时，提示有关信息，
并清除原内容，得到焦点，再输入
③ 密码不正确时，单击“重试”，密码框清空，得到焦
点重新输入，若单击“取消”，停止运行
二
在“种类”中选择油品种类，界面上的说明文字将随之改变，并将“数量”文本框设为焦点；在数量文本框中输入需购的油品数量后，单击“计算”按钮，在“总价”文本框显示所购油品种类应付的金额。已知汽油单价：
• 90号 2.30元/升
• 95号 2.45元/升
• 100号 2.60元/升
三
编写一个简单运算器的程序
• 要求：单击“计算”按钮，则根据输入操作数以及所选的运算符，求得运算结果，并显示在相应的文本框中。
• 提示：当除数为0时，用消息框给出提示
四
将一个二进制的原码转换成反码
分析：
循环语句—决定转换的次数
Mid函数－－获取一个二进制位
If语句－－判断该位0à1,1à0
五
字符加密。将由大写英文字母组成的字符串的每个字符的ASCII代码转换成二进制，按位与指定密钥“01111111”进行异或运算，把得到的结果转换成十进制数，再转换成对应的加密字符
分析：其中一个字符的转换
• 获取每个字母的ASCii码（ASC函数，取子串函数）
• 将十进制ASCII码转换成二进制ASCII码。
• 再与01111111进行异或运算
• 再转换成对应的字符（chr函数）
• 连接成字符串
三、
Dim strmiddle() As String = {"0", "0", "0"}
Dim calmethod1 As String = "0"
Dim calmethod2 As String = "0"
Dim strdot As Boolean = False
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If strmiddle(0) = "0" Then
TextBox1.Text = strmiddle(0) & "."
ElseIf strdot = False Then
strmiddle(0) = strmiddle(0) & "0"
TextBox1.Text = strmiddle(0) & "."
Else
strmiddle(0) = strmiddle(0) & "0"
TextBox1.Text = strmiddle(0)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
strdot = True
strmiddle(0) = strmiddle(0) & "."
TextBox1