vb如何编写程序代码

㈠ VB程序代码编写

Private Sub Command1_Click()
For i = 1 To 10
Print (Int(Rnd * 91) + 10) * (-1) ^ (Int(Rnd * 2) + 1);
Next
Print
End Sub

㈡ VB创建程序步骤

1.新建工程。创建一个应用程序首先要打开一个新的工程。
2.创建应用程序主界面。使用工具箱在窗体上放置所需控件。其中，窗体是用户进行界面设计时在其上放置控件的窗口，它是创建应用程序界面的基础。
3.设置属性值。通过这一步骤来改变对象的外观和行为。可通过属性窗口设置，也可通过程序代码设置。
4.对象事件过程的编程。通过代码窗口为一些对象有相关事件的编写代码。
5.保存文件。运行调试之前，一般要先保存文件。
6.程序运行与调试。测试所编程序，若运行结果有错或对用户界面不满意，则可通过前面的步骤修改，继续测试直到运行结果正确，用户满意为止，再次保存修改后的程序。

㈢ 利用VB如何编写一段简单计算机的程序谁能给我代码

在可是界面下 放置一个textbox控件 再放置一个commandbutton控件 双击command1

Private Sub Command1_Click()
text1.text="这是一个测试程序！"
End Sub
然后运行程序 就会在textbox控件中显示 这是一个测试程序！

㈣ VB编写程序的步骤

拿本教程先学学语法,vb是面向对象的语言,你可以对照书上的例子在机器上学习编程.这样影响更深刻,步骤都不是严格的,可以根据程序的需要来进行.但是第一步应该是程序的总体算法,模块,界面设计.

㈤ VB 程序代码编写

“命令按钮的标题”是什么呀？ 做的label标签？按钮的Caption?
如果“命令按钮的标题”指的是按钮的Caption，以下代码：
Dim a
Private Sub c1_Click()
a = Text1.Text
Text1.Text = c2.Caption
c2.Caption = a
End Sub
如果“命令按钮的标题”指的是 在C2按钮上边做的label标签（label1），以下代码：
Dim a
Private Sub c1_Click()
a = Text1.Text
Text1.Text = Label1.Caption
Label1.Caption = a
End Sub

㈥ 在VB中怎样编写程序代码

这是一个很大的题目，可以安装MSDN Library Visual Studio 6.0 版来帮助理解如何写代码。

㈦ VB编程，超简单的。求编写代码

第一题：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("请输入当前顾客购买鸡蛋的重量（以公斤为单位）")
If x < 3 Then
Y = 7.6 * x
Else
Y = 7.6 * x * 0.8
End If
Print Format(Y, "0.00")
End Sub

第二题：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("请输入顾客所乘的公里数")
If x / Fix(x) = 1 Then
x = x
Else
x = Fix(x) + 1
End If

If x > 15 Then
Y = 7 + 13 * 1.5 + (x - 15) * 2.1
ElseIf x > 2 Then
Y = 7 + (x - 2) * 1.5
Else
Y = 7
End If

Print Y
End Sub

㈧ 使用VB脚本代码编写程序

代码如下，代码源文件和图片附件里面也有。

<form>
<div><td><input type=text style="width:200px; height:25px;" name="incontent" value="">&nbsp;&nbsp;<input type=submit name="submit" value="搜索">
</td></div>
<div>
<td>
<input type=radio name="search" value="bd">网络
<input type=radio name="search" value="yh">Yahoo
<input type=radio name="search" value="sg">搜狗
</td>
</div>
</form>

<%

'网络 http://www..com/s?wd=
'搜狗 http://www.sogou.com/sogou?query=
'Yahoo https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p=test&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1

dim nr,ss
ss= Request.QueryString("search")
nr= Request.QueryString("incontent")
if ss="bd"then
response.redirect("http://www..com/s?wd="&nr)
elseif ss="yh" then
response.redirect("https://search.yahoo.com/search;_ylt=AsdHYgmo4CrfcaVNGk63yF2bvZx4?p="&nr&"&toggle=1&cop=mss&ei=UTF-8&fr=yfp-t-312&fp=1")
elseif ss="sg"then
response.redirect("http://www.sogou.com/sogou?query="&nr)
ss= Request.QueryString("search")=""
response.redirect("index.asp")
end if
%>

㈨ 用VB如何编写运行代码的程序

用vb编程工具，编写后生成可执行程序，即可运行

㈩ 用vb编写一个简单的程序

上面的程序有问题
'给窗口加3个TEXT控件
text.text
都设为0，再加个COMMAND
控件
'付上以下程序
OK了
Private
Sub
Command1_Click()
Dim
D
As
Single,
L
As
Single
D
=
Val(Text1.Text)
L
=
val(Text2.Text)
v
=
0.7854
*
L
*
(D
+
0.5
*
L
+
0.005
*
L
^
2
+
0.000125
*
L
*
(14
-
L)
^
2
*
(D
-
10))
^
2
/
1000
Text3.Text
=
v
End
Sub