VBA计算从键盘输入 并调用自定义sub Dim smSub ss()x=Val(InputBox(\"x=\"))y=Val(InputBox(\"y=\"))Z=Val(InputBox(\"z=\"))sm=0s x：s y：s ZMsgBox smEnd SubSub s(ByVal x)For i=1 To xsm=sm+1/iNextEnd Sub
excel中使用vba分别从键盘输入3个数，按其从小到大依次输出到单元格B1、B2、B3中 可以利用range的sort方法.Subtest()a=InputBox(\"请输入3个数字，各数字以空格分隔：\"，\"321\")a=Split(a)WithRange(\"b1：b3\").Value=Application.Worksheet…
VBA编程：从键盘输入三个整数，然后调用过程sort()，由过程sort()将这三个数从大到小进行排序， Private Sub Form6_Load(sender As Object，e As EventArgs)Handles MyBase.LoadDim a，b，c As IntegerMe.Visible=Falsea=InputBox(\"请输入第一个整数\")b=InputBox(\"请输入第二个整数\")c=InputBox(\"请输入第三个整数\")Sort(a，b，c)Me.Close()End SubPublic Sub Sort(a As Integer，b As Integer，c As Integer)Dim m As Integer=0Dim list As New List(Of Integer)list.Add(a)list.Add(b)list.Add(c)For i=0 To list.Count-1For j=i To list.Count-1If list.Item(i)(j)Thenm=list.Item(i)list.Item(i)=list.Item(j)list.Item(j)=mEnd IfNextNextMsgBox(\"从大到小排列为：\"&vbCrLf&list.Item(0)&\"，\"&list.Item(1)&\"，\"&list.Item(2))End Sub写的比较粗糙.
vba 打开excel后，键盘上大写功能被开启，不是在程序中输入时转换成大写 声明API函数检测大写锁定键状态，然后判断是否 用sendkeys 发送capslock键码来开启大写锁定Private Declare Function GetKeyState Lib\"user32\"(ByVal nVirtKey As Long)As IntegerPrivate Const VK_CAPITAL As Long=H14Private Const VK_NUMLOCK As Long=H90Private Const VK_SHIFT=H10Sub aaa()If GetKeyState(VK_CAPITAL)Mod&HFF80=1 ThenMsgBox\"当前处于大写状态ElseSendKeys\"{CAPSLOCK}End IfEnd Sub
