Question

求一段VB代码

刚自学VB几天，学会画界面了，但是不会写代码，求大侠帮忙写下代码。需求：1、在 输入股价右边的TextBox中输入数字，小数点（其它符号不允许出现）2、下面每个参数表示 上面数字乘以这个参数的乘积，并在后面的TextBOX中输出这个乘积谢谢！！
比如在输入股价中输入数字10
参数1.125后面的文本框输出数字为 11.25 意思是 10 X 1.125的结果
参数1.25后面文本框输出 12.5 意思是 10 X 1.25 的结果，
以下的相似
非常感谢！

Answer 1

Private Sub CommandButton1_Click()'将名单放在combobox1中，供选择'TextBox1由用户输入学号或密码 If ComboBox1.Text = "" Then ComboBox1.SetFocus: MsgBox "ID和密码一个不能少!", vbInformation, "请确认！": Exit Sub If CommandButton1.Tag = "" Then CommandButton1.Tag = 1 Else CommandButton1.Tag = CommandButton1.Tag * 1 + 1 If LCase(TextBox1) = Frame1.Tag Then '将密码保存在frame1的中 With Application '正确，则放行' .EnableEvents = False' .Visible = True' .ScreenUpdating = False' Sheet10.Visible = xlSheetVisible' Sheet10.Activate' .EnableEvents = True' .ScreenUpdating = True End With Unload Me Else If CommandButton1.Tag 3 Then MsgBoxEx "总共只有3次机会，你已经试过" CommandButton1.Tag "次！", vbCritical, "警告：口令错误！" TextBox1 = "": TextBox1.SetFocus Else Unload Me MsgBoxEx "系统关闭，再见！", vbCritical, "警告：口令错误！" ThisWorkbook.Close False Application.Quit End If End IfEnd Sub

追问

大侠，感谢你踩了我的提问，你的辛苦是这对我一点用都没有啊！