成語大全vb程序

⑴ 求一個VB程序，完整的程序

Private Sub Command1_Click()

Dim s As Single, n As Single

s = Val(Text1)

If s <= 1500 Then

n = s * 0.03

ElseIf s <= 4500 Then

n = s * 0.1

ElseIf s <= 9000 Then

n = s * 0.2

Else

n = s * 0.25

End If

Text2 = Format(n, "$0,00.00")

End Sub

Private Sub Form_Load()

Label1.Caption = "金額"

Label2.Caption = "個人稅"

Command1.Caption = "計算"

Text1 = "15678"

Text2 = ""

End Sub

⑵ 用vb編寫一個簡單的程序

新建一個窗體,畫2個文本框 Text1和,代碼放在窗體裡面...

Option Explicit
Dim arrPY

Private Sub Form_Load()
Text1.Text = ""
Text1.MaxLength = 2
Text2.Text = ""
Text2.Locked = True

arrPY = Array("ling", "yi", "er", "san", "si", "wu", "liu", "qi", "ba", "jiu", "shi")
End Sub

Private Sub Text1_Change()

'只有一位數字
If Len(Text1) = 1 Then
'校驗是否為數字
If IsNumeric(Text1) = False Then Exit Sub
Text2.Text = arrPY(Text1)

Else
'兩個數字

'校驗數據是否正確
If IsNumeric(Left$(Text1, 1)) = False Or IsNumeric(Right$(Text1, 1)) = False Then Exit Sub

'10就是shi 不能是 yi shi
If Text1 = 10 Then
Text2.Text = arrPY(10)
'以0結尾
ElseIf Right$(Text1, 1) = 0 Then
Text2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10)
'其它情況 x shi y
Else
Text2.Text = arrPY(Left$(Text1, 1)) & " " & arrPY(10) & " " & arrPY(Right$(Text1, 1))
End If

End If

End Sub

⑶ VB編程的程序

DimjlAsString

PrivateSubct_Click()

Text1.FontBold=True

EndSub

PrivateSubqc_Click()

Text1.Text=""

EndSub

PrivateSubsl_Click()

jl=InputBox("請輸入相關信息","輸入信息")

EndSub

PrivateSubtc_Click()

End

EndSub

PrivateSubxhx_Click()

Text1.FontUnderline=True

EndSub

PrivateSubxs_Click()

Text1.Text=jl

EndSub

PrivateSubxt_Click()

Text1.FontItalic=True

EndSub

PrivateSubzc_Click()

Text1.Font.Size=10

Text1.FontBold=False

Text1.FontUnderline=False

Text1.FontItalic=False

EndSub

PrivateSubztdx_Click()

Text1.FontSize=20

EndSub

http://www.namipan.com/d/

程序下載地址

⑷ VB程序!!

Private Sub form_load()
Me.Show
Text1.SetFocus
End Sub

因為那個時候form是隱藏的,沒有辦法設定焦點,可以這么理解
只要加個show就可以了

⑸ 求一個簡單VB程序代碼

PrivateSubCommand1_Click()
Command1.Enabled=False
Command2.Enabled=True
Label1.Visible=True
Form1.Caption="單擊「隱藏」按鈕隱藏文字"

EndSub

PrivateSubCommand2_Click()
Command1.Enabled=True
Command2.Enabled=False
Label1.Visible=False
Form1.Caption="單擊「顯示回」按鈕顯示文答字"

EndSub

PrivateSubForm_Load()
Label1.Caption="Hello"
Label1.Visible=False
Command1.Caption="顯示"
Command2.Caption="隱藏"
Command2.Enabled=False
Form1.Caption="單擊「顯示」按鈕顯示文字"

EndSub

⑹ VB程序！！

'送一個創新性的輸入平均分與名次的給你,在窗體上加兩個command就可以了
Dim a(1 To 5, 1 To 4) As Integer, y(1 To 5) As Integer

Private Sub Command1_Click() '輸出平均分和名次
Dim m(1 To 5) As String, p(1 To 5) As Integer, p1(1 To 5) As Integer
For i = 1 To 5
For j = 1 To 4
p(i) = p(i) + a(i, j)
Next
Next
CurrentX = 3700
CurrentY = 10
Print "平均分 " & " 名 次"
For i = 1 To 5
p(i) = p(i) / 4
p1(i) = p(i) '為後面以平均分排序保留排序前的數據
CurrentX = 3700
CurrentY = 360 * i
Print p(i)
Next
For i = 1 To 5
y(i) = mc(p1(i), p())
m(i) = "獲得第" & y(i) & "名"
CurrentX = 4500
CurrentY = 360 * i
Print m(i)
Next
End Sub

Private Sub Command2_Click() '重置按鈕
Cls
Form_Load
End Sub

Private Sub Form_Load() '產生五個學和的成績
Show
Print "姓名"; Spc(2); "語文 "; "數學 "; "英語 "; "化學 "
Print
Print "張三" & Chr(13) & Chr(13) & "李四" & Chr(13) & Chr(13) & "王二" & Chr(13) & Chr(13) & "麻子" & Chr(13) & Chr(13) & "明明"
CurrentY = 350
Randomize
For i = 1 To 5
For j = 1 To 4
a(i, j) = Int(Rnd * 99) + 1
Print Format(a(i, j), "@@@@@@@@@");
Next
Print
Print
Next
End Sub

Public Function mc(a As Integer, p() As Integer) '獲取名次函數
For i = 1 To 4
For j = i + 1 To 5
If p(i) < p(j) Then
t = p(i): p(i) = p(j): p(j) = t
End If
Next
Next
For i = 1 To 5
For j = 1 To 5
If a = p(j) Then
mc = j
End If
Next
Next
End Function

⑺ 寫個VB程序

哈哈 應該這樣寫，
Private Sub Timer1_Timer()
Image1.Visible = Not Image1.Visible
End Sub

樓主逆反邏輯錯誤了
If Image1.Visible = True Then Image1.Visible = False
'這里沒錯
If Image1.Visible = False Then Image1.Visible = True
'但是如果這里的條件為真的話，那麼肯定執行上面的語句了，所以你的圖片總會顯示
End Sub

⑻ VB（ 一個VB程序）

'這是一個比較完整的成績管理系統，包括成績的增、刪、改等
Private Sub Form_Unload(Cancel As Integer)
Unload Form3
Unload Form4
End Sub

Private Sub muadd_Click() '增加學生的成績
ReDim Preserve xm(W + 1), Math(W + 1), eng(W + 1), com(W + 1)
W = W + 1
xm(W) = InputBox("請輸入追加的姓名", "輸入框1")
Math(W) = InputBox("請輸入數學的成績", "輸入框2")
eng(W) = InputBox("請輸入英語的成績", "輸入框3")
com(W) = InputBox("請輸入計算機的成績", "輸入框4")
List1.List(W) = xm(W) & " " & Math(W) & " " & eng(W) & " " & com(W) & vbNewLine '增加後保存到相應的數組變數及list1列表中
End Sub

Private Sub mudelete_Click() '刪除某個學生的成績
If List1.ListIndex > 0 Then
List1.List(List1.ListIndex) = ""
For i = List1.ListIndex To List1.ListCount - 1
List1.List(i) = List1.List(i + 1)
Next
List1.RemoveItem (List1.ListCount - 1)
W = W - 1
End If
End Sub

Private Sub mudown_Click() '顯示窗口Form4
Form4.Show
End Sub

Private Sub muopen_Click() '打開成績數據文件
CommonDialog1.InitDir = App.Path
CommonDialog1.Filter = "text(.*)|*.txt|all file|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
a1 = CommonDialog1.FileName

Open a1 For Input As #1
W = 0
Do While Not EOF(1)
ReDim Preserve xm(W + 1), Math(W + 1), eng(W + 1), com(W + 1)
q1 = q1 + 1
W = W + 1
Input #1, xm(W), Math(W), eng(W), com(W) '把每行數據分別讀到數組變數中
Loop
Close #1
Call print1
End Sub
Sub print1() '在列表中顯示完整的成績表
List1.List(0) = "姓名 數學 英語 計算機" & vbNewLine
For i = 1 To W
List1.List(i) = xm(i) & " " & Math(i) & " " & eng(i) & " " & com(i) & vbNewLine
Next
End Sub

Private Sub musaveto_Click() '保存成績到文件
Dim sFile As String
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Filter = "所有文件(*.*)|*.*|文本文件(*.txt)|*.txt" & "|word 文檔(*.doc)|*.doc"
CommonDialog1.Flags = &H4&
CommonDialog1.DefaultExt = "txt"
CommonDialog1.ShowSave
sFile = CommonDialog1.FileName
Open sFile For Output As #2
For i = 0 To W
Print #2, List1.List(i)
Next
Close #2
Exit Sub
ErrHandler:
Exit Sub
End Sub

Private Sub muup_Click() '顯示窗口Form3
Form3.Show
End Sub

⑼ VB程序。

VB.net 代碼風格
沒有功能說明。撿最簡單給你說明。
'私有過程
Private Sub btget_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btget.Click
Me.Hide() 『隱藏自已（窗體對象）
func.Button1.Text = "取款" '窗體按鈕對象1文本是取款
func.Label1.Text = "取款金額" 『窗體標簽對象1文本是取款金額
func.Label2.Visible = False 』窗體標簽對象2不可見
func.TextBox2.Visible = False 『窗體文本框對象2不可見
func.Show() 』顯示窗體 func
End Sub

第一段代碼是在資料庫表 bank 列 assets 中更新一個值。
最後一段代碼是詢問用戶是否退出。否則資料庫表中添加一個值

⑽ vb程序不勝感激

1.A
2.C
3.C
4.D
5.A
6.D
7.D
8.B
9.D
10.D
11.C
12.D
13.C
14.A(此題答案錯誤，在PASSWORD設為*時，四個選項都沒有影響，只有第一個在設計時會顯示原文，但運行時仍是顯示*號）
15.B