王朝知道

分享

 

01.一个VB问题
LS的你用的方法也可以，不过太麻烦了直接用Text1.SelText=Clipboard.GetText就可以了在运行后会出现Text1的光标消失的情况，这是只要在按钮的Click事件里加上Text1.SetFocus语句将焦点直接设置给Text1控件即可...查看完整版>>一个VB问题02.一个VB问题
Private Sub Command1_Click() Dim inData As String Text1.Text = "" Open ".\smtext1.txt" For input As #1 '将该文件做为输入文件读入Do While Not EOF(1) '如果不是文件结束处则做以下动作Input #1, inData Text...查看完整版>>一个VB问题03.一个vb问题
第一次单击：x=0,y=0for i=1 完成时：x=2,y=0for i=2 完成时：x=4,y=2输出: 4 2第二次单击：x=4,y=0for i=1 完成时：x=6,y=4for i=2 完成时：x=8,y=10输出: 8 10第三次单击：x=8,y=0for i=1 完成时：x=10,y=8for...查看完整版>>一个vb问题04.一个VB问题
Private Sub Command1_Click() Text1.Text=Val(Text1.Text)+Int(Rnd()*6)+1End Sub...查看完整版>>一个VB问题05.一个vb问题
Private Sub Command1_Click() Dim a As String, b As String, c, d, e As String a = Val(Text1.Text) If Len(a) <> 2 Then MsgBox "请输入两位数" Text1.SetFocus Else d = Left(a, 1) e = Right(a, 1) b = ...查看完整版>>一个vb问题06.一个vb问题
在窗体上添加Label控件.Form_Load()使其透明,用Image控件装载各自变色选项图片.窗体Form_Load()使其不可见:Private Sub Form_Load()Image1.Visible = FalseImage2.Visible = FalseLabel1.BackStyle = 0Label2.BackSt...查看完整版>>一个vb问题07.请教一个vb问题编译运行模式和解释运行模式有什么区别
编译运行模式就是在先对源码进行编译，翻译为特定机器目标代码，然后直接执行，速度快。解释运行模式就是解释一句后就提交计算机执行一句，并不形成目标程序。速度慢，可以跨平台。...查看完整版>>请教一个vb问题编译运行模式和解释运行模式有什么区别08.一个关于VB的小问题
arrX(1) = countersA() 是把整个数组countersA() 赋值给数组arrX(1)，arrX(1)里面的内容也是一组数组，arrX(2)(3) ，就是数组arrX(2)里的第4个元素，（第一个元素是0），所以有2组括号。这个比较难理解，需要有一定的...查看完整版>>一个关于VB的小问题09.编程:VB的一个小小问题?
不就是求最大公约数嘛，从较小的那个数开始循环到1，如果能被两个数同时整除，就是了呗。dim a,b,c,ia=100b=50if a>b thenc=belsec=aend iffor i=c to 1 if (a mod i)=0 and (b mod i)=0 then c=i exit fo...查看完整版>>编程:VB的一个小小问题?10.VB一个简单的问题
Private Sub Command1_Click()Clipboard.SetText Text1.TextEnd Sub...查看完整版>>VB一个简单的问题

 

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。