2,5,4,1,8,6,9,1,7
我觉得你倒不用生成到文件.
不过要看你做什么用.如果只是帮你把字符串连在一起,倒可直接在
生成按钮下面放一个文本框显示出来即可.
甚至你只是想复制到别的地方去,直接生成文本并且复制到剪贴板就行了.
但你要做别的用处,存到文件.也就有必要了.
如何使用VB编写一个简单的小程序?
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性...
用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编写小程序
代码改为：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编程做的3个简单程序
1、求a,b: a=len\/2 b=sqr((x1-x2)^2+(y1-y2)^2)2、求旋转角α ：求出(y1-y2)\/(x1-x2)的反正切值即为α 3、求椭圆中心坐标（x0,y0）: x0=(x1+x2)\/2 y0=(y1+y2)\/2 3、计算椭圆上点的坐标（x,y）：x=acosθ ， y=bsinθ ( 0<=θ< 2*π)4、计算图形绕原点...
帮忙写个VB小程序,几句话,很短!用Do while...loop语句。
Option Explicit Private Sub Form_Load()Dim i As Integer, x As Integer, Num Randomize (Timer)Num = Val(InputBox("请输入1～100之间的某个数："))Do While i < 100 If Int(Rnd * 99 + 1) > Num Then x = x + 1 i = i + 1 Loop MsgBox "大于" & Num & "的个数为" ...
用VB制作小程序
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 = n + 1 If n = 60...
用VB制作一个小程序,程序打开后载入电脑里的图片,但是把程序发到其他...
简单的方法是使用资源（文件），在VB6的菜单，[外接程序] -- [外接工序管理器] ；选中 VB6 资源编辑器，勾选 “加载\/卸载”，[确定]见下图：在菜单[工具] -- [资源编辑器]，单击[添加位图]，见下图 把需要的位图文件添加到资源里。然后单击保存，完成资源文件保存。这样，在使用图片框的加载...
用VB做这个小程序怎么做啊??
用Webbrowser控件简单实现 新建工程(只有一个窗体)在工具箱中选右键菜单“部件”，先择“Microsoft Internet Control"，单击“应用”，工具箱中就多出一个控件："webbrowser"拖放一个Webbrowser，默认名为 WebBrowser1 代码：private sub form_load()const myurl="http:\/\/www.js-lottery.com\/view7....
vb小程序 本人新手
dim s as long,n as integer,i as inerger n=inputbox("请输入n的值：")for i=1 to n s=s*i next i print "n!=";s 注意输入的n不能太大，会溢出的哦。
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了 工程文件给你发过去了 后发的是修改过的 免去了需要...
