请教VB代码。万分感谢!回答满意则再送10个金币

" & vbCrLf & vbCrLf & "只需再购买" & 100 - A * 10 & "元的商品即可成为高级会员，可享受8折优惠！", 64, "会员提示！" ElseIf A > 10 And A <= 50 Then MsgBox "高级会员，享受8折优惠！" & vbCrLf & vbCrLf & "只需再购买" & 500 - A * 10 & "元的商品即可成...

Private Sub Command1_Click() x = Val(Text1.Text) If x < 0 Then y = x If x = 0 Then y = "未定义" If x > 0 And x <= 10 Then y = x ^ 2 If x > 10 And x <= 20 Then y = 10 If x > 20 And x <= 40 Then y = 0.5 * x + 20 If x ...

random 为随机函数，例如 dim a as Integer a=random(x as String)则a等于0—x之间的任意整数。

Public Function Number2Word(ByVal x As Integer) As String Dim Ones(1 To 19) As String Dim Tens(2 To 9) As String Dim tmp As Integer Dim myWords As String If x > 999 Then Exit Function Ones(1) = "ONE "Ones(2) = "TWO "Ones(3) = "THREE "Ones(4) =...

退出按键点击事件写以下代码即可 if msgbox("是否退出系统?",vbquestion+vbyesno,"退出")=vbyes then end end

Private Sub Command1_Click()Text1.Text = Val(Text1.Text) + 1 End Sub Private Sub Command2_Click()Text2.Text = Val(Text2.Text) + 1 End Sub Private Sub Command3_Click()Text3.Text = Val(Text3.Text) + 1 End Sub

Private Sub Text1_Change()If Len(Text1) = 11 Then Call cgtxt(1)End If End Sub Private Sub Text10_KeyDown(KeyCode As Integer, Shift As Integer)If Len(Text10) = 3 And Text11 = "" Then Text11.SetFocus Call cgtxt(2)End Sub Private Sub Text11_KeyDown(KeyCode As ...

运行程序时在文本框输入一个数,然后单击command1,此时数据已存入数组. 注意输入数据后,只能在单击command1后这个数才能存入数组. 其实一楼已回答了,只是有点不足,稍作修改,如果要求text 对非数字不响应的话,还需要调用个函数. 这里为了省事,就没写出来,如有需要再HI 代码如下 Dim a()Private Sub ...

你可以象洗牌一样做这个程序 step1 用一个数组A装下各个位置数据 step2 随机抽一个位置数据放到另外一个数组中 step3 将另外一个数组显示出来就可以了