vb编程练习题

❶ 简单的VB编程练习题！急求答案！

我可是免费的哦
1、
Private Sub Form_Click()
Dim A(1 To 10) As Integer
Dim i As Integer
Dim iMax As Integer, iPos As Integer

Me.Show
Me.Cls
Randomize
iMax = 0

For i = 1 To 10
A(i) = Fix(Rnd * 41) + 60
Print A(i) & " ";
If A(i) > iMax Then
iMax = A(i)
iPos = i
End If
Next i

Print

Print iMax
Print iPos

End Sub

如果有好几个数一样的话只能找到前面的（也算是一个缺陷吧）

2.
Private Sub Command1_Click()

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)

Private Sub Command1_Click()

Dim a(1 To 10) As Integer
Dim i As Integer

Me.Show
Me.Cls
Randomize

For i = 1 To 10'显示最初顺序
a(i) = Fix(Rnd * 101) + 100
Print a(i) & " ";
Next i

Print

Sort VarPtr(a(1))

For i = 1 To 10'输出结果
Print a(i) & " ";
Next i

End Sub

Private Sub Sort(ByVal Head As Long)

Dim i As Integer, j As Integer, t As Integer
Dim b(1 To 10) As Integer

CopyMemory VarPtr(b(1)), Head, 20

For i = 1 To 9 '这节是排序的
For j = i + 1 To 10
If b(i) > b(j) Then
t = b(i)
b(i) = b(j)
b(j) = t
End If
Next j
Next i

CopyMemory Head, VarPtr(b(1)), 20

End Sub

❷ VB编程题目

窗体上添加2个文本框和1个按钮，文本框用来显示2个同学名字
Private
Sub
Command1_Click()
'交换名字

Dim
s
As
String

s
=
Text1.Text

Text1.Text
=
Text2.Text

Text2.Text
=
s
End
Sub

❸ VB编程题

Private Sub Command1_Click() '运行
Dim a As Long, b As Long, a0 As Long, b0 As Long, i As Long
List1.Clear
a = Val(Text1.Text): b = Val(Text2.Text)
If a > b Or a < 0 Or b < 0 Then MsgBox "第一个数需要比第二个数小，且均为整数！": Exit Sub
a0 = Int(Sqr(a))
b0 = Int(Sqr(b))
If a > a0 * a0 Then a0 = a0 + 1
For i = a0 To b0
If isSxpf(i * i) Then List1.AddItem i * i
Next i
End Sub

Private Function isSxpf(ByVal n As Long) As Boolean
Dim t As String
t = CStr(n)
For i = 1 To Len(t) - 1
If Mid(t, i, 1) >= Mid(t, i + 1, 1) Then isSxpf = False: Exit Function
Next i
isSxpf = True
End Function

Private Sub Command2_Click() '清除
Text1 = ""
Text2 = ""
List1.Clear
End Sub

Private Sub Command3_Click() '退出
End
End Sub

❹ 有关VB编程的题

Private Sub cmd1_Click()
'cmd1.Move 0, 0

cmd1.Left = 0
cmd1.Top = 0
End Sub

Private Sub cmd2_Click()
'cmd2.Width = cmd2.Width * 2
cmd2.Width = cmd2.Width + cmd2.Width
'cmd2.Height = cmd2.Height * 2
cmd2.Height = cmd2.Height + cmd2.Height
End Sub

❺ vb编程题目

Private Sub Command1_Click()

If Len(Text1) >= 2 Then

Text1 = Left(Text1, 2)

End If

End Sub

Private Sub Command2_Click()

Text1 = ""

End Sub

Private Sub Form_Load()

Label1.Caption = "新字符串"

Command1.Caption = "左边2个字符"

Command2.Caption = "清空"

Text1 = ""

'这里不知道 三号是多大时，可以手动设置文本框字体大小为三号，然后显示下字体大小，就知道三号字体等于15.75

Print Text1.FontSize

Text1.FontSize = 15.75

Text1.ForeColor = vbRed

Text1 = "aBcDeF"

End Sub

❻ VB程序设计练习题

设计界面：

代码：

Private Sub Command1_Click()

Dim n As Long

n = Val(InputBox("输入", "请输入您个年龄", 12))

If n < 18 Then

Print n; "少年"

ElseIf n >= 18 And n < 45 Then

Print n; "青年"

ElseIf n >= 45 And n <= 59 Then

Print n; "中年"

ElseIf n > 59 Then

Print n; "老年"

Else

Print n; "输入年龄错误"

End If

End Sub

Private Sub Command2_Click()

Dim n As Long

n = Val(InputBox("输入", "请输入您个年龄", 12))

Select Case n

Case Is < 18

Print n; "少年"

Case Is > 59

Print n; "老年"

Case Is >= 18

Select Case n

Case Is < 45

Print n; "青年"

Case Else

Print n; "中年"

End Select

Case Else

Print n; "输入年龄错误"

End Select

End Sub

❼ 几道VB编程题目*（麻烦写下详细过程）

第一题： Private Sub Form_Click() Dim c(1 To 10) As Integer Dim sum, avg As Integer '------以下为统计十名学生成绩------------ Print "十名学生的成绩是:" For i = 1 To 10 c(i) = Rnd * 40 + 60 Print c(i) sum = sum + c(i) Next '------以下为计算平均成绩---------------- avg = sum / 10 Print "平均成绩为：" & avg '------以下为小于平均成绩的成绩---------- Print "小于平均成绩的成绩有：" For i = 1 To 10 If c(i) < avg Then Print c(i) End If Next '------以下为十名成绩从大到小排序--------- For i = 1 To 9 For j = i + 1 To 10 If c(i) < c(j) Then t = c(i) c(i) = c(j) c(j) = t End If Next Next Print "十名成绩从大到小排序为：" For i = 1 To 10 Print c(i) Next End Sub

❽ VB高手来，vb编程练习题，急！！！

第一个问题解决方案：
Dim Min,Minsz as Integer '定义最小数组和最小数组下标
Min=0 '初始化
Minsz=0 '初始化
For i=1 to 10
A[i]=Inputbox("请输入一个数字:") '输入一个数字存入数组
if(A[i]>Min) '如果数组的值比最小值小,转换
Min=A[i]
Minsz=i
end if
Next i

第二个问题解决方案：

Dim k as Integer
k=0
For i=1 to 20
If(k<0) then
k=k+Inputbox("请输入数字:")
End If
Next i

第三个问题解决方案：
Dim k1,k2,i as Integer
k1=0
k2=0
i=0
While(i<=100)
if(i mod 3)=0 then
k1=k1+i
end if
if(i mod 7)=0 then
k2=k2+i
end if
i=i+1
wend

❾ 一道简单的VB编程练习题,大家帮忙,急!!!

Dim a, b, c, max As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
If a > b Then
max=a
Else
max=b
End If

if max< c then max=c

msgbox "最大值是" & max