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