关于我的目的是在当前目录下生成一个目录123，再在123目录下生成一个文本文件1.txt,再利用Write函数写入字符ABCD，我的代码如下：
Private Sub Command1_Click()
MkDir “123” ‘新建目录
Open “123\1.txt” For Output As #1 ‘新建文件
Write #1, ABCD
……继续阅读 »
2年前 (2022-10-01) 37浏览 0评论
0个赞
关于在excel中启动的VB编译器没有 生成.exe 选项，该怎么办，是否一定要安装visual basic 6.0?
菜鸟有求，高手请回答的问题
因为excel里面的vb是用来实现VBA，也就是在excel里面用到的宏的
它嵌在excel文件里面，解释执行，所以不生成exe文件
如果你希望生成exe文件，需要安装visual basic
……继续阅读 »
2年前 (2022-10-01) 33浏览 0评论
0个赞
关于问一下，，怎么用VB实现WORD中对选中字符串的字体属性操作，谢谢了！~~的问题
richtext控件可以实现的 text 是没有这个功能的！
……继续阅读 »
2年前 (2022-10-01) 39浏览 0评论
0个赞
关于我想实现通过单击按钮使一排文本框变成计数类性质好比说一排文本框原始数据为1111111111通过单击按钮每单击一次最右边的文本框数值+1,当其大于=10的时候变成1并让右面数第二个+1如当文本框分别为1111111119时再次单击按钮变成1111111121再次单击即为1111111122依次类推直到 99为止,有没有什么方便的办法。因为我需要很多的文本框不止10个而是几十。所以需要简单的办法。求求大家帮帮忙啊。……继续阅读 »
2年前 (2022-10-01) 33浏览 0评论
0个赞
对象的属性、方法和事件
……继续阅读 »
2年前 (2022-10-01) 32浏览 0评论
0个赞
关于随机产生20个两位正整数，确定其中最大数的位置。谁能写出代码来？的问题
for i = 0 to 19
a(i) = rnd()
next i
for i = 0 to 18
if (a(i) > a(i + 1)) then
maxa = a(i)
max = i
else
maxa = a(i + 1)
max = i + 1
end if
next i
……继续阅读 »
2年前 (2022-10-01) 41浏览 0评论
0个赞
关于private sub command1_click
Dim s As single,i As single
s=0
for i=100To1,step-1
s=s+i
nexti
print “s=”,s
End sub
程序应行的结果是？
的问题
这是计算：100到1的连续自然数的和
结果是：S=5050
……继续阅读 »
2年前 (2022-10-01) 40浏览 0评论
0个赞
关于14、假设变量intVar是一个整型变量，则执行赋值语句intVar=”2″+3之后，intVar的值是( )。
A、2
B、3
C、 5
D、23
的问题
好象表达式里面有STR就会自动变成STR +，不过变量是INT。。。会不会混淆视听的干活。。。蒙一个D。嘿嘿
……继续阅读 »
2年前 (2022-10-01) 31浏览 0评论
0个赞
关于17个人围成一圈，编号为1，2，3……..17，从第1号开始报数，报到是3的倍数的人离开，一直数下去，直到最后剩下1人，求此人的编号？请高手们帮帮我这个菜鸟，谢谢了！的问题
你是想知道结果还是想知道算法呢?结果是11号.
算法其实很简单的,可以用数组处理也可以有指针处理.
……继续阅读 »
2年前 (2022-10-01) 30浏览 0评论
0个赞
关于例如，数组a()中有1，6，9，6，10，11，6，9，6这些值，怎样才能计算出值“6”的个数“4”？？的问题
Dim n,count
For n=0 to ubound(a)
if a(n)=6 then count=count+1
next n
Print count
……继续阅读 »
2年前 (2022-10-01) 32浏览 0评论
0个赞
关于For i = a To b Step c
d = d + i
Next
如果不使用for 只使用do 怎么实现以上这段语句的功能啊？注：以上各变量均由用户输入。的问题
Do
d = d + i
i = i + c
Loop Until i = b
如果在草稿上写，应该是这样。
……继续阅读 »
2年前 (2022-10-01) 32浏览 0评论
0个赞
关于我急需一个端口映射软件，本人不才，做不出来！！
功能很简单，只需要
比如 服务器 开放80端口
使用端口映射软件 映射所有访问 端口 123 的映射到 端口 80
结果就是 访问 等于
我需要源码，学习参考，谁能提供下！的问题
Imports System。Net
Imports System。Net。Sockets
Namespace SocketLib ……继续阅读 »
2年前 (2022-10-01) 41浏览 0评论
0个赞
关于行 16: 控件 Toolbar1 的类 MSComctlLib.Toolbar 不是一个已加载的控件类。
行 29: 控件 StatusBar1 的类 MSComctlLib.StatusBar 不是一个已加载的控件类。
行 23: 属性名 _ExtentX 在 Toolbar1 中是无效的。
行 24: 属性名 _ExtentY 在 Toolbar1 中是无效的。
行 25: 属性名 ButtonWidth ……继续阅读 »
2年前 (2022-10-01) 57浏览 0评论
0个赞
关于我用VBA编辑时，VBA编辑界面工具栏不知道怎么就隐藏了，请教怎么恢复编辑工具栏？的问题
设置里面可以恢复。
……继续阅读 »
2年前 (2022-10-01) 42浏览 0评论
0个赞
关于请问：游标在实际开发中用得到吗？具体永在那些地方？ 的问题
游标主要解决在数据库处理中,用sql语句处理的不方便,比如直接用sql语句不能通过通过循环对某条记录进行单独的处理,这是用游标比较方便。他提供了一种对数据集进行过程化处理的方式
……继续阅读 »
2年前 (2022-10-01) 31浏览 0评论
0个赞
关于我要改变字体但哪些英文单词不知道哪里找.
还有我在标签栏中如何将字竖着放?的问题
font 字体！
标签中字体 竖的方法：
Label1.Caption = “A” & Chr(13) + Chr(10) & “A” & Chr(13) + Chr(10)
……继续阅读 »
2年前 (2022-10-01) 33浏览 0评论
0个赞
关于要求：一个计时器，用于中考倒计时。即每天打开，都会告诉我：离中考还有**天（不要分秒）
谢谢
75分敬上
（先回答且正确者获分）！
不胜感激！的问题
下面为具体过程，附件中是源代码
1。创建VB工程，在窗体form1中绘三个Label控件，将其中一个的Name属性设置为Label
2。粘贴下列代码（已有详细注释）
———————&……继续阅读 »
2年前 (2022-10-01) 39浏览 0评论
0个赞
关于设a=10，b=5，c=l，执行语句Print a>b>c后，窗体上显示的是 false 在这句话中Print a>b>c是什么意思啊？的问题
这里>号是作为关系运算符使用的,你的 a > b > c 违反了基本的数学定义.你的算式可看作:
a大于(b > c)的结果
或
(a > b)的结果大于c
这是无法比较的,所以Print语句报错
下面的语句能作为不等……继续阅读 »
2年前 (2022-10-01) 34浏览 0评论
0个赞
关于如何编写这个代码?
按”添加”按钮,出现一个对话框,提示”请输入****”,然后按确定,这时你所输入的内容将在一个listbox显示.
我已经想了一晚了,可还是没有答案,请高人指点.谢谢!的问题
Private Sub 添加_Click()
Dim strIpt As String
strIpt = InputBox(“请输入数据”……继续阅读 »
2年前 (2022-10-01) 35浏览 0评论
0个赞
关于VBA 如何判断指定路径的文件夹是否为空（无文件夹和文件）的问题
Dim f1 As Object ? Set f1 = CreateObject(“scripting.filesystemobject”)? mPath?=ThisWorkbook.Path & “ak” If f1.folderexists(mPath) = False Then R……继续阅读 »
2年前 (2022-10-01) 42浏览 0评论
0个赞
关于一个猜笑脸的代码
书上给了6个Command控件，但是他的顺序是（0）（1）（2）（3）2 3 我编的时候把顺序改成123456了，如下 但是不能运行~我不知道哪里出错了~~
Private Sub Command1_Click(Index As Integer)
Randomize
a = Int(Rnd * 4)
If a = Index Then
Command1(a).Enabled = False
……继续阅读 »
2年前 (2022-10-01) 38浏览 0评论
0个赞
关于假定有如下的Sub过程：
Sub s(x As Single, y As Single)
t = x
x = t / y
v = t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim a As Single
a = 5
b = 4
Call s(a, b)
Print a, b
End Sub
谁能解释一下为什么会发生这个……继续阅读 »
2年前 (2022-10-01) 27浏览 0评论
0个赞
Shell是VB程序在运行中退出现在执行状态,去执行一个外部程序或DOS下的批处理命令等使用的VB语句,执行后一般返回原程序,例:
1
Private Sub Command1_Click()
Dim fuzhi
fuzhi = Shell(“C:\cp。bat,1″)
End Sub
2
Private Sub Command1_Click()
Dim fuzhi
fuzhi = Shell……继续阅读 »
2年前 (2022-10-01) 28浏览 0评论
0个赞
关于关闭一个程序的程序代码是什么啊？信息技术课要让我们编,不过好象我听错了的问题
关闭程序（进程），首先要知道要关闭的程序是进程内程序（本工程或组）还是进程外程序（非本工程的程序）。
（一）如果是进程内，可以使用end语句强制结束进程；而使用unload me语句只有在除了本窗体（me所指的窗体）以后没有别的线程（包括别的窗体和对象等）在执行时，并且在关闭当前窗体以后不能同时关闭别的线程的，则 unloa……继续阅读 »
2年前 (2022-10-01) 34浏览 0评论
0个赞
关于用adoRS.Sort=adoRS.Fields(2).name只能按升序排列,请问怎样加关键字才能实现按降序排列?的问题
升序，，默认也是
adoRS.Sort=adoRS.Fields(2).name & ” ASC”
降序
用adoRS.Sort=adoRS.Fields(2).name & ” DESC”
注意空格，，
实际Sort就是SQL……继续阅读 »
2年前 (2022-10-01) 17浏览 0评论
0个赞
关于如何在点击一个按钮后：
（1）打开一个文件夹，如打开c:\my documents\（不是在vb内部打开）
（2）用word打开一个文档
的问题
Shell “explorer c:\my documents\”
Shell “*****\word.exe X:\XXX\XXX.doc”
……继续阅读 »
2年前 (2022-10-01) 20浏览 0评论
0个赞
关于我公司目前有个项目中使用到了一个小的VB写的程序,现在需要对其作一些改动,但是原来编写这个程序的人离职了，源代码还在，我们都不懂，重新请人做时间不允许，也划不来。
现在我想找一个VB的写手来把这个程序作一些修改，但是不知道该去哪里找这样的人才，请各位指点一下，我是温州的，谢谢的问题
在此也能找到,要看程序规模和解决何问题(数据库应用或工控机的上位机).需一定时间.地域不是问题,可通过EMAIL传递.
……继续阅读 »
2年前 (2022-10-01) 24浏览 0评论
0个赞
关于请教专家:怎么用VB是编一个小程序,我很笨,书看不懂,只问个大概,可以举例简述吗?的问题
vb编程一般有3步
1设计界面
2编写代码
3调试
假设作一个程序，窗体上有一个命令按钮，单击时窗体上显示“欢迎使用vb”。
第一步，在桌面上画一个命令按钮，其caption属性为“显示“（可右边属性栏里设置）。
第二步，双击命令按钮，编译代码。
Private Sub Command1_Click()
Print ……继续阅读 »
2年前 (2022-10-01) 21浏览 0评论
0个赞
关于如何在imagebox或picturebox在加载照片时，让图片显示并且不会拉伸变形。（不放大图框适应照片）的问题
imagebox可以做到这点,但它的stretch属性必须为false,可以使imagebox适应图片大小
……继续阅读 »
2年前 (2022-10-01) 17浏览 0评论
0个赞
关于在VB中如果执行错误，如何遇到错误跳转到某一行程序去执行？的问题
借用MSDN的说明:
On Error 语句
启动一个错误处理程序并指定该子程序在一个过程中的位置；也可用来禁止一个错误处理程序。
语法
On Error GoTo line
On Error Resume Next
On Error GoTo 0
On Error 语句的语法可以具有以下任何一种形式：
语句 描述
On Error GoTo li……继续阅读 »
2年前 (2022-10-01) 29浏览 0评论
0个赞
