vb編程例題
❶ 求一個簡單vb編程實例~
控制項：image,picture,timer代碼：Dim x As Integer
Dim y As IntegerPrivate Sub Form_Load()
x = 100
y = 100
Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
If img.Top >= pic.Height - img.Height Then
y = -100
End If
If img.Top <= 0 Then
y = 100
End If
If img.Left >= pic.Width - img.Width Then
x = -100
End If
If img.Left <= 0 Then
x = 100
End If
img.Top = img.Top + y
img.Left = img.Left + x
End Sub
以上代碼實現的是圖片框中的一個小球做的規律的運動，當小球碰到圖片框邊緣時便反彈繼續運動
❷ VB編程題
首先，如果你選擇的文本不是空字元串(有單詞)，那麼進行for循環，c
=
Mid(Text1.SelText,
i,
1)這個函數是取得你所選擇文本的從第i個算起的第1個字元，就是第i個字元，配合下面if語句結構，If
c
<>
"
"
Then
t
=
t
+
c
else......，如果這個第i字元不是空字元串，那麼字元串累積，如果第i字元是空字元串，則累積結束。直觀表現就是選出你一段話中的一個單詞，然後和the進行比對（因為英文單詞和單詞之間是空字元串相隔的）。
打個比方如果你選的一段話為qwe
the
twety，變數i在for循環中從1到13（字元串長度：11個字母加上2個空格間隔）i=1時c=Mid(qwe
the
twety,
i,
1)=q，t此時為空字元串，執行t
=
t
+
c後t=q，i=2時c=Mid(qwe
the
twety,
i,
1)=w，執行t
=
t
+
c後t=qw，i=3時c=Mid(qwe
the
twety,
i,
1)=e，執行t
=
t
+
c後t=qwe，i=4時c=Mid(qwe
the
twety,
i,
1)=
(空字元串)，進入if分支語句，LCase$(t)
=qwe（如果此時c為空字元串，LCase$(c)=（空字元串），），不是the，不執行m=m+1，m=0
進行比較，不是the，m無變化，i=5、6、7、8，此時LCase$(t)
=the（i=8時c仍為空字元串），執行m=m+1。
綜上所述，如果用
LCase$(c)="the"運行，c此時為空字元串，LCase$(c)為空字元串，LCase$(c)="the"這個條件達不到，不能執行m=m+1，所以m一直是0
望採納
❸ 高中vb編程例題詳解
Private Sub Command1_Click()
Dim a As Double, b As Double
a = InputBox("a的值")
b = InputBox("b的值")
c = InputBox("c的值")
Print "x1="; (-b + (b ^ 2 - 4 * a * c) ^ 0.4) / 2 / a, "x2="; (-b - (b ^ 2 - 4 * a * c) ^ 0.4) / 2 / a
End Sub
❹ vb編程例題
PrivateSubCommand1_Click()
Dima(10)AsInteger,xAsInteger
Randomize
Fori=1To10
a(i)=Int(Rnd()*51)
Printa(i);
Nexti
Print
x=InputBox("請輸入一個數：")
Fori=1To10
Ifa(i)=xThenExitFor
Nexti
Ifi<11Then
Print"a(";i;")=";x
Else
Print"未找到";x
EndIf
EndSub
❺ vb程序設計實例100
試題一.1
Private Sub Form_Click()
Print fs_sum(100)
End Sub
Function fs_sum(ByVal n As Integer) As Single
Dim s!, nc! '和與倒數
s=0
For i = 1 To n
nc = 1 / i
s = s + nc
Next i
fs_sum = s
End Function
試題一.2
Private Sub Form_Click()
For i = 1 To 4
Print Space(4 - i);
For j = 1 To i
Print "* ";
Next j
Print
Next i
End Sub
待續，未完...
❻ vb編程實例
Static s As Integer s 是靜態變數，過程結束後，數據依然存在，且值保持原來不變
一開始s=0
m(1),走入Function,時，n=1 ,循環一次（加上一個1），s=1,m(1)=1
m(2),走入Function,時，s=1(值保持原來1不變),n=2 ,循環2次（加上2個1），s=3,m(2)=3
m(3),走入Function,時，s=3(值保持原來3不變),,n=3 ,循環3次（加上3個1），s=6,m(3)=6
m(1)+m(2)+m(3)=1+3+6=10
❼ 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編程例題，100-200之間不能被3整除的數
Private Sub Command1_Click() '點擊開始按鈕
Dim i As Integer
For i = 100 To 200
If i Mod 3 <> 0 Then
List1.AddItem i
End If
Next i
End Sub
Private Sub Command2_Click() '點擊清除按鈕
List1.Clear
End Sub
Private Sub Form_Load()
Command1.Caption = "開始"
Command2.Caption = "清除"
End Sub
❾ VB編程題目
Private Sub Command1_Click()
Label1.Caption = "多預習，問題在心中"
End Sub
Private Sub Command2_Click()
Label1.Caption = "認真聽，知識記腦里"
End Sub
Private Sub Command3_Click()
Label1.Caption = "多練習，實踐出真知"
End Sub
Private Sub Form_Load()
Label1.FontSize = 20
Label1.Caption = "歡迎學習Visual Basic"
Command1.Caption = "上課前"
Command2.Caption = "上課時"
Command3.Caption = "上課後"
End Sub
❿ vb程序設計例題
修改好了測試成功，但是，基本上，偶數和會大於所有的數
Private
Sub
Command1_Click()
Dim
a(10)
As
Double
Dim
t
As
Double
Randomize
For
i
=
1
To
10
a(i)
=
Int(Rnd
*
100
+
2)
'設十個數，給十個數隨機賦值
If
a(i)
Mod
2
=
0
Then
t
=
t
+
a(i):
Print
"偶數為";
a(i)
Next
i
Print
"偶數的和為";
t
For
i
=
1
To
10
If
a(i)
<
t
Then
Print
"小於偶數和的數";
a(i)
Next
i
End
Sub