for i=1 to 5
if i=feiji then
print "飞机" & i
end if
next
end sub
gaofeiji 3本回答被网友采纳
如何使用VB编写一个简单的小程序?
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性...
用VB制作小程序
Option ExplicitPrivate Sub Form_Load() Randomize Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000) '生成100000-999999之间的随机数 Timer1.Interval = 1000 '一秒一次 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Static n As Integer n...
用VB写一个小程序.
vb6代码如下，添加模块，工程--属性--启动对象选择sub main Sub main()Open "c:\\temp\\25.txt" For Input As #1 Clipboard.Clear Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)End Sub
vb有意思的小程序 ?
CreateRoundRectRgn函数用于创建一个圆角矩形区域；CreateEllipticRgn用于创建一个椭圆区域；CombineRgn函数用于将两个区域组合为一个新区域；SetWindowRgn函数允许您改变窗口的区域。使用其他的函数还可以做出其他更奇怪的窗体。源代码如下：OptionExplicit 'API函数声明 PrivateDeclareFunctionCreateRectRgnLib"gdi32"(ByVa...
求助:求高人做个VB小程序,最简单的那种 百分悬赏
Private Sub Combo1_LostFocus()Combo1.AddItem Combo1.Text End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.ForeColor = vbBlack End Sub Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As ...
求一个小程序 VBS VB C++ .NET 均可。程序很简单就是移动文件。可惜我不...
大概思路如下:Option Explicit Public Box As New FileSystemObject Public Fol As Folder Public Fil As File Dim filName As String '这个记录拖动文件到图标里后所得到文件路径及名称 Private Sub Form_Load()filName = ""filName = Command$ '获取拖入的文件 If filName = "" Then '没有拖入...
上学期VB挂科了 老师让我补做一个VB小游戏 可是我一点都没学 朋友们...
只是要注意相中的好汉在哪个数组里面，千万别搞错就行了。三、小结 最后的工作就比较简单了。可以设计一个友好的界面，然后在程序启动的时候对数组赋初值，并显示出来；对每个按钮分别先进行次数判断，然后进行前面讲述的处理，不断筛选直到剩下惟一的好汉后就可以显示在界面的正下方了。
用VB做这个小程序怎么做啊??
新建工程(只有一个窗体)在工具箱中选右键菜单“部件”，先择“Microsoft Internet Control"，单击“应用”，工具箱中就多出一个控件："webbrowser"拖放一个Webbrowser，默认名为 WebBrowser1 代码：private sub form_load()const myurl="http:\/\/www.js-lottery.com\/view7.php?id=862"webbrowser1....
跪求编写个vb小程序啊,新手不懂,跪求大神指导啊,程序如下
窗体上放置一个TextBox和一个Command控件，双击Command控件添加如下代码。Private Sub Command1_Click() If Text1.Text = "高兴" Then Msgbox "你是猪吗" Else If Text1.Text = "平和" Then Msgbox "还好了" Else If Text1.Text = "沮丧" Then Msgbox "别灰心，妹子会有...
vb做一个简单的小程序
Private Sub Form_Load()ShockwaveFlash1.Movie = "D:\\wwwroot\\KuFang\\images\\1.swf"ShockwaveFlash1.Menu = False ShockwaveFlash1.Playing = True End Sub Private Sub Timer1_Timer()End End Sub 建一个无边框窗体,复制上面代码进去就OK了 工程文件给你发过去了 后发的是修改过的 免去了需要...
