做三个图,分别命名为1。2。3 即石头为1 剪刀为2 布为3
窗体上放三个按钮,分别为YOU(1)、YOU(2)、You(3) 顺序与上同
private sub YOU_click(index as long)
Dim A1 As Long, A2 As Long 'A1 为你出的,A2为电脑出的
A1 = index
Randomize
A2 = Fix(Rnd * 3 + 1) '由电脑随机得到数字1或2或3
image1.picture=app.path & A2 & ".jpg" 这是显示电脑出的什么
Select Case A1
Case 1
Select Case A2
Case 1
MsgBox "和局" ‘这里给出这一局的结果,我用msgbox 显示,你也可以用其他方法,下面的一样。并且在这里还可以加上输赢统计
Case 2
MsgBox "你赢了"
Case 3
MsgBox "你输了"
End Select
Case 2
Select Case A2
Case 1
MsgBox "你输了"
Case 2
MsgBox "和局"
Case 3
MsgBox "你赢了"
End Select
Case 3
Select Case A2
Case 1
MsgBox "你赢了"
Case 2
MsgBox "你输了"
Case 3
MsgBox "和局"
End Select
End Select
YOU是什么东东?
这个在哪?我咋没看到?截图过来!
在哪?我咋没看到?截图过来!
解释一下这vb个代码。。。看不懂。。。
YOU(1) YOU(2) YOU(3) 是一个数组控件,也就是分别表示三个按钮,从程序看YOU(1)=1 表示石头 YOU(2)=2 表示剪刀 YOU(3)=3 表示布 如当你按下YOU(1)这个控制,表示你出的是石头,也就是private sub YOU_click(index as long)INDEX=1 A2 = Fix(Rnd * 3 + 1) '由电脑随机得...
解释一下这vb个代码。。。看不懂。。。
三个按钮的名字,也就是name属性都是you,你自己可以看一下 如何建立控件数组,就是:你先在form上画一个button,name=you,然后选择这个控件,选择复制(CTRL+C),然后再点form,选择粘贴(CTRL+V),vb会提示你是不是建立控件数组,你选是,这样,连续复制两个,就得到了you(1),you(2),you(3...
麻烦翻译下这段VB的编码。必须通俗,专业用语看不懂的。。求计算机大爷回...
Function Fun(a As Interger ) 【函数名是:Fun(a),a是这个函数的参数,调用这个函数时需要给a赋个值,带到函数里参与运算。】Static c 【c是全局变量。】b=0:b=b+2:c=c+2 【 b=b+2:意思是把b+2的计算结果赋值给b。b开始是0(b=0),经过b=b+2之后,b现在的值就变成了2。
这个VB代码看不懂,求解读
a(Val(b) + 1) = a(Val(b) + 1) + 1 的目的就是统计每个数字的个数,其中a(1)表示0的个数、a(2)表示1的个数、a(3)表示2的个数……a(10)表示9的个数。有两个Next k是因为有两个For k=...啊,这个很难理解么?
在线等 哪位高手帮我分析一下这些VB源代码的意思,我实在是没分了,不...
首先是定义rs_addreader为数据集类型全局变量 然后是函数的 Command1_Click单击按钮1 首先是有效性判断 如果Combo1为空则提示"请选择读者种类"并设置Combo1获得焦点,然后退出过程 如果Text1为空则提示"读者姓名不能为空"并设置Text1获得焦点,然后退出过程 如果Text2为空则提示"读者编号不能为空"并...
请帮我解释解释这个vb代码的意思
你把代码粘贴到VB里先看看运行效果,就是一个类似蝴蝶结的图形不停的在转 仔细观察,其实就是靠不断的变换4个顶点的位置来实现的 '保存那4个点的坐标 Dim x1 As Long, x2 As Long, x3 As Long, x4 As Long Dim y1 As Long, y2 As Long, y3 As Long, y4 As Long '这4个变量控制4...
请高手帮忙详解下这个VB代码(请按步解释越详细越好不胜感谢必厚报...
这个程序主要是定制一个表格,然后向其中的第一列填写文字 Public Sub setgrid()声明一个整型变量(长度16位,即两个字节)Dim i As Integer ’如果发生错误则跳到下方 seterror 标记处 On Error GoTo seterror ’一下以点开始的属性,均为MSFlexGrid1表格控件的属性 With MSFlexGrid1 ’等于 MS...
请人解说一下这段VB代码,我新手,30分哦!!
你看一下这样的效率是不是比原来那样高?只需要从头到尾检查两遍就完成 Private Sub CmdRight_Click()Dim X As Integer If LstLeft.SelCount > 0 Then For X = 0 to LstLeft.LstCount - 1 If LstLeft.Selected(X) = True Then LstRight.AddItem LstLeft.List(X)End If Next X For X =...
解释VB代码.(我是初学者请各位帮帮忙忙)万分谢谢!
Private Sub Command2_Click()事件过程开始。若Text2控件的Text属性值不为空,则Text1控件的Text属性值等于(Text2.Text - 32) * 5 \/ 9。Private Sub Command3_Click()事件过程开始,Form2显示。窗体二中的Private Sub Command1_Click()事件过程开始,关闭窗体Form2。Text1控件键盘按下事件过程开始...
求这段VB代码解释(很短)急!!
函数:ReadProcessMemory()读取指定进程的内存数据,成功返回0。参数:hProcess:进程句柄,必须是可访问进程。lpBaseAddress:指向进程欲读取的基地址,在数据读取时系统将以此确定读取的数据范围是否可访问。不可访问时操作失败。lpBuffer:用于接收数据的缓冲地址 nSize:读取的数据字节大小.lpNumberOfBytesRead:...