Dim a As Single
Dim b As String
a = Val(Text1.Text)
b = 2 * Sqr((0.5 * a) ^ 2 * 2 / 3)
Text2.Text = b
End Sub追问
能不能把完整代码发出来啊？，包括那个界面的。
可加分。
留下邮箱，我发给你
本回答被提问者采纳用VB写一个小程序.
vb6代码如下，添加模块，工程--属性--启动对象选择sub main Sub main()Open "c:\\temp\\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub
如何使用VB编写一个简单的小程序?
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属...
VB编写小程序
代码改为：Private Sub Form_Click()Dim a, b, c, d As StringDim sum, aver As Longa = Val(InputBox("请输入第一个数"))b = InputBox("请输入第二个数")c = InputBox("请输入第三个数")d = InputBox("请输入第四个数")sum = a + b + c + d aver = sum \/ 4 Print ...
用VB做这个小程序怎么做啊??
用Webbrowser控件简单实现 新建工程(只有一个窗体)在工具箱中选右键菜单“部件”，先择“Microsoft Internet Control"，单击“应用”，工具箱中就多出一个控件："webbrowser"拖放一个Webbrowser，默认名为 WebBrowser1 代码：private sub form_load()const myurl="http:\/\/www.js-lottery.com\/view7.ph...
用VB制作小程序
Option ExplicitPrivate Sub Form_Load() Randomize Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000) '生成100000-999999之间的随机数 Timer1.Interval = 1000 '一秒一次 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Static n As Integer ...
vb做一个简单的小程序
Option Explicit Private Sub Form_Load()ShockwaveFlash1.Movie = "D:\\wwwroot\\KuFang\\images\\1.swf"ShockwaveFlash1.Menu = False ShockwaveFlash1.Playing = True End Sub Private Sub Timer1_Timer()End End Sub 建一个无边框窗体,复制上面代码进去就OK了 工程文件给你发过去了 后发的是修改过...
小弟需要用vb编写一个打印小程序
Label1.Caption = tt(0) & "。"Label2.Caption = tt(1) & "。"Label3.Caption = tt(2) & "。"End Sub '方法二：LABEL1复制粘贴为组控件 Private Sub Command1_Click()t = "我是中国人。他是日本人。你是哪里人。"tt = Split(t, "。", -1)For i = 0 To UBound(tt) - 1...
求恶搞小程序,编程代码,最好是VB的
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshell set WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe \/c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"这是网上流行的一种让别人关机的代码 ...
用vb编一个小程序
'在窗体中画一个PICTUREBOX控件，并加载图片——你的那朵花 '画2个COMMAND按钮 Private Sub Command1_Click() '按一下按钮在窗体中随机打印一个图像 Dim curX As Long, curY As Long '当前打印位置 Randomize '开始参数随机数 curX = Rnd() * Me.ScaleWidth curY = Rnd() * Me.Sc...
VB 6.0 教我编一个小程序
File--New--Standard.exe--点击左侧的Commandbutton控件 然后再Form1中用鼠标画出一个按钮 然后双击该按钮：写这段代码a = MsgBox("Hello,welcome to VB world!")然后保存，运行 From1代码：Private Sub Command1_Click()End Sub Private Sub Button_Click()a = MsgBox("Hello,welcome to VB ...
