我们在绘图时常常需要画带箭头的直线，以前我在自编的程序上画箭头时，都是先画一条直线，然后在线端点的两边各画一条短斜线，这样不但麻烦，而且画出来的箭头不标准，不好看。于是我就决定在程序中增加画箭头的代码。谁知看起来简简单单的箭头，编起程来竟然还有点复杂，还要用到几何和三角函数的有关知识！关键就是那两条短斜线尽头的坐标问题。但功夫不负有心人，经过一天的冥思苦想和反复实验，终于获得成功！现将代码与各

这题咋做呢

求大佬告知这样的是为什么安装失败了

找出题中全部错误的部分#VB#

英文版链接地址：https://share.weiyun.com/LC1TZHiL 中文版链接地址：https://share.weiyun.com/9dzARQ1i

c#反编译工具能反编译出VB的exe不？

据说VB将要被淘汰，现在学会不会以后没有用处，但我用的软件SW很宏和二次开发都是VB写的。还有现在PYTHON这么火，是不是直接学PYTHON。

出题程序 第一步，选择题类型，有A、B、C、D四个选项，正确选择只有一个，有限定时间（时间用倒计时方式，最好用扫雷格式上的数字符号），正确打√，错误打×（同时给出正确答案），同时计算得分，给定一段时间，自动跳入下一题（我在考虑是否用多个窗体，每个窗体保存一道选择题，这个思路立刻Pass掉，是否考虑从文件中抽取） 第二步，在第一步的基础上，同时设置两个人来答题，思路同上面一样

如题

C#做的winform能反编译看源码，为啥vb的不行？不都是.Net?

一个工程中不可能有两个sub Main过程，。 这句话对吗

真的不知道怎么做了

Private Sub Command1_Click() Dim i%, Score%, a Randomize a = Array("+", "-", "*", "M") For i = 1 To 10 Text1.Text = Int(90 * Rnd) + 10 Text2.Text = Int(90 * Rnd) + 10 Text3.Text = InputBox("第" & i & "题结果是：", "请输入结果", 0, 6000, 3000) Label1.Caption = a(Int(Rnd * 4)) Select Case Label1.Caption Case "+" If val(Text3.Text) = Val(Text1.Text) + Val(Text2.Text) Then Text4.Text = "√" Score = Score + 10 Label3.Caption = "Your Score is:" & Score Else Text4.Text = "

推荐一本VB的好书：《老兵新传：Visual Basic核心编程及通用模块开发》，今年刚刚出版，清华大学出版社。本书的评价是“内容丰富、深入、文字流畅也不

比如： dim str as string str=“哇哇哇哇哇哇哇哇aaaaaaaaaqqqqqqqqqqqqq” 这个字符串太长了，我想换行，我一回车，就变红了，提示错误，怎么才能换行了不出错误？ 大侠帮助

例如这样一句话123456甲乙丙丁11235戊己庚KD45682辛LP123完 我想提取11235和LP123 .Pattern = "[A-Za-z]{2}\d{3}|\d{4,5}" 如果这样设置的话，会把12345和KD456也提取出来，可以加上限制长度的条件嘛

老铁们，生成的exe离开源文件后，换个电脑还能用吗，现在在隔离，没有其他的电脑

'VB将汉字转换成拼音的函数 Private Function Getpy(Txt) Dim d, TmpTxt Dim wzcode, i, TmpWZ, a, b, ii Set d = CreateObject("Scripting.Dictionary") d.Add "a", -20319 d.Add "ai", -20317 d.Add "an", -20304 d.Add "ang", -20295 d.Add "ao", -20292 d.Add "ba", -20283 d.Add "bai", -20265 d.Add "ban", -20257 d.Add "bang", -20242 d.Add "bao", -20230 d.Add "bei", -20051 d.Add "ben", -20036 d.Add "beng", -20032 d.Add "bi", -20026 d.Add "bian

请教一下，在一组数中，从第一个数开始，依次用5个数相加，如果和值在一定范围内，就把满足和值条件的这5个元素从小到大显示在List中。YC

　　我们知道，VB在画虚线时，线宽只能为1（DrawWidth=1），但有时候我们必须要画粗虚线，那该怎 么办呢？解决这个问题的思路是：要画多宽的虚线，只要在最初那条虚线的两旁画相应数量的虚线就行 了。比方说，画5个像素宽的虚线，那么就在第一根虚线的两旁再各画2根同样长的虚线即可。笔者据此 编写了一段代码，与各位共享。 　　新建一个窗体，上面只放置一个Line控件。代码如下： Option Explicit Dim BjDash As Boolean '是否画虚线：0-画实线，1-画

求助，有没有大佬帮看一下为什么会无法安装呢

这道题，我的答案是BCDE CEGI 然后给的答案和vb都是BCCE DGEI 这个for each给x赋值的顺序不应该是 a（1，1）a（1，2）a（1，3）a（1，4） a（2，1） a（2，2）a（2，3）a（2，4） 这样赋的吗，为什么是 a（1，1）a（2，1）a（1，2）a（2，2） a（1，3）a（2，3）a（1，4）a（2，4） 这样赋的

趁着今天六一,这么欢乐的节日里,开个连载贴. 这个贴酝酿了有几天了,现在发出来看看反响.如果大家都不怎么感兴趣的话,我果断TJ掉. 贴吧的帖子偶尔会抽,或者排版问题影响阅读,所以我每一章都会在博客里也发一次. 看正版高清**连载请点:http://hi.baidu.com/zatansvb/blog/category/Visual%20Basic

如何用vba把word里面的图片保存到文件夹？

我想实现一个简单的操作，打开一个记事本文件，鼠标移动到某个点右键，这是我的代码 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_LE

本人刚开始学vb，createfile函数第一个参数lpfilename应该打什么，我直接打文件路径加文件名显示错误

鉴于本吧的资源不完善，部分吧友仍然找不到vb6的下载地址，于是根据本人安装vb的经验来总结出一份教程，教程内容自二楼开始。

后面的统计个位和十位代码该怎么写

麻烦啦

分享办公人员常用软件：PDF、OFFICE(WPS）、CAD、浏览器等等的操作代码，解放双手，每天机械重复的动作用代码替代。 简介： 1、OFFICE与WPS类似，对象不同，比如excel表格一个是Excel.Application ，而wps是ET.Application，新版本是KET.Application 2、浏览器，以前可以用IE，不过IE基本淘汰在即，建议使用谷歌， 3、CAD国产替代品有浩辰、中望，和WPS这种一样，也是对象名称不一样。 4、PDF一般装个acrobat就好了，毕竟是他自家的东西，当然pdflib破解版也挺不错。

找不到网页的句柄，其他的窗口可以

如何在VB中实现按ctrl+A后，全选文本框中的文字 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 1 Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 或者用这个 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 2 And (KeyCode = Asc("a") Or KeyCode = Asc("A")) Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 但如果窗体上有N个命名都不一样的文本框，有没办法做到所有文本框都一次性赋予CTRL+A的能力？

VB 编译的exe在另外一台电脑上运行时提示“Type mismatch”报错，请问一般是什么情况引起的？

网络交易请慎重，闲鱼交易后，利用闲鱼规则进行恶意退款，大家选择闲鱼交易时注意先收货再发源码类商品.

一直输出：第一年 第二季度

我使用的是CreateRoundRectRgn和SetWindowRgn函数来实现控件圆形，完成后发现锯齿太严重了，亲们有没有好的思

代码如下： Private Type sa a1 As String * 6 a2 As String * 6 End Type Private a As sa, b As sa Dim c As String * 6 Private Sub Form_Load() Show Open "C:\Users\Desktop\text\data1.dat" For Random As #1 Len = Len(a) a.a1 = "一二三四五六" a.a2 = "asdfgh" Put #1, 1, a Get #1, 1, b Close #1 Print b.a1 Print b.a2 End Sub 代码运行以后，窗体上显示的是"一二三"和"asdfgh"。我已经定义a.a1是一个长度为6的定长字符串了，为什么写入随机文件只能写进去三个汉字呢？而英文字母就可以写进去

电脑是Win11系统的，求解？

求助，急用

为什么一个窗体可以调用另一个窗体中的控件对象，而不能调用另一个窗体的通用过程 原理是什么？ 比如创建两个窗体 Form1和Form2 在Form1中创建命令按钮，在其单击事件中书写 （1）Call Form2.Command1_Click 或Call Form2.Command1 均为（错误） （2）Form2.Command1.Value = True（正确） 在（2）中Command1是作为Form2的属性还是什么？