vbr1次和2次 vbr1次和2次区别大吗

VB怎样使数据在第二次写入时 不覆盖上一次记录的数据

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

'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入

vbr1次和2次 vbr1次和2次区别大吗

vbr1次和2次 vbr1次和2次区别大吗

Private Sub Command1_Click() 读取txt内容到label

Label1.Caption = ""

On Error Resume Next

Open "E:1.txt" For Input As #1

Do While Not EOF(1)

Line Input #1, a

Label1.Caption = LabelText3 = InputBox("请输入数值", "输入框")1.Caption & vbCrLf & a

Loop

On Error Resume Next

Open "e:1.txt" For Append As #1

Print #1, Text1.Text

Text1.Text = ""

Private Sub Command3_Click() 制定内容覆盖txt文件

Dim c As String

c = ""

On Error Resume Next

Open "e:1.txt" For Output As #1

Private Sub Command4_Click() 将制定txt文件的内容到制定txt文件

Label1.Caption = ""

On Error Resume Next

Open "E:3.txt" For Input As #1

Do While Not EOF(1)

Line Input #1, a

Open "e:1.txt" For Append As #2

Print #2, a

Loop

Private Sub Command5_Click() 创建txt文件并制定txt文件到创建的里面

Open "e:" & Text1.Text & ".txt" For Output As #1

On Error Resume Next

Open "E:1.txt" For Input As #1

Do While Not EOF(1)

Line Input #1, a

Open "e:" & Text1.Text & ".txt" For Append As #2

Print #2, a

Loop

Open "c:123.dat" For Append Text2.Text = ""As #2

If a <> "" Then

Print #2, a

End If

Open "c:123.dat" For Append As #2

vb 中点击按钮，点击次调用text1的内容，点击第2次，调用text2的内容，点击第3次调用text3的内容

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

给四个按钮加代码:

Visual 意即可视的、可见的，指的是开发像Windows作系统的图形用户界面（Graphic User Intece,GUI）的方法，它不需要编写大量代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上相应的位置即可。

第1个:

text1.text=("这里输入符号")

text1.text=("这里输入拼音")

第a = Text1.Text3个:

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

第4个:

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

这样按下按钮后输入框里面就会变成双引号里面的内容了(请注意那个输入框的[名称](英文叫做:name)属性须为text1)

请问如何用VB解决一道简单的一元一次和一元二次方程？

strDestination = App.Path & "temp.xls" '你新表格的路径

比如方程组

Print "此方程在实数范围内无解"

ax+by=c

dx+ey=f

adx+bdy=cd

adx+aey=af

y=(cd-af)/(bPrint #1, cd-ae)

x同理可得

换成标准形式没有意义。高等数学里面那个求解公式直接从ax+by=c形式推导的 。

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

Private Sub Command2_Click() 添加内容到txt一行

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

Text3.Text="有"

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

If d >= 0 Then

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

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

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

完……

没什么计算公式，你要想得到27次循环，就设置每级循环都是1 to 3

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

End Sub

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

所有的作txt文件的例子希望有你需要的

Static定义的变量，每次引用它时，变量的值会继续保留；而Dim定义的变量，每次引用它时，则会重新赋值。当j=1的时候，k循环3次

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

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

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

完……

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

做如下次数循环

1、i=1,j=1时

k从1-3，a做3次加

2、当i=2时，j变量循环2次，从If a <> 0 And b^2 - 4 a c <0 Then1-2

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

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

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

j=1，a做End3次加

j=2，a做2次加

j=3，a做1次加

以上，总共做了14次……加。

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

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

====

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

VB对分查找

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

对分查找，过程如下：

一，首先初始化，确定查找范围：1 -- 5

二，重复以下循环，两个步骤

1，求中点数组下标：M = Int（（S + E）/2）

2，判断中点元素与要找的数是否相等：d[M] = Key? （这里设数组为D，要找的数为Key）

若d[M] = Key 则找到了；

否则就没找到；需要根据判断 d[M]Key？作为条件判断）。

这里d[M]

否若，舍弃中点以后（包括中点）的所有元素，即：S = S ，E = M - 1；

3，判断若 S > 使 zhs = 下限。每次增加步长，循环一次。直到 zhs 已经大于 上限 为止。E (起始下标超过终止下标了)，结论Key是找不到了；

否则，继续执行1，进行下一次查找。

要找10，第1次中点是3，即:10>d[3]，从而得到第2次的查找范围为，4参数 Counter、Start、end 和 increment 都是数值型的。-5

第2次中点是4，即:10=d[4]，从而得到第2次就找到的结论

如何用VB求一元二次方程的虚数解（一定是虚数解）。

Else

vb代码如下：

第2个:

Private Sub Command1_Click()

Dim a As Single, b As Single, c As Single

Dim d As Single, x1 As Single, x2 As Single

a = InputBox("请输入一元二次方程的系数a")

b = InputBox("请输入一元二次方程的系数b")

c = InputBox("请输入一元二次方程的系数c")

If a = 0 Then

a = InputBox("因为a≠0，你输入的a＝0，请重新输入系数a")

End If

d = b b - 4 a c

x1 = (-b + Sqr(d)) / (2 a)

x2 = (-b - Sqr(d)) / (2 a)

Print "系数为"; a; b; c; "的一元二次方程的根分别为"; x1

Print "系数为"; a; b; c; "的一元二次方程的根分别为"; x2

End If

一、按钮“求一元二次方程”的vb代码如下：

Private Sub Command1_Click()

c = Text3.Text

d = b b - 4 a c

X1 = (-b + Sqr(d)) / (2 a)

X2 = (-b - Sqr(d)) / (2 a)

Label4.Caption = X1

Label5.Caption = X2

Label4.Caption = "在实数范围内无解"

End If

二、按钮“重置”的vb代码如下：

Private Sub Command2_Click()

Text1.Text = ""

Text3.Text = ""

Label4.Caption = ""

Label5.Caption = ""

三、按钮“退出”的vb代码如下：

Private Sub Command3_Click()

在窗体“Form1.frm”的“Command1_click“中编写代码（请不要随便更改其它代码），使之能够i = i + 1实现如下功能：在Text1输入整数a、、Text2输入b，判断一元二次方程ax2+bx+5=0有无实数根。并在Text3文本框中显示判断结果，即有实数根则在Text3文本框中输出“有”，否则输出“无”。

VB程序代码如下：

Private Sub Command1_Click()

dim a as single,b as single

d = b b - 4 a 5

Text3.Text="无"

End If

如果不用dim定义变量，则上面的输入部分语句改为下面的语句，这样可以把字符变量类型转化为数值类型：

a =val(Text1.Text)

b =val(Text2.Text)

vb循环结构 是怎样循环的啊。。vb就要考试啦 什么都不懂，，求高人指点指点啊 谢谢。谢谢

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

VB 循环 3 种：

a = Text1.Text

种 For：

For zhs As Integer = 下限 To 上限 Step 正步长

Next

For zhs As Integer = 上限 To 下限 Step 负步长

Next

使 zhs = 上限。每次减少步长，循环一次。直到 zhs 已经小于 下限 为止。

For Each dx As Object In 数组（或者队列等等）

Next

遍历每个数组（或者队列等能枚举的东西）中的每一个元素去处理。

第二种Do：Do

If 条件 Then Exit Do

Loop

循环没有次数限制，直到 条件 成立，循环退出去。

Loop

循环没有次数限制，只有条件成立，才进入循环，条件不成立循环不作用

Loop While 条件

循环没有次数限制，只有条件成立，才继续循环（至少循环一次），条件不成立退出循环

Loop While 条件

循环没有次数限制，只有 Do 条件成立，才进入循环，Loop 条件成立才继续循环

第三种 While：

While 条件

Wend