以前学习过初步的VB程序，会简单的语法，但不熟悉。 目前想学习VB，会很难吗？
Dim n As Integer, x As Integer, i As Integern = InputBox("输入天数 n")x = 20: i = 1Do While i <= n x = x + 50 i = i + 1LoopMsgBox "第" & i & "天的感染人数为: " & x & "人"模拟生化危机
我自己做的，你要不？
很简单的一些。我也刚学习一周时间
Dim ID As String
Dim Object As String
Dim ChkConnect As String
Dim ChkConditionA As String
Dim ChkConditionB As String
Dim selCount As Long
Dim m_MaxRow As Integer
Dim m_iSelCount As Integer
Dim ADOCON As New clsADOLibrary
Private Sub DBConnection()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String
Dim strCon As String
Dim i As Integer
strCon = GetInitialData("Common", "MainServer ")
Set con = ADOCON.ADOConnection(strCon)
strSql = ""
strSql = strSql & "SELECT" & vbCrLf
strSql = strSql & " *" & vbCrLf
strSql = strSql & "FROM" & vbCrLf
strSql = strSql & " TB_CkAdd" & vbCrLf
Set rs = ADOCON.ADORecordset(strSql, con)
If rs.EOF = True Then
If MsgBox("データがありませんでした、追加します？", vbQuestion + vbYesNo + vbDefaultButton2, Me.Caption) = vbNo Then
Exit Sub
End If
End If
i = 1
Do While rs.EOF = False
With fpSpread1
.Col = 2
.Row = i
.Text = rs.Fields(0)
.Col = 3
.Text = rs.Fields(1)
.Col = 4
.Text = rs.Fields(2)
.Col = 5
.Text = rs.Fields(3)
.Col = 6
.Text = rs.Fields(4)
End With
i = i + 1
rs.MoveNext
Loop
con.Close
End Sub
Private Sub Command1_Click()
Call DBDelete
m_MaxRow = m_MaxRow - m_iSelCount
End Sub
Private Sub Command2_Click()
Call DBInsert
End Sub
Private Sub Command3_Click()
Unload frmCheckAdd
frmMain.Show
End Sub
Private Sub Form_Initialize()
m_MaxRow = 0
End Sub
Private Sub Form_Load()
Call DBConnection
m_iSelCount = 0
End Sub
Private Sub DBInsert()
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSql As String
Dim strSQLIn As String
Dim strCon As String
Dim i As Integer
strCon = GetInitialData("Common", "MainServer ")
Set con = ADOCON.ADOConnection(strCon)
strSql = ""
strSql = strSql & "SELECT" & vbCrLf
strSql = strSql & " Count(*)" & vbCrLf
strSql = strSql & "FROM" & vbCrLf
strSql = strSql & " TB_CkAdd" & vbCrLf
Set rs = ADOCON.ADORecordset(strSql, con)
If MsgBox("データがありませんでした、追加するのを确定しますか？", vbQuestion + vbYesNo + vbDefaultButton2, Me.Caption) = vbNo Then
Exit Sub
End If
Do While rs.EOF = False
i = rs.Fields(0)
Exit Do
Loop
rs.Close
Do While i < fpSpread1.MaxRows
With fpSpread1
.Row = i + 1
.Col = 3
Object = .Text
.Col = 4
ChkConnect = .Text
.Col = 5
ChkConditionA = .Text
.Col = 6
ChkConditionB = .Text
End With
If (Trim(Len(Object)) 0 Or Trim(Len(ChkConnect)) 0) And Trim(Len(ChkConditionA)) = 0 And Trim(Len(ChkConditionB)) = 0 Then
MsgBox "入力条件は正确ないです、チェックしてください", vbInformation + vbOKOnly, "新规TXT取込システム管理ツール"
Exit Do
ElseIf i < m_MaxRow Then
strSQLIn = "INSERT INTO TB_CkAdd" & " values ('" & Object & "','" & ChkConnect & "','" & ChkConditionA & "','" & ChkConditionB & "')"
con.Execute strSQLIn
i = i + 1
ElseIf i = m_MaxRow Then
MsgBox "添付成功", vbInformation, "新规TXT取込システム管理ツール"
Exit Do
ElseIf i > m_MaxRow Then
MsgBox "入力条件は正确ないです、チェックしてください", vbInformation + vbOKOnly, "新规TXT取込システム管理ツール"
Exit Do
End If
Loop
Call DBConnection
End Sub
Private Sub DBDelete()
Dim con As ADODB.Connection
Dim strCon As String
Dim DelId As String
Dim i As String
Dim j As Integer
Dim strSQLDel As String
strCon = GetInitialData("Common", "MainServer")
Set con = ADOCON.ADOConnection(strCon)
j = 1
If m_iSelCount = -1 Or m_iSelCount = 0 Then
MsgBox "削除したいデータを选んでください！", vbInformation, "新规TXT取込システム管理ツール"
Call DBConnection
Exit Sub
End If
If MsgBox("选択した行を削除します。よろしいですか？", vbQuestion + vbYesNo + vbDefaultButton2, Me.Caption) = vbNo Then
Exit Sub
End If
Do While j < fpSpread1.MaxRows
With fpSpread1
.Row = j
.Col = 1
i = .Text
End With
With fpSpread1
.Row = j
.Col = 2
DelId = .Text
End With
If i = "" Or i = CStr("0") Then
j = j + 1
ElseIf i = CStr("1") Then
With fpSpread1
.Row = j
.Col = 1
If .Value = True Then
.DeleteRows j, 1
End If
End With
strSQLDel = ""
strSQLDel = strSQLDel & "DELETE" & vbCrLf
strSQLDel = strSQLDel & "FROM" & vbCrLf
strSQLDel = strSQLDel & " TB_CkAdd" & vbCrLf
strSQLDel = strSQLDel & "where" & vbCrLf
strSQLDel = strSQLDel & " ID = '" & DelId & "'" & vbCrLf
con.Execute (strSQLDel)
j = 1
End If
If Trim(Len(DelId)) = 0 Then
Exit Do
End If
Loop
MsgBox "削除成功", vbInformation, "新规TXT取込システム管理ツール"
Call DBConnection
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload frmCheckAdd
frmMain.Show
End Sub
Private Sub fpSpread1_ButtonClicked(ByVal Col As Long, ByVal Row As Long, ByVal ButtonDown As Integer)
Dim j As String
Dim strSQLUpd As String
Dim strCon As String
Dim con As ADODB.Connection
strCon = GetInitialData("Common", "MainServer")
Set con = ADOCON.ADOConnection(strCon)
If Col = 7 Then
With fpSpread1
.Row = Row
.Col = 2
ID = .Text
.Col = 3
Object = .Text
.Col = 4
ChkConnect = .Text
.Col = 5
ChkConditionA = .Text
.Col = 6
ChkConditionB = .Text
End With
If MsgBox("データを変更しますか。よろしいですか？", vbQuestion + vbYesNo + vbDefaultButton2, Me.Caption) = vbNo Then
Call DBConnection
Exit Sub
Else
strSQLUpd = "update TB_CkAdd" & vbCrLf
strSQLUpd = strSQLUpd & "set Object = '" & Object & "' ," & vbCrLf
strSQLUpd = strSQLUpd & "ChkConnect = '" & ChkConnect & "' , " & vbCrLf
strSQLUpd = strSQLUpd & "ChkConditionA = '" & ChkConditionA & "' , " & vbCrLf
strSQLUpd = strSQLUpd & "ChkConditionB = '" & ChkConditionB & "'" & vbCrLf
strSQLUpd = strSQLUpd & "where ID = '" & ID & "'"
con.Execute (strSQLUpd)
MsgBox "データを変更しました", vbInformation, "新规TXT取込システム管理ツール"
End If
End If
If Col = 1 Then
With fpSpread1
.Row = Row
.Col = 1
If .Value = True Then
m_iSelCount = m_iSelCount + 1
.Row = Row
.Col = 2
.BackColor = &HFEECCC
.Col = 3
.BackColor = &HFEECCC
.Col = 4
.BackColor = &HFEECCC
.Col = 5
.BackColor = &HFEECCC
.Col = 6
.BackColor = &HFEECCC
Else
m_iSelCount = m_iSelCount - 1
.Row = Row
.Col = 2
.BackColor = &HFFFFFF
.Col = 3
.BackColor = &HFFFFFF
.Col = 4
.BackColor = &HFFFFFF
.Col = 5
.BackColor = &HFFFFFF
.Col = 6
.BackColor = &HFFFFFF
End If
End With
End If
con.Close
End Sub
Private Sub fpSpread1_EditChange(ByVal Col As Long, ByVal Row As Long)
Dim i As Integer
Dim isEmpty As Boolean
For i = 3 To 6 Step 1
With fpSpread1
.Row = Row
.Col = i
If Trim(.Text) Empty Then
isEmpty = True
Exit For
End If
End With
Next i
If isEmpty = True Then
If Row > m_MaxRow Then
m_MaxRow = Row
End If
Else
m_MaxRow = Row - 1
End If
End Sub
熟悉语法 多做多看 几个月 就基本OK
坚持1年，可以达到精通
VB6是很简单的,容易入门.如果想编一些小东西,可以买本书看看.
面向对象VB最简单的了。
以前学习过初步的VB程序，会简单的语法，但不熟悉。 目前想学习VB，会很难吗？视频
相关评论：
齐阎盆如果有兴趣，就继续吧。学着学着，可能某一天就突然对难一些的东西就开窍了。如果没有兴趣，放弃也无所谓。既然是自学，不就是图一乐吗？就当是娱乐吧。或许某一天，你会用到这些知识，那也可能会不得不去做更复杂的东西。畏难情绪在任何学习过程中都是难免的。供参考。
齐阎盆学知识不一定就是为了找工作，学习VB关键就在于你做出一个属于自己的小软件的那种成就感，也许你不一定从事程序员这份职业，但我可以肯定的说，学习VB绝对是你成为程序员的起点。
齐阎盆3，你要尽量多的熟悉vb自带的函数，及其作用，这一点对你的程序非常有帮助，可以使你的程序简单，运行效率高，可以节省很多时间（亲身体会）。切记！！！4，你把基本的知识看过之后，就需要找一个实际的程序来动手编一下，不要等所有的知识都学好之后再去编程，你要在编程的过程中学习，程序需要什么...
齐阎盆2、武装头脑。VB是一门计算机编程语言，也算是一项知识含量较高的东东吧（自认为）。我呢，以前有一定的英语基础，呵呵，大专毕业，英语算是过了三级了。VB语言容易上手，采用的是可视化程序设计。自学了三年多，到现在会单独开发数据库管理系统了。根据单位实际，我设计了基层管理系统、理论考核系统。基...
齐阎盆要看你投入的时间了，如果每天投入4小时，大概需要20天，只能编辑简单的程序，半年后，可能能够编辑比较像样的程序，时间越长，资历就越高了。
齐阎盆如果你有C\/C++或其他高级语言的编程基础的话，学VB很快的，如果天天学，1个星期足矣。VB是公认的最简单的高级语言，开发速度快，程序功能全。如果对VC或C#比较恐惧的话，先学VB再学它们再好不过了。虽然入门很容易，但成为高手也是需要慢慢积累学习的。如果你的VB学好了，考试不是问题啊，不过你得等...
齐阎盆工作强度低不低是看各个公司的，在A公司运维的强度非常高，基本都是晚上回去还要加班做一些事情，主要原因是人比较少；而B公司的运维强度和人均的负荷成正比，这个我虽然为B服务过（以前我在一家B的供应商呆过，去过B做过一段时间），但是现在B怎么样我不太清楚；2.运维工程师工作的技术含量会不会...
齐阎盆1、建议先找一本VB的书学习一下，VB是VBA的基础。（简单一点的VB书，最好是纸张的，去书店买一本，入门必须，如果是新手啊，不是新手不用）2、到Ofice的官网学一下培训课程，如：http:\/\/office.microsoft.com\/zh-cn\/excel-help\/RZ001150634.aspx?CTT=1&origin=EC001022988 3、学会录制宏和调试...
齐阎盆肯定不简单。告诉你点我的体验。上学时，学过两个编程vb、8086系列的汇编。计算机基础，学过windows操作系统最基本的用法，学过网络，学过数据结构与算法。这些就是到毕业接触过的所有计算机知识。截止毕业vb写不出一个计算器程序，汇编连个交通信号灯的程序都未调试出来。网络基础未及格，补考了一次上学...
齐阎盆学手艺的话，个人建议可以学习 C#，比传统 C 简单得多。对于新手，学习 VB 2005\\2008 里面的 VB 或者 C#，难易程度几乎是一样的，但是 C# 的使用面更广。对于“一般学到哪里就学不下去了”这个问题，只能这样说：别指望“学会了再去干”，已经干过几年的程序员们，现在都是在“干中学”，因为...
