成语大全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