VB编程中参数不可选是什么意思?
Application.ScreenUpdating = False '关闭屏幕更新
Static i As Integer '声明一个变量
'判断用户名和密码是否输入正确
If CStr(Password.Value) _
= Right(Names("123456").RefersToLen(Names("123456").RefersTo) - 1) Then
Unload Me '关闭登录窗体
'Application.Visible = True '显示Excel界面
Sheets("数据库").Select
Else
i = i + 1 '密码或用户名输入错误一次,变量i加1
If i = 3 Then '如果输错三次执行下面的语句
MsgBox "对不起,你无权打开工作薄!", vbInformation, "提示"
ThisWorkbook.Close savechanges:=False '关闭当前工作薄,不保存更改
Else '如果输错不满三次,执行下面的语句
MsgBox "输入错误,你还有" & (3 - i) & "次输入机会。", vbExclamation, "提示"
'User.Value = "" '清除文字框中的用户名
Password.Value = "" '清除文字框中的密码
End If
End If
Application.ScreenUpdating = True '开启屏幕更新
Sheets("数据库").Select
End Sub
If CStr(Password.Value) _
= Right(Names("123456").RefersToLen(Names("123456").RefersTo) - 1) Then
这句中Right为参数不可选 展开
编程中参数不可选:没有输入必要的参数,使用了错误的参数或错误赋值引起的。
解决办法:重新对参数进行赋值,并且检查参数的正确性。
VB中的赋值格式:例如,给变量a赋值一个数为12,则格式为:a = 12 [注意:变量(即a)只能是一字母,而赋予的值可以是一个式子,当它是式子时,a的值就是这个式子的结果。
扩展资料:
其他的赋值参数:
1、数学中的赋值
实数(或复数)绝对值在任意域上的推广。赋值这个概念最初是由J.屈尔沙克于1913年提出的。
设φ是定义在任意域F上的一个取非负实数值的函数,并满足以下三个条件:①φ(α)=0,当且仅当α=0,并对某个α∈F有φ(α)≠1;②φ(αb)=φ(α)φ(b);③φ(α+b)≤φ(α)+φ(b),J.屈尔沙克把这样的φ称为F上的一个赋值。
2、赋值和赋值环
非阿基米德绝对值这个概念还可以作如下的推广。
设 Г是一个有序交换群,其运算为乘法,单位元素为1。设0是一个符号,它与Г的元素r,满足r·0=0·r=0·0=0,以及0<r。
若φ: F →Г∪{0}是个满映射,满足:①φ(α)=0当且仅当α=0;②φ(αb)=φ(α)·φ(b);,则称φ是F的一个赋值.或者说F是有赋值φ的赋值域,记作(F,φ)。
Г称为φ的值群。当Г是正实数乘法群时,φ就是前面所说的非阿基米德绝对值。在赋值域(F,φ)中,子成一个环,称为φ 的赋值环。F的子环A成为某个赋值的赋值环,当且仅当对于F的每个元素α,必有α∈A或者α_1∈A。
参考资料来源:百度百科-赋值
Function Right(String, Length As Long)'-------------------此句有两个参数,前一个为字符串,后一个为数字。
right(string,len)
其中,string是你要截取的字符串
len是从右边第几位截取
你这里只有一个参数吧