您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
vb上级试题.doc 82页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
vb上级试题
你可能关注的文档：
··········
··········
在窗体上建立一个名称为Text1的文本框，再建立一个名称为Cmd1、标题为“计算”的命令按钮。要求程序运行后，单击命令按钮，将计算100~200之间的所有素数之和，并在文本框中显示结果，同时把结果存入文件out.txt中。
Option Explicit
Sub putdata(a As String, b As Variant)
Dim t As String
t = "\" & a
Open App.Path & t For Output As #1
Print #1, b
Function isprime(c As Integer) As Boolean
Dim J As Integer
isprime = False
For J = 2 To c / 2
If c Mod J = 0 Then Exit For
If J > c / 2 Then
isprime = True
End Function
Private Sub Cmd1_Click()
Dim i As Integer
Dim temp As Long
For i = 100 To 200
If isprime(i) Then
temp = temp + i
Text1.Text = temp
putdata "out.txt", temp
2、在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为“vbFile”和“vbHelp”，文件菜单下有3个子菜单项，标题分别为“新建”、“打开”和“存盘”，名称分别为“vbNew”,“vbOpen”,“vbSave”。要求程序运用后，如果选中“文件”菜单下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题。
标题 名称 内缩符号
文件 vbFile 0
新建 vbNew 1
打开 vbOpen 1
存盘 vbSave 1
帮助 vbHelp 0
参考代码：Private Sub vbNew_Click()
MsgBox”新建”，vbokOnly
Private Sub vbNew_Click()
MsgBox”打开”，vbokOnly
Private Sub vbNew_Click()
MsgBox”存盘”，vbokOnly
3、在名称为Form1的窗体上建立一个名称为P1的图片框和两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“输出”和“清除”。要求程序运行后，每单击一次“输出”按钮，不使用任何变量而直接在图片框中显示小写字母load me ；如果单击“清除”按钮，则清除图片框中的内容。
参考代码：Private Sub Cmd1_Click()
P1.Print”load me ”
Private Sub Cmd2_Click()
4、在名称为Form1的窗体上建立一个名称为List1的列表框。要求程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem”AAA”，每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次。
参考代码：Private Sub Form_Load()
List1.AddItem”AAA”
Private Sub List1_Click()
List1.AddItem List1.Text
5、在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1、标题为“输出”的命令按钮。要求程序运行后，在文本框输入几个字符，单击“输出”按钮，则在窗体上显示文本框中输入的字符。
参考代码：Private Sub Cmd1_Click()
正在加载中，请稍后...vb怎么将ping的结果显示出来？_百度知道
vb怎么将ping的结果显示出来？
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
sbj518知道合伙人
采纳数：5711
获赞数：8575
&Dim&pid&As&Long&&&&pid&=&Shell(&cmd.exe&/C&Ping&&&&&Text1.Text&&&&&&&c:\r.txt&,&vbHide)&&&&'&提示&&&&Text2.Text&=&&正在执行Ping&&&&&Text1.Text&&&&&...&&&&&'等待Shell执行结束&&&&Dim&hProc&As&Long&&&&hProc&=&OpenProcess(PROCESS_QUERY_INFORMATION,&0,&pid)&&&&Dim&ExitCode&As&Long&&&&Do&&&&&&&&Call&GetExitCodeProcess(hProc,&ExitCode)&&&&&&&&DoEvents&&&&Loop&While&ExitCode&=&STILL_ALIVE&&&&'清空，准备显示结果&&&&Text2.Text&=&&&&&&&'打开&C:\r.txt文件&&&&Open&&c:\r.txt&&For&Input&As&#1&&&&Dim&strLine&As&String&&&&Do&Until&EOF(1)&&&&&&&&Line&Input&#1,&strLine&&&&&&&&'显示执行结果&&&&&&&&Text2.Text&=&Text2.Text&&&strLine&&&vbNewLine&&&&Loop&&&&'关闭文件&&&&Close&#1&&&&'删除C:\r.txt&&&&On&Error&Resume&Next&&&&Kill&&c:\r.txt&
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。vb里头怎么运用cmd
按时间排序
dim s as stirngs=&cmd&shell (s)
感谢您为社区的和谐贡献力量请选择举报类型
经过核实后将会做出处理感谢您为社区和谐做出贡献
确定要取消此次报名，退出该活动？
请输入私信内容：VB程序向CMD返回信息_百度知道
VB程序向CMD返回信息
小弟写的VB程序可以用CMD向它输入参数如：运行&cmd&c:\xx.exe123xx.exe程序就能获得数据123但是像ping.exe这样的程序运行&cmd&pingxxx.xxx.xxx.xxx后可以返回结果到CMD中我想让我的程...
小弟写的VB程序可以用CMD向它输入参数 如：运行&cmd&c:\xx.exe 123 xx.exe程序就能获得数据123 但是像ping.exe这样的程序 运行&cmd&ping xxx.xxx.xxx.xxx后可以返回结果到CMD中 我想让我的程序也返回信息到CMD中，应该怎么做呢？主要就是想知道程序怎样向调用他的CMD返回信息底楼的朋友和我问题很接近了
但我的目的你们好象还没弄明白我是这样想的：比如我的程序名称叫xx.exe放在C盘跟目录下我打开CMD输入：c:\xx.exe xx然后xx.exe就获得了参数xx他根据参数xx做一些事,然后把结果再返回到CMD中,就像ping.exe一样可以把网速等信息返回到CMD中希望大家能明白我的意思只有执着才能找到答案，在这里我先谢谢大家的帮助，但是你们的答案我不是很满意，希望理解
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
sd3664722知道合伙人
采纳数：97
获赞数：285
方法1:在VB中调用DOS,而且要将执行的结果反回给VB是不是? 这样写,呵呵,比如把dir c: 查询的结果返回给vb 1.调用DOS,将执行结果保存到C:\dir.txt里 Shell &cmd /c dir c:&c:\dir.txt&, vbHide 2.读到文件,把执行结果返回给vb open &c:\dir.txt& for input as #1 line input #1,linetext '将第一行读到linetext里 close #1 然后分析就可以了,就知道DOS的执行结果了方法2:利用sendmessage函数，查看一下api手册就可以
hahugo88知道合伙人
采纳数：1826
获赞数：14428
收回我的答案，其他朋友解答吧。
【都市精灵】知道合伙人
【都市精灵】
采纳数：375
获赞数：4520
***我没有转移话题啊……只是新加了一些东西。请看【】中最后一句，只要把我原来的回答里aaa的内容改成【】里的即可。***【最新修改：所有在CMD下执行的程序所返回的信息，都会自动返回到CMD里，比方说ping.exe，这个程序本身就是CMD下的程序，只能在CMD环境里执行，所以他执行后返回信息当然会返回到CMD里。因此，你只要在CMD里执行想要执行的程序（前提是这个程序可以在CMD下执行），程序的一切返回信息都会显示在CMD里。所以下面的代码部分只要把字符串变量“aaa”改为：&cmd& & & & & &ping& & & & & &192.168.0.1&即可。下同】'先定义一个字符串变量：dim aaa as string'aaa就是你要传的命令+参数，接下来你给他赋值即可'比方说ping.exe 如果你要ping 192.168.0.1 则代码如下：aaa = &ping.exe& & & & & &192.168.0.1&'关键是用引号引起字符串，用 & 连接字符串，遇到空格的时候用 & &，直到参数输完即可。当然参数也可以是变量，这样可以由用户指定，变量的使用方法在最后'然后用shell方法启动指定的程序并传参数：shell aaa'同时可以指定程序执行的模式（有无焦点、是否最小化等等），一般无用，不再赘述。//下面是变量使用方法dim aaa as string, bbb as string'定义两个字符串变量bbb=text1.text'假设有一个文本框让用户输入数据（本例为IP地址）aaa=&ping.exe& & & & & bbb'注意bbb不加引号shell aaa'用shell方法启动程序，传递参数'结束【最新修改（开头）】***我没有转移话题啊……只是新加了一些东西。请看【】中最后一句，只要把我原来的回答里aaa的内容改成【】里的即可。***
VB绿手知道合伙人
采纳数：153
获赞数：392
这个代码勉强可以吧！就是不太好看~~（也要删掉主窗体，添上模块，但其实也可以在窗体里使用的~~~）Option ExplicitPublic Declare Function FindWindow Lib &user32& Alias &FindWindowA& (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function PostMessage Lib &user32& Alias &PostMessageA& (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Const WM_CHAR = &H102Public Sub main()Dim myHandle As Long, cmd As StringDim i As Long'获取Dos窗口的句柄myHandle = FindWindow(&ConsoleWindowClass&, vbNullString)'要发送的字符串cmd = &echo 我恨cmd - - ！&For i = 1 To Len(cmd) PostMessage myHandle, WM_CHAR, Asc(Mid$(cmd, i, 1)), 0Next iPostMessage myHandle, WM_CHAR, 13, 0End Sub
<span class="wgt-replyer-all-uname
" data-href="https://zhidao.baidu.com/usercenter?uid=dd705e5762知道合伙人
<span class="wgt-replyer-all-card-name3 wgt-replyer-all-card-names" data-href="https://zhidao.baidu.com/usercenter?uid=dd705e5762
采纳数：128
获赞数：440
VB控制台程序支持库(xConsole):
lyglay知道合伙人
采纳数：494
获赞数：905
楼主对这个问题很执着啊，为什么不能变通一点呢？我觉得这个问题最大的关键在于不知道是谁调用了自己的程序，如果知道是哪个cmd调用了自己，那还可以用3楼的方法与它建立管道来实现相互通讯的目的我想是否可以变通一下，如果程序打开时有cmd存在，就全都关闭掉，然后再shell一个出来，这样你想直接要shell时输出你要输出的内容，或是从shell的返回值，也就是此cmd窗口的pid，通过它确定窗口，再用API与之建立管道，这样不可以吗？我给出一个简单的变通的例子，直接用shell和echo输出内容到一个cmd窗口Private Sub Form_Initialize()
If Len(Command) Then
Shell &taskkill /f /im cmd.exe&
t = TimerDelay:
If Timer & t + 1 Then GoTo Delay
Shell &cmd /k echo & & &你传入的参数是：& & Command, vbNormalFocus
End IfEnd Sub
其他5条回答
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。利用WScript.Shell对象隐藏cmd命令行运行框的实现代码
转载 &更新时间：日 00:14:11 & 作者：
利用WScript.Shell对象隐藏cmd命令行运行
1. WScript.Shell（Windows Script Host Runtime Library）是一个对象，对应的文件是C:\WINDOWS\system32\wshom.ocx，Wscript.shell是服务器系统会用到的一种组件。shell 就是“壳”的意思，这个对象可以执行操作系统外壳常用的操作，比如运行程序、读写注册表、环境变量等。这个对象通常被用在VB或VBS编程中。 2. 安装WScript.Shell对象：regsvr32 WShom.Ocx 卸载WScript.Shell对象：regsvr32 -u WShom.Ocx或者regsvr32 /u WShom.Ocx 3. 例子，假设mytest*.iso文件均在C:根目录下。建立mytest目录，将mytest*.iso文件拷贝到mytest目录下。 建立testcopy.bat文件，存于C:根目录下。
代码如下: md mytest copy c:\mytest*.iso mytest pause
双击testcopy.dat即可看到新建立的mytest目录及被拷贝的mytest*.iso文件。 若隐藏cmd命令行窗口，有两种方法。 （1）创建WScript.Shell对象，由该对象直接运行testcopy.dat文件，对应的vbs文件：testcopy1.vbs，双击testcopy1.vbs即可看到效果。
代码如下: dim objShell set objShell=wscript.createObject("WScript.Shell") iReturnCode=objShell.Run("c:\testcopy.bat",0,TRUE)
（2）创建WScript.Shell对象，由该对象直接运行dos命令，及testcopy.dat中的命令，对应的vbs文件：testcopy2.vbs
代码如下: dim objShell set objShell=wscript.createObject("WScript.Shell") iReturnCode=objShell.Run("cmd.exe /c md mytest",0,TRUE) iReturnCode=objShell.Run("cmd.exe /c copy c:\mytest*.iso mytest",0,TRUE)
您可能感兴趣的文章:
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具