急事帮我编一个vb程序设初速度和末速度,时间为t,单击按纽执行.要源码.我在线等

Private Sub Command1_Click()

Dim SSt!, SSp!, t!, Temp$

Temp = InputBox("请输入初速度m/s、末速度m/s、时间s，中间用空格隔开 ")

SSt = Split(Temp, " ")(0)

字数限制100字，其余部分见留言

VB中打开指定程序用shell函数。例：dim s s=shell("C:\kugouexe")关闭指定程序的代码：Dim s

s = "kugouexe" '进程

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\root\cimv2")

Set colProcessList = objWMIServiceExecQuery _

("Select from Win32_Process Where Name='" & s & "'")

For Each objProcess In colProcessList

objProcessTerminate

Next 不过我要说明的是，如果自定指写文件地址打开，而用全盘搜索指定程序。如果这样的话，那会非常慢。不信的话，你可以用windows下试下全盘搜索指定程序的功能。如果你需要VB全盘搜索的代码，可联系我QQ763483129

加入以下代码：

Private Sub Form_Load()

Text1Text = Now

Timer1Enabled = True

Timer1Interval = 1000

End Sub

Private Sub Timer1_Timer()

Text1Text = Now

End Sub

扩展资料：

VB获取系统当前时间并格式化输出

用到的函数：

Date函数：返回系统的日期

Now函数：返回系统的日期和时间

Format函数：根据格式表达式来格式化数据

实例：

Private Sub Form_Load()

'设置同步时间显示

Timer1Interval = 1000

Timer1Enabled = True

End Sub

Private Sub Timer1_Timer()

Label2Caption = Format(Now, "hh:mm:ss")            '获取当前时间

Label4Caption = Format(Now, "yyyy-mm-dd")          '获取当前日期

Label6Caption = Format(Now, "yyyy-mm-dd hh:mm:ss") '日期和时间

End Sub

vb运行编写好的程序可以分以下两种情况：

1、VB内调试运行。点击vb顶部工具栏的启动按钮（黑色三角形图标），或者菜单--运行-启动，快捷键是F5。这个功能在编写程序时会经常用到。

2、编译vb程序后运行。点击菜单---文件--生成工程1exe(具体工程名字可以自己修改)。这样就会生成exe文件，点击这个exe运行就是编写好的软件。

public a,b,c,n ,p as int

a=rnd10 (text1text=a)

b=rnd10 (text2text=b)

判断符号，如果是加号，则

c=a+b

如果是减号，则

c=a-b

if val(trim(text3text))=c then

a=rnd10

b=rnd10

p=P+1 (p做为统计)

else

n=n+1

if n=3 then

a=rnd10

b=rnd10

end if

end if

复制的，我就只学了一点点

以上就是关于急事帮我编一个vb程序 设初速度和末速度,时间为t,单击按纽执行. 要源码.我在线等全部的内容，包括:急事帮我编一个vb程序 设初速度和末速度,时间为t,单击按纽执行. 要源码.我在线等、VB怎么打开程序、VB显示当前时间的程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！