vbr1次和2次 vbr1次和2次区别

vb循环语句的问题，求解释

第三个参数为选项标志，如果为keydown则置0即可，如果为keyup则设成"KEYF_KEYUP"；

i=1 j=5 n=0

vbr1次和2次 vbr1次和2次区别

vbr1次和2次 vbr1次和2次区别

Close #1

外循环第1次：

内循环第1次：j=j-1=5-1=4 n=n+1=0+1=1

内循环第2次：j=j-1=4-1=3 n=n+1=1+1=2

内循环第3次：j=j-1=3-1=2 n=n+1=2+1=3

内循环第4次：j=j-1=2-1=1 n=n+1=3+1=4

内循环第5次：j=j-1=1-1=0 n=n+1=4+1=5

End Sub由于j<1，内循环结束。i=i+1=1+1=2

外循环第2次：

外循环第3次：

由于j<1，内循环直接跳过。i=i+1=3+1=4

由于i>3，外循环结束。

此时，n=5

所以结果为5

vb 一元二次方程

所以，如果a初始化数值是0时候，本循环结果是14。

If a <> 0do until And b^2 - 4 a c <0 Then

Text4 = (-b) / (2 a) & "+j" & Sqr(-b ^ 2 + 4 a c) / (2 a)

Text5 = (-b) / (2 a) & "-j" & Sqr(-b ^ 2 + Dim A As Single,B As Single,C As Single4 a c) / (2 a)

全部：

Dim a, b, c As Integer

b = Val(Text2)

c = Val(Text3)

If a = 0 Then

x = -c / b

Text4.Visible = False

If a <> 0 And (b b) - 4 a c >= 0 Then

Text4.Text = Val((-b + Sqr((b b) - 4 a c)) / 2 a)

Text5.Text = Val((-b - Sqr((b b) - 4 a c)) / 2 a)

Text4 = (-b) / (2 a) & "+j" & Sqr(-b ^ 2 + 4 a c) / (2 a)

Text5 = (-b) / (2 a) & "-j" & Sqr(-b ^ 2 + 4 a c) / (2 a)

Private Sub Text1_Click()

Text1 = InputBox("请输入数值", "输入框")

Private Sub Text2_Click()

Text2 = InputBox("请输入数值", "输入框")

Private Sub Text3_Click()

Text3 = InputBox("请输入数值", "输入框")

你算什麽啊..什麽乱七八糟的代码

VB简单for循环次数计算公式?谢谢

Text1.Text = ""

当i=1的时候，j=1，此时k循环3次.

next i

当i=2的时候，j=1或者2

当j=1的时候a = Val(Text1)，k循环3次

当j=2的时候，k循环2次

当i=3的时候，j=1或者2或者3

当j=1的时候，k循环3次

当j=2的时候，k循环2次

当j=3的时候，k循环1

a的初始值为0，每循环一次，a加1，循环十四次，所以a=14

完……

VB题目：关于循环赋值问题

GoTo r

做如下次数循环

Private Sub Form_Load()

1、i=1,j=1时

k从1-3，a做3次加

2、当i=2时，j变量循环2次，从1-2

j=1，k从1-3，a做3次加；

j=2，k从2-3，a做2次加

3、当i=3时，j从1到3循环三次

j=1，a做3次加

j=2，a做2次加

j=3，a做1次加

以上，总共做了14次加。

因为这些变量都在一个作用域下的，都在一个方法或函数里的，所以并没有重新初始化，所以结果是累积的。

====

Static是定义静态变量和数组变量，Dim定义的叫自动变量。

Static定义的变量，每次引用它时，变量的值会继续保留；而Dim定义的变量，每次引用Next它时，则会重新赋值。

“求一元二次方程的根”的vb代码怎么写，跪求，谢谢

End Sub

Dim R1 As Single,R2 As Single

A = Val(Text1.Text)

B = Val(Text2.Text)

C = Val(Text3.Text)Else

If B ^ 2 - 4 A C < 0 Then

MsgBox第二题： 2 3 5 7 "该方程无解."

R1 = -B / 2 / A

MsgBox "该方程一个根为" & R1 & "."

R1 = (-B + Sqr(B ^ 2 - 4 A C)) / (2 A)

R2 = (-B - Sqr(B ^ 2 - 4 A C)) / (2 A)

MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "."

Dim R1 As Single,R2 As Single

A = Val(Text1.Text)

B = Val(Text2.Text)

C = Val(Text3.Text)

If B ^ 2 - 4 A C < 0 Then

MsgBox "该方程无解."

R1 = -B / 2 / A

MsgBox "该方程一个根为" & R1 & "."

R1 = (-B + Sqr(B ^ 2 - 4 A C)) / (2 A)

R2 = (-B - Sqr(B ^ 2 - 4 A C)) / (2 A)

MsgBox "该方程有两个根分别为" & R1 & "和" & R2 & "."

vb中，我想实现单击一次按钮标签显示1，单击第二次显示2

Private Sub for i = 1 to 3Command1_Click()

Static N As Integer

MsgBox "这是一元一次方程"

N = N + 1

Label1.Caption = NEnd Sub

VB次数限制~~~~~~~~

'最简单，也是安全性较高的一种方案，是将使用次数保存到注册表

Dim nStr As String, S As Long

nStr = GetSetting("MySoft", "MyApp", "Times", "") '从注册表读取已使用次数

S = Val(nStr)

If S > 50 Then

Unload Me

Exit Sub

SeSetting "MySoft"b = 200000, "MyApp", "Times", S + 1 '使用次数加1，保存到注册表

代码如下。注意你如果在VB开发环境中调试的话，请使用窗体关闭按钮关闭程序，不要使用工具栏上的ElseIf B ^ 2 - 4 A C = 0 Then结束按钮，否则会造成结果不准确。所以还是生成EXE之后再行调试。

＝＝＝＝＝＝＝＝＝＝＝＝＝

Dim n As Integer

n = Val(GetSetting(App.Title, "settings", "n"))

If n = -1 Then MsgBox "很遗憾，试用次数已经使用完毕。"x1 = (-b + Sqr(b ^ 2 - 4 a c)) / (2 a): End

If n = 0 Then n = 50

MsgBox "还剩下" & n & "次试用机会"

Private Sub Form_Unload(Cancel As Integer)

n = n - 1

If n = 0 Then n = -1

SeSetting App.Title, "settings", "n", n

设一个变量记录该软件使用的次数！并记入一个该软件的初始化文件（ini）中！

用if，然后设两种可能，one是执行，two是不执行，开始运行时查看该软件初始化文件的使用数值是否大于50，小于50则执行one，大于50则执行two！如果害怕ini文件被更改，就写成dll文件！如果这也怕，那我也没脾气，因为很多软件都有版本啊！

RemainDay = GetSetting("MyApp", "set", "times", 0)

If RemainDay = 50 Then

MsgBox "试用次数已满，请……"

Unload Me

MsgBox "现在剩下：" & 50 - RemainDay & "试用次数，好好珍惜！"

RemainDay = RemainDay + 1

SeSetting "MyApp", "set", "times", RemainDay

用VB怎么编一元二次方程计算？

Clipboard.SetText (Text2.text)

画三个文本框，一个按钮。文本框内容为一元二次函数的系数，代码如下：

text1.text=("这里输入密码")

Dim a, b, c, x1, x2 '声明变量

a = Val(Text1.Text)

c = Val(Text3.Text) '给变量赋值

If b ^ 2 - 4 a c >= 0 Then

x2 = (-b - Sqr(b ^ 2 - 4 a c)) / (2 a) '利用求根公式计算

Print "方程的解为：" & x1 & ";" & x2

Print "方程没有实数解"

End If '判断并输出结果

Dim a As Double, b As Double, c As Double

a = Val(Text1.Text)

c = Val(Text3.Text)但满足条件时，（如当i>5时），便退出循环，否则执行循环体。Do-Loop语句：

If a = 0 Then

MsgBox "a不能为0"

If b ^ 2 - 4 a c < 0 Then

Label1.Caption = "实数范围内无解"

Label2.Caption = ""

Label1.Caption = "x1=" & (-b + Sqr(b ^ 2 - 4 a c)) / 2 a

Label2.Caption = "x2=" & (-b - Sqr(b ^ 2 - 4 a c)) / 2 a

r:

End SubPrivate Sub Form_Load()

Text2.Text = ""

Text3.Text = ""

Label1.Caption = ""

Label2.Caption = "'"

Command1.Caption = "计算"

vb KEYBD 发送组合键，总是收到2次

Dim RemainDay As Long

从你的代码来看，应该是第二个参数的问题，Keybd_nt（）共有四个参数：

循环体

个为按键的虚拟键值，如回车键为vk_return,

tab键为vk_tab（其他具体的参见附录：常用模拟键的键值对照表）；

第二个参数为扫描码，一般不用设置，用0代替就行；

第四个参数一般也是置0即可。

模拟按下'Control+T'键代码如下：

keybd_nt(VK_CONTROL,0,0,0);

keybdkeybd_nt(17,0,KEYF_KEYUP,0);_nt(VK_T,0,0,0);

keybd_nt(VK_T,0,KEYF_KEYUP,0);

keybd_nt(VK_CONTROL,0,KEYF_KEYUP,0);

或：

keybd_nt(17,0,0,0);

keybd_nt(84,0,0,0);

keybd_nt(84,0,KEYF_KEYUP,0);

我想做一个vb，里面有一个按钮控件，我想让次点击的时候出现 次点击 第二次的时候出

Do While Not EOF(1)

Dim n As Integer

Dim text As String

n = n + 1

Command1.Caption = "第 " & n & " End If次点击"

'……其它命令

n = 1

Command1.Caption = "第 " & n & " 次点击"

Static a As Long

a = a + 1

Command1.Caption = "第" & a & "次点击"

VB点击按钮1次，读取文本1行，点击第2次，读取第2行，依次往下.... ... 直到全部读完。

Text1.text = i + 1

Dim i As Integer

Dim a() As String

text = ""

CommonDialog1.FileName = ""

CommonDialog1.Filter = "文本文件.txt|.txt"

CommonDialog1.ShowOpen

Open CommonDialog1.FileName For Input As #1

Line Input #1, demo

text = text & vbCrLf & demo

Loop

Private Sub Command2_Click()

a = Split(text, 利用公式法来解Private Sub Command1_Click()vbCrLf)

If i < UBound(a) Then

Text5 = xText2.text = a(i + 1)

Clipboard.Clear

i = i + 1