label2－click下的代码难道有错误，正确的怎么写

请问在哪里可以买到啊我上学书丢了

第二张图中的代码怎么填呢？才能是label1中的60从大到小计时到1

如题

如果我想读取同一局域网中另一台电脑中的文件，怎么办？ 假如我是A电脑，想读取B电脑中的某一excel文件（123.xls），怎么做？能否修改文件

我是一个VB新手，最近用Excel时，突然遇到一个问题，请高手指教，谢谢! 我点击用开发工具制作的activex控件，但没有反应了，原因是什么？

初来乍到，请大家多多关照！ @yjtx256

很多人都说VB6.0是不支持类的继承的，实际上不是这样的。 VB6.0之所以是面向对象编程，是因为它支持面向对象编程中的所有概念，包括类的继承。 下面就说说如何在VB中实现类的继承，希望对大家有帮助，高手莫喷。

不知道用户电脑搞过啥，现在中文乱码，而且无法打开。可能是用了dir()，没有dir的也有其它问题，什么object失败啥的。这样情况也碰到过，无法搞法，都是重装系统解决。

我做了一个21点的游戏，想在游戏中播放音乐，要怎莫办呢？

感觉选择控件费劲，想把控件位置对齐一下，结果点完控件A，按ctrl选择控件B，但始终选择不上？ 但有些其他的控件可以多选，但是选中了哪些看不出来，四周没有小点显示选中了。

百度不到

Visual Basic 6.0 Sirk 迷你版 2019.02.20 ( VB6 Sirk Mini 20190220 ) 　　1、支持主流操作系统，避免原版安装失败的问题：支持Windows XP、Vista、Win7、Win8、Win10(32位、64位)。 　　2、保留大部分常用功能，避免精简版过度精简：包含原版完整控件，可以正常打开VB工程；保留资源编辑器、类生成器、ADO数据访问、ADO数据环境、数据报表等功能，方便创建数据库应用程序；添加鼠标滚轮支持，方便代码编辑。 　　3、支持创建控制台应用程序：生成的应用程序没有任何

大神帮我看看0.00以下的数据怎么就是达不到排列后的这个效果哪里错了，搞了半天了

有没有大神教教 刚刚上课的时候睡觉去了

在win7环境下运行正常，在xp下则提示 “unexpected error”。 有没有捕获 “unexpected error” 的方法，试了 on error goto err 也不显示错误

求点练习题

如果我想用Array函数声明一个数组，a = Array(1, 7, 8, 17, 23, 24, 59, 62, 101) 但又想改变数组的下标下界为1（不想从0 开始），除了用Option base语句、单个赋值和使用a = Array(“”，1, 7, 8, 17, 23, 24, 59, 62, 101)外，还有什么方法？ 另解:Dim a() ReDim a(1 To 10) b = Array("", 1, 7, 8, 17, 23, 24, 59, 62, 101) For i = 1 To 9 a(i) = b(i) Next 还有其他方法么

点击运行,大概6秒左右就运行到了MSGBOX,弹出66666.但是程序一直在运行,上面的小三角一直是灰的,,直到过了2分钟程序才结束,小三角才变蓝,这是咋回事啊?求大佬指点~~

真的很急求大佬了这是我喜欢的人写的小作文我想看一下是不是我让我死心呜呜呜呜呜我试了很多办法都没有用 我还被坑钱了只能上帖子 求助您们了

大佬们求助！我下了无数个VB的版本 ，但是每一个都会这样 ，去百度找结果，都是说重装 ，可是一直行不通。百度现在能找到的VB6.0都是一些很多捆绑软件的，吧里也没有找到类似的解决办法或者安装包。。有没有大佬能救救我啊

WIN10系统以管理员权限安装codesmart_2009_vb6.exe成功后，AxCS.dll、AxCsTaskList.dll覆盖到安装文件路径，外接程序管理器已设置勾选启动中加载，但是打开VB6提示： Error creating the PrivDBEngine object, cannot continue. -2147221164: 没有注册类 In: AxCS.Connect.StartEngine, line: 131 AxCS.DLL file version: 7.1.0.4550 Operating system: WinNT.6.2.9200.SP0 求大师指教下哪里错误了，重新注册DLL文件也不行

第三张0.18和0.19是正确的，但是只有把第一行数量改为10000以上，下面的行才能计算准确。错在哪里了啊？大神请赐教

编写程序的过程中发现当调试到Ucase语录时Vb会报错Can't find project of library。 求各位大大解惑

有些书籍写的不全，求format函数用法完整版,或者地址

代码如下，想把333 .xlsm文件一起打包，能行吗？ 主要是333. xlsm保密，不想让别人打开，甚至不想让人知道有这个文件 如果不能封装到一起，有没有方法把333 .xlsm加密或者变成dll文件？

亲爱的吧友们，表格出到3.0了 今晚抽空给大家发点图先看一下。 当初开始做表格的时候，也在吧里发过帖子，有支持的点赞的，但是也有很多冷嘲热讽的，很是寒心 表格计划是做两个版本，一个个人免费版，高级功能会限制下。另一个版本是商业版，会手点费用，因为做表格太花费精力了。我这个表格做了3年，自己才算比较满意。 希望大家多多评论，点赞支持，给点鼓励 下面放图

谁有vb6.0安装包给我下载下？没广告的那种，谢谢

如题

孙老师请进，请教您的屏保程序： 生成scr文件后，将其拷到c:\windows\system32\下，然后右键桌面-》属性-》屏幕保护程序-》，然后选择生成的 scr文件

求求各位大神了，明天就要上交作业了，真心不会啊，哪位好心的大神帮忙看看啊

代码运行起来没问题，就是没返回数值这是为什么呢？难道需要权限吗？

50 元 的整币兑换成 5 元 2 元 和 1 元 币值 ( 要求三种币值均有 ) 的方法有多少种

答案是十六

Dim qi() As Label Private Sub Form_Load() ReDim qi(0 To 31) For i = LBound(qi) To UBound(qi) Step 1 Set qi(i) = Controls.Add("vblabel", "label" & i) With qi(i) .Left = 100 ' 设置控件的位置 .Top = 100 + i * 30 .width = 50 ' 设置控件的大小 .height = 20 .Visible = True .caption = "label " & i ' 设置控件的显示文本 End With AddHandler qi(i).Click, AddressOf Shape_Click ' 添加Click事件处理程序 Next i End Sub 我用代码生成了一个控件数组，但是我用不了控件的事件怎么办 VB6.0 好像不支持Add

用forms2的label标签组已经在窗体上输出了48国际个音标,当焦点在这个程序外的文本输入框时,点击窗体上的label标签,就能输出对应的音标,窗体要在最上面,还不能占用焦点,应该怎么做?

Private Sub Command1_Click() Adodc1.RecordSource = "select * from users where username='" & Trim(Text1.Text) & "'" '查询是否存在相同记录，以姓名为准 Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then '如果有相同记录，不能录入 MsgBox "不能重复录入！" Else '无重复记录就增加记录 Dim IDs As Long Adodc1.RecordSource = "select * from users " Adodc1.Refresh IDs = Adodc1.Recordset.RecordCount + 1 MsgBox IDs '设置最新的userid Adodc1.RecordSource = "insert into users (us

这题我能心算出来结果为A，可是我一上机实操总的出来是B，有没有人分享一下这题在机器上怎么表达

输入红包，金额 list中自动出现抢到的金额

一个计时器定时通过串口向PLC询问数据，同时点击命令按钮也会通过串口往PLC发数据，如果同时触发了就会造成两个流程都在通过串口取数据，取的数据就有问题，这个要如何解决？ 不知我是否表达清楚。。。