请帮助设计一个vb程序
更新日期：2024.05.05
呵呵。以前我刚学VB的时候就做过这样的。我现在重做了一个，你试试看。
一个shape控件，和一个时间控件。把时间控件的intarVal属性改为1
然后把下面的代码放上去就可以了。
Dim Lbo As Boolean, Tbo As Boolean
Private Sub Timer1_Timer()
If Shape1.Left <= 0 Then
Lbo = True
ElseIf Shape1.Left >= Me.Width - Shape1.Width - 250 Then
Lbo = False
End If
If Shape1.Top <= 0 Then
Tbo = True
ElseIf Shape1.Top >= Me.Height - Shape1.Height - 570 Then
Tbo = False
End If
If Lbo = True Then
Shape1.Left = Shape1.Left + 10
Else
Shape1.Left = Shape1.Left - 10
End If
If Tbo = True Then
Shape1.Top = Shape1.Top + 10
Else
Shape1.Top = Shape1.Top - 10
End If
End Sub
如果你的圆球用shape－3 Circle的话，那么left－top分别是左边和上边。left＋weight 和 top＋height 分别是右边和下边。weight和height应该是一样的。
15125096161 :用VB设计一个程序?
勾柏宏967 :答：VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。说明 如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 ...
15125096161 :帮忙设计一个VB程序。
勾柏宏967 :答：添加2个文本框，2个按钮，TEXT文件保存在同工程的目录下 排序过程区分了大小写，如不需区分大小写，请添加代码把姓名全部转化为小写或大写 Dim a() As String '保存姓名变量 Private Sub Command1_Click() '把TEXT...
15125096161 :VB编写程序实现以下功能:设有一个二维数组A(4,4),每个数组元素为两位...
勾柏宏967 :答：" Exit SubEnd IfIf Len(YY) <> 1 Then MsgBox "文本框2输入的字符必须是1个字符！" Exit SubEnd IfKK = Len(XX)ReDim DD(1 To KK)KK1 = 0For I = 1 To KK DD(I) = Right(Left(XX, ...
15125096161 :用vb做一个程序(100分)可追加50分
勾柏宏967 :答：在窗体上添加一个文本框Text1用来输入一些数字和标点符号,再添加一个文本框Text2用来输出一些小写的英文或数字或标点符号,添加一个按钮控件cmdConvert,单击此按钮的时候用特定的方法转换Text1里的内容,并在Text2里输出.在按钮...
15125096161 :急!关于VB,简单的程序设计
勾柏宏967 :答：在VB程序设计时,初学者常犯的一个错误是遗漏对象名称,特别是在使用列表框时。例如,如果要引用列表框(List1)中...一个简单VB程序设计过程程序设计——编程人员使用程序设计语言设计一个计算机程序。【引例】简单VB程序设计实例。功能...
15125096161 :请高手设计一个VB程序
勾柏宏967 :答：Private Sub Form_Load()aa = InputBox("提示！输入你是谁", "请输入“你是谁”")bb = InputBox("提示！输入不知道", "请输入“不知道”")If aa = "你是谁" And bb = "不知道" Then Label1.Caption = "...
15125096161 :VB的一个程序,帮忙编一下,谢谢
勾柏宏967 :答：Private Sub Command1_Click() '倒三角形 Dim S As String, i As Integer, n As Integer S = "*"n = InputBox("输入要打印的行数：")For i = n To 1 Step -1 Print Space(n - i) + String(2 * i ...
15125096161 :求帮忙设计个VB程序
勾柏宏967 :答：Dim a As Double, b As Double, d As Double, pi As DoubleConst r = 6378.137Private Sub Command1_Click() pi = 4 * Atn(1) a = Val(InputBox("请输入第一个城市经度！")) b = Val(InputBox...
15125096161 :用VB怎么设计一个简单的欢迎词程序?
勾柏宏967 :答：因为欢迎词是string型的 也就是说除了数字 以外所有的这些都要写个""然后 按钮2按下的时候 text1的text （text是他的一个属性，需要更改时写一个名称然后.然后属性或者动作）text1的text为”“空的 什么都没有 ...
15125096161 :vb程序设计
勾柏宏967 :答：1、Dim i As Integer Dim x As String Dim s As Long For i = 1 To 5 x = InputBox("请输入一个整数：")If Val(x) >= 1 And Val(x) < 10 Then Print x & " 是一位数"Print ElseIf Val(x) >=...
一个shape控件，和一个时间控件。把时间控件的intarVal属性改为1
然后把下面的代码放上去就可以了。
Dim Lbo As Boolean, Tbo As Boolean
Private Sub Timer1_Timer()
If Shape1.Left <= 0 Then
Lbo = True
ElseIf Shape1.Left >= Me.Width - Shape1.Width - 250 Then
Lbo = False
End If
If Shape1.Top <= 0 Then
Tbo = True
ElseIf Shape1.Top >= Me.Height - Shape1.Height - 570 Then
Tbo = False
End If
If Lbo = True Then
Shape1.Left = Shape1.Left + 10
Else
Shape1.Left = Shape1.Left - 10
End If
If Tbo = True Then
Shape1.Top = Shape1.Top + 10
Else
Shape1.Top = Shape1.Top - 10
End If
End Sub
如果你的圆球用shape－3 Circle的话，那么left－top分别是左边和上边。left＋weight 和 top＋height 分别是右边和下边。weight和height应该是一样的。
勾柏宏967 :答：VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。说明 如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 ...
勾柏宏967 :答：添加2个文本框，2个按钮，TEXT文件保存在同工程的目录下 排序过程区分了大小写，如不需区分大小写，请添加代码把姓名全部转化为小写或大写 Dim a() As String '保存姓名变量 Private Sub Command1_Click() '把TEXT...
勾柏宏967 :答：" Exit SubEnd IfIf Len(YY) <> 1 Then MsgBox "文本框2输入的字符必须是1个字符！" Exit SubEnd IfKK = Len(XX)ReDim DD(1 To KK)KK1 = 0For I = 1 To KK DD(I) = Right(Left(XX, ...
勾柏宏967 :答：在窗体上添加一个文本框Text1用来输入一些数字和标点符号,再添加一个文本框Text2用来输出一些小写的英文或数字或标点符号,添加一个按钮控件cmdConvert,单击此按钮的时候用特定的方法转换Text1里的内容,并在Text2里输出.在按钮...
勾柏宏967 :答：在VB程序设计时,初学者常犯的一个错误是遗漏对象名称,特别是在使用列表框时。例如,如果要引用列表框(List1)中...一个简单VB程序设计过程程序设计——编程人员使用程序设计语言设计一个计算机程序。【引例】简单VB程序设计实例。功能...
勾柏宏967 :答：Private Sub Form_Load()aa = InputBox("提示！输入你是谁", "请输入“你是谁”")bb = InputBox("提示！输入不知道", "请输入“不知道”")If aa = "你是谁" And bb = "不知道" Then Label1.Caption = "...
勾柏宏967 :答：Private Sub Command1_Click() '倒三角形 Dim S As String, i As Integer, n As Integer S = "*"n = InputBox("输入要打印的行数：")For i = n To 1 Step -1 Print Space(n - i) + String(2 * i ...
勾柏宏967 :答：Dim a As Double, b As Double, d As Double, pi As DoubleConst r = 6378.137Private Sub Command1_Click() pi = 4 * Atn(1) a = Val(InputBox("请输入第一个城市经度！")) b = Val(InputBox...
勾柏宏967 :答：因为欢迎词是string型的 也就是说除了数字 以外所有的这些都要写个""然后 按钮2按下的时候 text1的text （text是他的一个属性，需要更改时写一个名称然后.然后属性或者动作）text1的text为”“空的 什么都没有 ...
勾柏宏967 :答：1、Dim i As Integer Dim x As String Dim s As Long For i = 1 To 5 x = InputBox("请输入一个整数：")If Val(x) >= 1 And Val(x) < 10 Then Print x & " 是一位数"Print ElseIf Val(x) >=...
