Question

VB初学者做什么程序好

有类似，计算器，记事本，挂机锁。的这些程序吗？介绍几种我做，暂时没想出做什么程序。谢谢！

Answer 1

我给你说个吧，我刚开始学VB时做的第一个程序，我感觉相当实用，当时我有一个MP3可以看TXT的电子书，但是没有书签功能，每次看都得一下一下翻半天才找到上一次看的地方，所以我想了个办法，就是编写了一个程序，能够自动把长篇的小说之类的TXT文档分割，许多小文件，并且能自动命名为01 02 03...还可以设置每一个文件包含多少个文字，你也编一下这个程序吧，应该非常有用，包括现在的MP3应该也有没有书签功能的吧，你身边的朋友的MP3可能就需要这个程序。这个程序很简单，主要运用了打开与存储对话框的控件，另外就是Sring的处理，我当时就是现学现编的，打开与存储对话框控件我在那以前从来没接触过，从那次就很会用了，另外还有我一个没有处理好的地方也一块告诉你，就是我的程序一但开始工作了就不会响应外部了，就像卡了一样，点什么都不管用了，直到工作完成才行，希望你能把我当然的问题也一并解决了。加油！

Answer 2

我也是初学者。看别人的提问然后自己写个程序回答。。下面是我以前写的个程序使记事本永远在前端显示：Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Check1_Click()
Dim Q
If Check1.Value = 1 Then
Q = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
Else
Q = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
End If
End Sub
Private Sub Form_Load()
Check1.Caption = "点击窗口置前"
Text1.Text = ""
Command1.Caption = "打开文件"
End Sub
Private Sub Command1_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
FileName = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, textline
Text1.Text = textline
Loop
Close #1
End SubPrivate Sub Text1_Change()End Sub

Answer 3

一般写个能解决实际问题的简单程序，比如图书馆的结束系统或者你平时的工资结算的方面的程序