55问答网
所有问题
当前搜索:
vb中ucase是什么意思
vb
给程序添加运行参数
答:
程序繁琐了,简洁一些:Private Sub Form_Resize()If LCase(Command) = "/h" Then Print "HELLO"ElseIf LCase(Command) = "/n" Then Print "您好"Else Print "你没有设置运行参数"End If End Sub 这样参数就可以不在意大小写了
两个
VB
题目
答:
2)Private Sub Text1_Change()Text1.Text =
UCase
(Text1.Text)Text1.SelStart = Len(Text1.Text)End Sub 4)Private Sub mnuForm2_Click()Form2.Show vbModeless, Me '无模式窗体 End Sub Private Sub mnuForm3_Click()Form3.Show vbModal, Me '模式窗体 End Sub '
VB
帮助说明:'当 Show...
求代码~~~有哪位好心人按照以下要求用
VB
做出计算器来,我的分全给你...
答:
拜托拜托拜托哪位好心人帮忙把全过程的代码贴一下,本人实在实在感激感激不尽了啊~~~拜托拜托了!!!如果完全没问题了,让我换个号来追加财富
什么
的也行啊!!!拜托拜托,谢谢谢谢了啊!!! 展开 我来答 4个回答 #热议# 网文质量是不是下降了?百度网友bb9b8a3 2009-11-04 知道答主 回答量:24 采纳率...
VB
的编程公式有哪些
答:
Month 得知日期变量内是第几月Name As 更改文件名 Now 得知目前点脑的日期与时间Oct 字符转成八进制的字符串 Option
VB
内部一些选项设定PopupMenu 跳出菜单 Print 列印数据QBColor 设定颜色(16色)Randomize 随机数初始化声明 Replace 取代字符串中某些字符串 VB6提供 RGB 设定颜色(255*255*255色)...
vb
的把一串字符串中的同个字幕大写换成小写 小写换成大写
答:
s1 = "ABacd"s2 = "a"s3 = ""For i = 1 To Len(s1)s = Mid(s1, i, 1)If s =
UCase
(s2) Then s3 = s3 & LCase(s2)ElseIf s = LCase(s2) Then s3 = s3 & UCase(s2)Else s3 = s3 & s End If Next i MsgBox s3 ...
VB中
如何把txt文件转换成CSV文件 重点是txt和CSV文件路径不能做死,可以...
答:
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"CommonDialog1.ShowOpen '显示打开文件对话框 R = CommonDialog1.FileName CommonDialog1.InitDir = App.Path CommonDialog1.Filter = "文本文件(*.CSV)|*.CSV|所有文件(*.*)|*.*"If
UCase
(Right(R, 4)) = ".TXT...
VB
里 步长不能被上限整除时会怎么样?
答:
还有这里mid是个函数,mid还可以是个字符串语句,其格式为mid$(字符串,位置[,L])=子字符串,
意思
是把从“字符串”的位置开始的字符用子字符串代替,如果有L自变量,则替换的内容是子字符串左部的L个字符。
ucase
:把小写字母转换为大写字母例:ucase("fkjf") '返回FKJFLcase:把大写字母转换为小写字母例:lcase("jJ...
vb
怎么做个vb编译器?
答:
我先用
Vb
编一个截取C2、LINK命令的程序:C2:Private Sub Form_Load()f =
UCase
$(Left$(Command$, 256))Open "E:\C2.txt" For Output As #1 Print #1, f Close End End Sub LINK:Private Sub Form_Load()f = UCase$(Left$(Command$, 256))Open "E:\C2.txt" For Output As #1 ...
VB
如何让输出的内容全部显示在picture中
答:
Picture的CurrentX和CurrentY记录了当前绘图点的位置,改变它们的值就可以达到在任意坐标点上画图的效果了
从
VB
界面弄个框导入数据库的MDB文件怎么做?
答:
你的
意思
是吧数据库的数据导入
vb
框中?中选中 Microsoft ActiveX Data Object 2.5 library 代码 function ExecuteSQL( byval strSQL as string ) as ADODB.recordset on error goto ErrorTary dim objRecordset as adodb.Recordset dim objConnection as adodb.connection dim strArr() as string set ...
棣栭〉
<涓婁竴椤
16
17
18
19
20
21
22
23
24
76
其他人还搜