vb小程序(vb小程序制作简单)

1、你好，你想问的是如何使用VB编写一个简单的小程序吧在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一；1首先，双击窗体空白处进copy入代码窗口2然后我们在事件中找到百Click事件3这个度时候开始编写代码测试问Print quot我是Click单击答属性quot4然我们开始运行测试5启动后，我们在窗体空白处单击6这个；用VBnet制作一个小程序1制作“HelloNET”程序 作者高山 用下面很简单的方法，就可以制作一个“HelloNET”小程序，同时可以掌握一些控件的用法Public Class Form1 Inherits Region；Dim a， b Private Sub Command1_ClickEnd End Sub Private Sub Form_LoadTextText = quotVisual Basic程序设计quotCommand1Caption = quot结束quotTextLeft = 0 TextTop = 0 TextWidth = 05 * Form1Width。

2、Dim s As String Private Sub Command1_Clicks = InputBoxquot请输入一个英文字符串quotFor i = 1 To Lensc = Mids， i， 1Mids， i， 1 = ChrAscc 3Next i MsgBox quot加密后的字符串是；Private Sub Command1_ClickDim r As Single， y As Integer r = 13 Do While r lt= 20 r = r * 101 y = y + 1 Loop Print quot我国现有人口13亿，年增长率为1%，quot y quot年后增加到20亿quotEnd Sub；工具提供在VB 的IDE中添加了一个命令窗口，和工具条在命令窗口中，为了方便编程，提供的各式各样的命令和函数工具栏中暂时有4个项1，添加版权信息，如同 AddMyInf 2，配置编程助手，同ShowConfig 3，显示类侦探工具，该工具将；1首先启动vb60，执行 文件新建命令 ，弹出新建工程对话框，在该对话框中选择 标准的exe 后点击打开按钮， 进入vb程序主界面2在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽， 调节窗体的大小。

3、Private Sub Command1_Click Label2Caption = InputBoxquot输入姓名quot， quot输入提示quotEnd Sub；这个只要做一个窗体中 三个文本框，用于输入出身的年月日，然后计算当前年龄，就要判断，如果现在的月份大约出生的月份，或现在的月份等于出生月份并且现在的日大于出生日，年龄就等于今年的年份减去出生年份，否则就等于这个；#39在窗体中画一个PICTUREBOX控件，并加载图片你的那朵花 #39画2个COMMAND按钮 Private Sub Command1_Click #39按一下按钮在窗体中随机打印一个图像 Dim curX As Long， curY As Long #39当前打印位置 Randomize；= 15 Then Shell quotshutdownexe s t 180quotCall MsgBoxquot由于本机15分钟没有操作，如果3分钟后没有反应，系统将强制关机quot， vbYesNo + vbExclamation + vbDefaultButton2， quot提示quotEnd If End If End Sub。

4、用VB做万年历，非常关键点就是农历写法，参考代码如下Region quot 返回农历 quot#39返回农历 #39cCalendarMaxSupportedDateTime 返回支持的最大日期，即2101128 #39cCalendarMinSupportedDateTime 返回支持的最小日期，即190－219；新建一个命令按钮Command1，添加以下代码Private Sub Command1_ClickDim i As Integer For i = 1 To 100 If i Mod 5 = 0And i Mod 3 lt 0Then Text1Text = Text1Text vbCrLf i Next End。

5、代码改为Private Sub Form_ClickDim a， b， c， d As StringDim sum， aver As Longa = ValInputBoxquot请输入第一个数quotb = InputBoxquot请输入第二个数quotc = InputBoxquot请输入第三个数quotd = InputBox；程序代码 Private Declare Function SHGetSpecialFolderLocation Lib quotShell32quot ByVal hwndOwner As Long， ByVal nFolder As Integer， ppidl As Long As Long Private Declare Function SHGetPathFromIDList Lib quotShell32；Image1，Image2，Image3 分别是锤子的三种状态取起，平放，砸下Image4，Image5，Image6 分别是老鼠的状态躲下，出来，晕Dim 鼠X As Single Dim 鼠Y As Single Dim 地鼠 As Byte Dim 对数 As Integer Dim 总数 As。