编写程序：在窗体添加一个按钮，名称为“Connmand1",按钮显示“输入并计算”。程序运行时，当单击按钮时，

Option Explicit

Private Sub Command1_Click()

Dim i, iSum As Integer '声明循环变量和总和

Dim iArry(4) As Integer '定义数组，存放输入的4个数字

Dim sAvg As Single '定义平均值

Dim strNums As String '存放输入的四个整数的字符串，方便显示

For i = 1 To 4

iArry(i) = InputBox("请输入第 " & i & " 个整数", "提示", 0) '依次输入4个数

iSum = iSum + iArry(i) '将4个数累加

strNums = strNums & CStr(iArry(i)) & "," '将输入的4个数拼成字符串

Next

sAvg = iSum / 4 '计算平均值

strNums = Mid(strNums, 1, Len(strNums) - 1) '去掉末尾的逗号

Print "您输入的四个整数：" & strNums & vbNewLine & "和为：" & CStr(iSum) & vbNewLine & "平均值为：" & sAvg & vbNewLine '显示结果

End Sub

错别字真多，帮你改写下：

落体位移公式S=gt^2/2+vot,其中vo为初始速度，g是重力加速度（是一个常数981），t是经历是时间，已知VO和T可以求S。在事件过程中编写代码，使得程序运行时，当单击按钮的时候，程序完成如下功能：通过InputBox函数让用户输入VO和t的值，程序负责计算S，计算结果用MSGBOX命令显示。要求G要定义为符号常量。

Private Sub Command1_Click()

Const cntG = 981

strVo = InputBox("请输入速度")

strT = InputBox("请输入时间")

intS = cntG (Int(strT) Int(strT)) / 2 + Int(strVo) Int(strT)

MsgBox (intS & "")

End Sub

根据面向设计的特点，如果两个窗体中的两个按钮要执行相同的事件，那么可以将这两个相同的事件提升为父对象中即可！

比如A中某一按钮实现一个特殊功能，而B中按钮实现相同功能。那么应该将这个功能提升到两个对象的共同父对象中即可！

比如你可以先写一个抽象对象abstractForm继承于Form,如果两者均有计时器，就在这个对象中添加计时器，写相关的代码即可！

可能会在父对象中声明相同的事件

public void Common_Click(object sender, EventArgs e)

{

//do something in here;

}

然后由A继承于AbstractForm,某个按钮，比如BtnOK，则在设计器中或是构造函数中添加

thisBtnOKClick += New EventHandler(Common_Click)即可。

如果两个界面中按钮其他设计也一样，——干脆把按钮也提到父对象中。

以上就是关于编写程序：在窗体添加一个按钮，名称为“Connmand1",按钮显示“输入并计算”。程序运行时，当单击按钮时，全部的内容，包括:编写程序：在窗体添加一个按钮，名称为“Connmand1",按钮显示“输入并计算”。程序运行时，当单击按钮时，、VB 编写程序：在窗体添加一个按钮，名称为”Cimmand1“，按钮显示“计算自由落体位移”。问题如下：落体位、c#窗体应用程序两个按钮一致等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！