求指点,VB这段代码的问题所在,应该怎么解决?谢谢!

如题所述

两种修改方法:

    end if后再加个end if

    第二个if前加else

温馨提示:内容为网友见解,仅供参考
第1个回答  2016-03-08
第二个if前加else

VB编程的问题,麻烦高手指点指点.
举例来说,表单的名称为form,那么在匈牙利命名法中可以简写为frm,则当表单变量名称为Switchboard时,变量全称应该为frmSwitchboard。这样可以很容易从变量名看出Switchboard是一个表单,同样,如果此变量类型为标签,那么就应命名成lblSwitchboard。可以看出,匈牙利命名法非常便于记忆,而且使变量名非常清晰易懂,这样,增强了代码的...

VB程序问题,急急急,求助!
1、提供界面让用户输入,只要一对文本框输入坐标,采用多次输入的方式(每次输入一个点)。在两个文本框输入坐标(x,y)后点击“添加”按钮,保存该坐标,如此循环录入即可。最好用一个标签提示当前已经输入的坐标。可以用二维数组保存所有已经输入的坐标(当然因为个数不确定,用集合Collection更好)。至于...

vb中关于msflexgrid控件显示查找到的数据库内容的问题,求大神指点
1、就是你每次查找时 修改sql语句的条件,比如你之前的条件是 ".. where errCode = 5"--这里是查询1条记录 你后面重新查找时就将 条件改为 ".. where errCode in (5,6,7)"--这样就可以查出多条记录 2、利用ADO对象操作数据库(具体怎么操作,你可以找些资料,有问题到时候再分析)这样你每次...

vb代码求注释呀,有个地方看不明白,求大神指点
素数:除了1和它本身,不能被任何数整除的数。For b = 2 To a - 1 If a Mod b = 0 Then Exit For End If Next b 这段代码,从2到a-1依次与a进行取余运算,只有当这所有取余结果都不为零(即不能整除)时,可判断a为素数。而这时,b刚好和a的值相等。 如果中途有任何一个数取余...

VB定时按键代码,不知道哪里错了,求高手指点
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Interval = 1000 Timer1.Enabled = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1...

我在VBA编程中运行程序,弹出无效外部过程,求大神指点,怎么解决?
CommonDialog1 是在VB中用的,VBA 请参考如下代码,然后自己修改 Sub 对话框()With Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False'单选择.Filters.Clear'清除文件过滤器.Filters.Add "Excel Files", "*.xls;*.xlw".Filters.Add "All Files", "*.*"'设置两个文件过滤...

Microsoft VBScript 编译器错误 错误 '800a0408' 如何解决
解决办法 可以把出错的那行的空格都删除,用tab键或是重新用半角空格来替代,切换英文半角认识如下:1、在搜狗输入法的英文状态下,“英”字后边的那个符号,为全角半角符号。2、当显示月牙时,为半角符号,太阳时为全角符号。单击这个符号进行全角半角的切换。3、半角是月牙状的图形如下图。

vb 代码出现错误了 求高人指点一下 问题出现在 aa = myrd.GetString(0...
.Connection = mycon mycmd.CommandType = Data.CommandType.Text mycmd.CommandText = aa Dim myrd As OleDbDataReader = mycmd.ExecuteReader myrd.Read()aa = myrd.GetString(0) + ""Label13.Text = "本店注册会员总共'" + aa + "'人"...

vb小白求解释一段代码 各位高人求指教!!!
1首先 介绍一下FindMin 函数 参数是一个整形数组 Start = LBound 表示数组的下界 Finish = UBound 表示数组的上界 这两个主要是做循环用 Min = a 是初始化Min变量为数组第一个元素 For i = Start To Finish 'If a(i) < Min Then Min = a(i)Next i 这个代表遍历数组a 每一次循环...

VB登陆系统设计代码错误 求指教!!!
如果你确信select语句没有写错的话,我想应该是没有事先设置数据库的连接串吧

相似回答
大家正在搜