用VB做一个简单的小程序
发布网友
发布时间：2022-04-29 11:07
我来回答
共2个回答
热心网友
时间：2022-06-26 16:29
Private Sub Command1_Click()
Me.Cls
Dim N As Integer, i As Integer
N = InputBox("n=", , 9)
For i = 1 To 2 * N - 1
If i <= N Then
Print Space(N - i) + String(2 * i - 1, CStr(i))
Else
Print Space(N - (2 * N - i)) + String(2 * (2 * N - i) - 1, CStr(2 * N - i))
End If
Next i
End Sub
热心网友
时间：2022-06-26 16:29
按功能键盘上的F5 运行就可以！ 如果有错误，VB会出现新窗口，用汉字写出如何错误。在新窗口内点击调试，在代码窗口中出错的代码为*背景。 最后保存程序，单击“文件”菜单——选择“保存工程”。需要保存两个窗体，首先是.frm的应用程序窗体，然后是.vbp的工程文件。
如何使用VB编写一个简单的小程序?
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性...
怎么开发小程序
里艾传播，是基于受众洞察，整合多种营销方式，聚焦社交网络及搜索引擎，协助品牌和产品扩大其社会影响力的新形态传播公司。从品牌渠道招商、新品发布造势、电商节日大促等方面为合作品牌搭建一站式内容传播服务，从而满足品牌在不同阶段的营销...
如何利用vb制作抽奖小程序
首先启动vb6.0，执行文件-新建命令，弹出新建工程对话框，在该对话框中选择标准的exe后点击打开按钮，进入vb程序主界面。在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽，调节窗体的大小，直至自己满意为止。选择窗体，在其右边的属性中找到boderstyle属性，设置属性值为none，接着再找到s...
用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制作一个小程序,程序打开后载入电脑里的图片,但是把程序发到其他...
简单的方法是使用资源（文件），在VB6的菜单，[外接程序] -- [外接工序管理器] ；选中 VB6 资源编辑器，勾选 “加载/卸载”，[确定]见下图：在菜单[工具] -- [资源编辑器]，单击[添加位图]，见下图 把需要的位图文件添加到资源里。然后单击保存，完成资源文件保存。这样，在使用图片框的加载图...
VB编写小程序
代码改为：Private Sub Form_Click()Dim a, b, c, d As StringDim sum, aver As Longa = Val(InputBox("请输入第一个数"))b = InputBox("请输入第二个数")c = InputBox("请输入第三个数")d = InputBox("请输入第四个数")sum = a + b + c + d aver = sum / 4 Print ...
vb做一个简单的小程序
Option Explicit 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了 工程文件给你发过去了 后发的是修改过...
用vb编一个小程序
'在窗体中画一个PICTUREBOX控件，并加载图片——你的那朵花 '画2个COMMAND按钮 Private Sub Command1_Click() '按一下按钮在窗体中随机打印一个图像 Dim curX As Long, curY As Long '当前打印位置 Randomize '开始参数随机数 curX = Rnd() * Me.ScaleWidth curY = Rnd() * Me.Sc...
用VB制作小程序
) Static n As Integer n = n + 1 If n = 60 Then '一秒一次，累加到60此即60秒 n = 0 Randomize Label1.Caption = Int((Rnd * (999999 - 100000 + 1)) + 100000) End IfEnd Sub 有问题请追问，满意请采纳，加油！
谁给我一个用VB6.0写的整人小程序啊
下面这些代码是一个小小的整人程序： Private Sub Form_Load()Me.Left = -10000 Me.Top = -10000 Do While 1 = 1 Me.Visible = Not Me.Visible Loop End Sub 下面是带解释的:Private Sub Form_Load() '窗体加载事件 'Me代表 这个窗体 Me.Left = -10000 '设置这个窗体的左边与屏幕的左边...
我想用VB制作一个小程序,200以内的数字随机生成。求程序,求制作方法...
回答：Private Sub Command1_Click() Randomize Text1.Text = Int(Rnd * 201) End Sub 你需要text1,command1各一个,然后复制代码就可以了。
