C C++ VB Java 等编译程序有什么区别 分别有什么用途?分别是哪类专业学生学的?请高人赐教!谢谢_百度知道
C C++ VB Java 等编译程序有什么区别 分别有什么用途?分别是哪类专业学生学的?请高人赐教!谢谢
知道C和VB语言都挺老的，另外就编写游戏来说，而JAVA用来编写向手机上运行的这类小游戏，C++用来编写大型网络游戏
其他类似问题
按默认排序
其他1条回答
我认为主要是用于一些复杂的计算方面的.C++是面向对象的编程语言，但是要学的东西非常多哦，主要是面向WEB这方面的，是面向过程的编程语言，学习起来相对简单一点。VB是前几年比较火的编程语言。java嘛，是面向对象的语言，主要是可视化编程，最近几年好像少了，用起来比较麻烦但是功能比较强大C语言是编程语言的最基础部分了，也是目前流行的语言之一
编译程序的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁当前位置： &
VB问题，请高手赐教！
城市：沈阳
城市：沈阳
你的代码没有换行的程序我给你改了一下，10个数字换行
Dim x(1 To 200) As Integer, i As Integer
For i = 1 To 200
x(i) = Int(9000 * Rnd + 1000)
Print Tab(((i - 1) Mod 10) * 8 + 1); x(i);
'改的是这句
城市：沈阳
用String保存每行内容即可Private Sub Command1_Click()Dim x(1 To 200) As Integer, i As Integer,g as stringFor i = 1 To 200x(i) = Int(9000 * Rnd + 1000)g=g+x(i)if i mod 5=0 thenPrint gg=&&end ifNext iEnd Sub
匿名回答：& & 我使用VB操作Excel对象，完成打开、查询操作后，通过点击&关闭按钮&关闭所打开的Excel工作簿，可是使用了xlsApp.quit、xlsBook.Close等语句后，仍有一个Excel.exe进程在任务管理器中（不能自动退出只能通过手动结束），这时，如果通过单击&打开按钮&再次打开一个Excel工作簿，再执行查询操作就会出错而无法查询，并且Excel中又会多出一个不能自动退出Excel进程，这样几次下来任务管理器中就会出现多个Excel进程，而这些进程只有在窗体退出的时候才会被结束，我希望的是在点击关闭按钮时可以完全关闭打开的Excel文件（任务管理器中无进程），并且可以再次打开其他的Excel文件。
& &在网上看到很多类似的问题，试了很多方法，可是问题仍然没解决，我把代码贴到下面，希望高手帮忙检查下，谢谢！'这是在标准模块中的代码（自定义函数打开工作簿）
Public xlsApp As Excel.Application
Public xlsBook&&As Excel.Workbook
Public xlsSheet As Excel.Worksheet
Public ssFile As String
Public sPath As String
Public Function SheetOpen(Str As String)& & 'Str是被打开文件的绝对路径
& & Set xlsApp = CreateObject(&Excel.Application&)
& & xlsApp.Visible = True
& & Set xlsBook = xlsApp.Workbooks.Open(Str)
& & Set xlsSheet = xlsBook.Worksheets(&site&)
& &
End Function复制代码'这也是在模块中的代码（自定义函数，完成数据查找功能）
Public Function QuerySid(Str As String)
& & On Error Resume Next
& & Dim i As Integer
& & Dim Cel As Range
& & With xlsSheet& &
& && &&&.Columns(&B:B&).Select&&
& && &&&Set Cel = Selection.Find(What:=Val(Str), _
& && && && &After:=ActiveCell, LookIn:=xlFormulas, _
& && && && &LookAt:=xlPart, SearchOrder:=xlByRows, _
& && && && &SearchDirection:=xlNext, _
& && && && &MatchCase:=False, MatchByte:=False, _
& && && && &SearchFormat:=False)
& && &&&
& && &&&If Cel Is Nothing Then
& && && && &MsgBox &表中没有您要查找的数值！&
& && &&&Else
& && && && &i = Cel.Row
& && && && &-------代码太长，部分省略----------& && &
& && &&&End If& && &
& & End With
& & Set Cel = Nothing
End Function复制代码这部分代码同样在模块中，完成关闭Excel工作簿的功能，并期望关掉任务管理器的进程。
Public Sub ExitApp()
& && &&&Set xlsSheet = Nothing& && &
& && &&&If Not xlsBook Is Nothing Then
& && && && &xlsBook.Close
& && && && &Set xlsBook = Nothing
& && &&&End If
& && &&&
& && &&&If Not xlsApp Is Nothing Then
& && && && &xlsApp.Quit
& && && && &Set xlsApp = Nothing
& && &&&End if
'& && & 正常情况退出的顺序
'& && & Set xlsheet = Nothing
'& && & xlBook.Application.Quit
'& && & Set xlBook = Nothing
'& && & xlApp.Quit '关闭EXCEL
'& && & Set xlApp = Nothing '释放EXCEL对象
End Sub复制代码我也对上面代码调试了很久，发现在不执行QuerySid时，点击关闭按钮可以完整的结束Excel进程，并且可以重复
进行打开和关闭，所以认为问题出新在Public Function QuerySid(Str As String)区域，请高手帮忙分析一下，谢谢！！
[ 本帖最后由 zhangyulei2470 于
22:58 编辑 ]
在线时间2717 小时经验13870 威望3 性别保密最后登录注册时间阅读权限95UID803113积分13920帖子精华0分享40
积分排行31帖子精华0微积分0
执行了querysid后
xlsbook.saved变成false所以
要将xlsbook.saved设回true
在线时间132 小时经验160 威望0 性别女最后登录注册时间阅读权限20UID781916积分160帖子精华0分享0
EH初级, 积分 160, 距离下一级还需 190 积分
积分排行3000+帖子精华0微积分0
原帖由 lb_bn 于
22:40 发表
执行了querysid后
xlsbook.saved变成false所以
要将xlsbook.saved设回true
你好，我在ExitApp内的第1条语句和QuerySid的最后一行分别添加了xlsBook.saved=True进行测试，可是Excel进程还是无法退出,我在网上看到有人说如果用&Object&.select等可能会出错，不过这个我也没调试好
[ 本帖最后由 zhangyulei2470 于
23:33 编辑 ]
在线时间2717 小时经验13870 威望3 性别保密最后登录注册时间阅读权限95UID803113积分13920帖子精华0分享40
积分排行31帖子精华0微积分0
要不强行taskkill吧.[em01]
在线时间132 小时经验160 威望0 性别女最后登录注册时间阅读权限20UID781916积分160帖子精华0分享0
EH初级, 积分 160, 距离下一级还需 190 积分
积分排行3000+帖子精华0微积分0
呵呵，我的操作系统是HOME版的，不知怎的taskkill命令用不了，不过我也不太赞同使用其他工具或API强制结束，总觉得应该有更合理的方法，或者找出问题所在！！
(20.57 KB, 下载次数: 1)
23:47 上传
下载次数: 1
在线时间2717 小时经验13870 威望3 性别保密最后登录注册时间阅读权限95UID803113积分13920帖子精华0分享40
积分排行31帖子精华0微积分0
回复 5楼 zhangyulei2470 的帖子
我不是专业找开发的,没有环境调试你的代码.:loveliness:
等高人路过吧.
在线时间1506 小时经验2741 威望16 性别男最后登录注册时间阅读权限50UID138127积分4291帖子精华4分享0
积分排行218帖子精华4微积分0
这个不能完全退出Excel的原因应该是和全局引用有关。函数QuerySid中的Selection、ActiveCell以及一些常数都没有加上父对象，所以即使在xlsApp.quit之后仍然引用了Excel.Application，只有在退出窗体之后才销毁Excel.Application对象，这样Excel进程才会退出。所以需要将上面这些变量加上xlsApp，而那些常数直接改成数值。
你把QuerySid改成下面的就可以了。
Public Function QuerySid(Str As String)
& & On Error Resume Next
& & Dim i As Integer
& & Dim Cel As Excel.Range
& & With xlsSheet
& && &&&.Columns(&B:B&).Select
& && &&&Set Cel = xlsApp.Selection.Find(What:=Str, _
& && && && &After:=xlsApp.ActiveCell, LookIn:=-4123, _
& && && && &LookAt:=2, SearchOrder:=1, _
& && && && &SearchDirection:=1, _
& && && && &MatchCase:=False, MatchByte:=False, _
& && && && &SearchFormat:=False)
& && & If Cel Is Nothing Then
& && && && &MsgBox &表中没有您要查找的数值！&
& && &&&Else
& && && && &i = Cel.Row
& && && && &-------代码太长，部分省略----------& && &
& && &&&End If
& & End With
& & Set Cel = Nothing
End Function
在线时间132 小时经验160 威望0 性别女最后登录注册时间阅读权限20UID781916积分160帖子精华0分享0
EH初级, 积分 160, 距离下一级还需 190 积分
积分排行3000+帖子精华0微积分0
我在网上看到很多无法关闭Excel进程的例子，都没有找到问题的原因，这个问题困扰我好多天了。
& & winland版主出马一招搞定，太厉害了，谢谢版主！
& & 同时也谢谢lb_bn，谢谢大家的热心帮助！！
& & :victory:
在线时间2717 小时经验13870 威望3 性别保密最后登录注册时间阅读权限95UID803113积分13920帖子精华0分享40
积分排行31帖子精华0微积分0
回复 7楼 winland 的帖子
学习了,谢谢版主指点.:handshake
在线时间54 小时经验48 威望0 性别男最后登录注册时间阅读权限20UID244352积分48帖子精华0分享0
EH初级, 积分 48, 距离下一级还需 302 积分
积分排行3000+帖子精华0微积分0
学习了，厉害厉害
积分≥4700即可申请
最佳会员奖章No.1
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.1
- 注意：自起，未完成邮箱认证的会员将无法发帖！如何完成邮箱认证？请点击下方“查看”。
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&VB中 drawmode=7 异或笔的概念...求高手赐教
VB中 drawmode=7 异或笔的概念...求高手赐教
&& Picture1.DrawMode = 7&&&&&&& Picture1.Line (xstart, ystart)-(xold, yold), Picture1.BackColor&& '2条线如果一样则消去前面那条,前面那条是白色的.....&&&&&&& Picture1.Line (xstart, ystart)-(X, Y), Picture1.BackColor&&&&&&& Picture1.Line (xstart, ystart)-(xold, yold)&&&&&&& Picture1.Line (xstart, ystart)-(X, Y)&&&&&&& xold = X&&&&&&& yold = Y
这段代码....输出的线会随着我的光标位置而改变......放手它才打印
到底drawmode=7& 是什么意思???& 有人说是颜色取反..也有人说是如果画的相同就取后一个画的线...到底是什么,,,求具体解释....
DrawMode&& 属性 &&&&&&&&&&&&&& && 返回或设置一个值，以决定图形方法的输出外观或者&& Shape&& 及&& Line&& 控件的外观。 && 语法 && object.DrawMode&& [=&& number] && DrawMode&& 属性语法包含下面部分： && 部分&& 描述&&& object&& 对象表达式，其值是“应用于”列表中的一个对象。&&& Number&& 整型值，指定外观，“设置值”中有详细描述。&&& && && 设置值 && number&& 的设置值为： && 常数&& 设置值&& 描述&&& VbBlackness&& 1&& 黑色。&&& VbNotMergePen&& 2&& 非或笔&& －&& 与设置值&& 15&& 相反&& (Merge&& Pen)。&&& VbMaskNotPen&& 3&& 与非笔&& －&& 背景色以及画笔反相二者共有颜色的组合。&&& VbNotCopyPen&& 4&& 非复制笔&& －&& 设置值&& 13&& (Copy&& Pen)&& 的反相&&& VbMaskPenNot&& 5&& 与笔非&& －&& 画笔以及显示反相二者共有颜色的组合。&&& VbInvert&& 6&& 反转&& －&& 显示颜色的反相&&& VbXorPen&& 7&& 异或笔&& －&& 画笔的颜色以及显示颜色的组合，只取其一。&&& VbNotMaskPen&& 8&& 非与笔&& －&& 设置值&& 9&& (Mask&& Pen)&& 的反相。&&& VbMaskPen&& 9&& 与笔&& －&& 画笔和显示二者共有颜色的组合。&&& VbNotXorPen&& 10&& 非异或笔&& －&& 方式&& 7&& 的反相&& (Xor&& Pen)。&&&&& VbNop&& 11&& 无操作&& －&& 输出保持不变。该设置实际上关闭画图。&&& VbMergeNotPen&& 12&& 或非笔&& －&& 显示颜色与画笔颜色反相的组合。&&& VbCopyPen&& 13&& 复制笔（缺省值）&& －&& 由&& ForeColor&& 属性指定的颜色。&&& VbMergePenNot&& 14&& 或笔非&& －&& 画笔颜色与显示颜色的反相的组合。&&& VbMergePen&& 15&& 或笔&& －&& 画笔颜色与显示颜色的组合。&&& VbWhiteness&& 16&& 白色。&&& && && 说明 && 当用&& Shape&& 或&& Line&& 控件，或者用图形方法画图时，使用这个属性产生可视效果。Visual&& Basic&& 将绘图模式的每一个像素与现存背景色中相应的像素做比较，然后进行逐位比较操作。例如，设置值&& 7（异或笔）用&& Xor&& 操作符将绘图模式像素和背景像素组合起来。 && DrawMode&& 设置值的真正效果，取决于运行时所画线的颜色与屏幕已存在颜色的合成。对于设置值&& 1，6，7，11，13&& 和&& 16&& 可以最可靠地预知该属性的输出结果。 && && && DrawMode&& 属性示例 这个例子允许通过拖动鼠标在窗体上画图。每单击一次鼠标为&& DrawMode&& 属性设置一个不同的值。要试用此例，先把代码粘贴到窗体的声明部分，然后按&& F5&& 键，并单击窗体。 && Private&& Sub&& Form_Load &&&&&&& DrawWidth&& =&& 10&&&&&& '&& 设置&& DrawWidth. End&& Sub Private&& Sub&& Form_Click&& () &&&&&&& Static&& M&& As&& Integer&&&&&& '&& 当前&& DrawMode&& 的设置值. &&&&&&& ForeColor&& =&& QBColor(Int(Rnd&& *&& 15))&&&&&& '&& 选择一种颜色. &&&&&&& M&& =&& ((M&& +&& 1)&& Mod&& 16)&& +&& 1&&&&&& '&& 使&& DrawMode&& 小于或等于&& 16. &&&&&&& DrawMode&& =&& M&&&&&& '&& 设置&& DrawMode. End&& Sub Private&& Sub&& Form_MouseMove&& (Button&& As&& Integer,&& Shift&& As&& Integer,&& X&& As&& Single,&& Y&& As&& Single) &&&&&&& If&& Button&& Then&&&&&& '&& 当按钮被按下时， &&&&&&&&&&&&& PSet&& (X,&& Y)&&&&&& '&& 画一个大点. &&&&&&& End&& If End&& Sub
请这位大哥重点讲解 7 重点讲....拜托...
相关知识等待您来回答
编程领域专家