想用vb写个小程序。输入十个整数，每输入一个按回车确定在输入下一个，完成十个后自动从小到大排序，弹
想用vb写个小程序。输入十个整数，每输入一个按回车确定在输入下一个，完成十个后自动从小到大排序，弹窗输出结果，求源码
text1中 输入数据 每输入一个 点确定 或者是回车数据被记录 text1中 空的了 再输入下一个数据。十个完成后 点计算 在text2中 显示结果 还有 每次 输入的数据 也能在text2中显示出来！ 还有 就是 点击运行的 以后 在text1和2中 什么都没有，也就是没有输入框中没有“text1”是空的。怎么办到
实现很容易。追问
能给段程序吗？
给短小程序
求做一个VB的小程序,求代码,急
Private Sub Command1_Click()Dim a(1 To 10) As Integer, Max As Integer Randomize Text1.Text = ""For i = 1 To 10 a(i) = Int(Rnd() * 101) + 200 & " "Text1.Text = Text1.Text & a(i) & " "Next Max = 1 For i = 2 To 10 If a(i) > a(Max) Then M...
我想用 vb 编写一个小程序
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then '如果按的是回车键 ReDim Preserve a(i) '重新定义动态数组 a(i) = Val(Text1) '给数组赋值 i = i + 1 Text1 = ""End If End Sub
用vb或者vba在excel里编一个排列组合的小程序
第2，另外5个格子中A4~E4有由用户自由填入1~6的数字，并判断A4~C4三个格子的和为6，是什么意思？第3，然后分别从第一组去取A4个数，加上第二组B4个数，加上第三组C4个数，由三组中去除的数组成一个新的6个数字的组合，最后把所有取得的组合罗列出。是什么意思？第4，并判断组合中的数相加...
用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编写一个测试算术的小程序(续)
Text1.Text = "按1键开始"Text1.SetFocus cCount = 1 Timer1.Enabled = False End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)If Not iStar Then If KeyCode = 49 Then iStar = True Timer1.Interval = 100 Timer1.Enabled = True k = getIssue()iTime = time...
希望VB高手能用VB帮我做个报价小程序
不过你的数据来源中有两列要判断，如果用VBA代码判断当然很简单，但用EXCEL函数就不好处理了，你可以把数据来源中的第二、三列合并成一列，同样最后处理的表格里也一样合并成一列，然后用EXCEL里的LOOKUP函数来完成单价的查找，至于金额用一个相乘的等式就能完成，做出来第一行的函数后，后面行用自动...
如何使用VB编写一个简单的小程序?
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性...
小弟需要用vb编写一个打印小程序
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 Label1(i).Caption = tt(i) & ...
用vb或者vba在excel里编一个排列组合的小程序
VBA语言：在A列中输入一列数据 ，自动排列组合，结果按顺序显示在B列：Private Sub numzh()Dim h, l, n1, n2 h = [a65536].End(xlUp).Row l = 1 For n1 = 1 To h Range("b" & l) = Range("a" & n1)l = l + 1 Next n2 = 1 Do While n1 > h For n1 = 1 To h ...
用VB写一个小程序可以代替键盘输入
'真长啊 Private Sub Command3_Click()Dim i As Long '单击后等同于如下效果:'1:按键盘的 ALT+TAB(是先按ALT然后不松开ALT按TAB 目的就是为了切换)SendKeys "%{TAB}"'2:按键盘的 TAB(4下)For i = 1 To 4 SendKeys "{TAB}"Next i '3: 按键盘的 1 SendKeys "1"'4: 按键盘的 ...
