加入乐帮团

.旧巷.昵称LV50

金    币 :1096080

经验值 : 185885

向TA提问私信TA

  • 请问怎么改才可以运行

    运行出错是因为数据变量类型定义错误。将第2行中的 imteger  改为 Integer 即可。

    2019-09-02

  • 正在做VB,很急

    ask(mid(label1,i,1)ask ---> asc

    2019-08-12

  • VB如何像QQ一样触碰弹出提示框20

    'VB6.0事例:'准备一个图标,Form1属性中,通过Icon载入。'运行程序,系统托盘处将会添加一个图标,通过鼠标单击实现窗体显示/隐藏。Const MAX_TOOLTIP As Integer = 64Const NIF_ICON = &H2Const NIF_MESSAGE = &H1Const NIF_TIP = &H4...

    2019-08-12

    满意答案
  • VB程序设计:设计一个验证登录程序,限制密码错误次数。急用!20

    '如下代码供参考。Dim Password As StringDim num As IntegerPrivate Sub Text1_Change()    Password = Left(Password, Len(Text1.Text))End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)    If InStr("0123456789" + Chr(8), Chr(KeyAscii)) = 0 Then...

     来自 莫笑君心恋红尘  |  2019-05-02

    满意答案
  • 点整理键让text1中的内容经过程序转换后的结果 显示在text2中30

    如下主体转换代码供参考。三个控件:Text1、Text2、Command1Private Sub Command1_Click()    Dim S As String    Dim B As Boolean    S = LCase(Text1.Text)   '将Text1字符全部转换成小写    S = "." & ...

    2019-05-02

    推荐答案
  • 用VB语言实现,多谢多谢多多谢5

    '窗体添加Text1、Command1、Command2控件,程序代码参考如下:Private Sub Command1_Click()    Me.Caption = Text1.TextEnd SubPrivate Sub Command2_Click()    Text1.Text = ""End SubPrivate Sub Form_Load()    Text1.Text = "&q...

    2019-03-24

    推荐答案
  • 用VB6.0制作验证码,当提示验证错误后为何又提示验证正确?60

    Dim yPrivate Sub Picture1_Click()    Randomize Timer    y = ""    Picture1.Cls    For i = 1 To 4        Picture1.FontSize = Int(Rnd * 13 + 12)        j = Int(Rnd * 4) + 1       &n...

    2019-03-24

    推荐答案
  • vb怎么设置无法关闭5

    Private Sub Form_Unload(Cancel As Integer)    If MsgBox("确认关闭吗?", vbQuestion + vbYesNo, "关闭") <> vbYes Then        Cancel = 1    End IfEnd Sub

    1  |  2019-03-17

    推荐答案
  • 打开游戏时出现问题20

       MSVCR100.dll 为 Visual C++ Redistribute 2010 运行库组件之一。该文件缺失或异常导致游戏出现问题,请参考如下操作处理:  1、分别对系统分区、游戏安装目录所在分区进行磁盘查错尝试修复。操作:Ctrl+Shift+Esc...

    1  |  2019-03-16

    推荐答案
  • 下载慢咋办啊

      下载速度,除了受本地受带宽和网络环境影响外,也受网站服务器响应速度以及资源多少的影响。利用如下操作处理,尝试提升下载速度。  1、系统分区磁盘查错。Win键+R,输入 diskmgmt.msc 回车,打开磁盘管理...

    2019-03-16