请问哪个高手知道这个VB程序是什么意思，万分感谢，我很急
来自： 更新日期：早些时候
这段VB程序的意思？~
opt_shop_temp = True
End If
如果opt_shop的值为真然后opt_shop_temp也为真
If Opt_card_owner.Value = True Then
Opt_card_owner_temp = True
End If
和上同样道理
If (text_id <> "") And (text_name <> "") And ((Opt_shop.Value = True) Or (Opt_card_owner = True)) Then
form_log.Hide
form_main.Show
End If
如果text_id和text_name不为空和opt_shop，opt_card_owner的值为真，然后form_log隐藏，显示form_main
解释得够清楚把， 努力学习呀，加油哦
请问哪个高手知道这个VB程序是什么意思，万分感谢，我很急视频
相关评论：13382236432：在线等 哪位高手帮我分析一下这些VB源代码的意思,我实在是没分了,不...
朱雨饶这个应该是一个系统管理程序，当你修改密码是：如果你两次输入的一样则继续往下进行，并提示你说密码修改成功；如果有错的话，会提示你说前后输入的密码不一致；
13382236432：请问VB高手,这段程序什么意思??
朱雨饶1、replace 替换 上面代码是 替换stra里的某写符号，由半角还成全角 2、在全角状态下输入和半角差别有点大！ 比如智能ABC，上面有个月牙形，点击一下成了满月，就是换成了全角！其他输入法也是这个样子！
13382236432：请问一下,能帮我设计一下这个VB程序。这是个“算法”中的“排序”问题...
朱雨饶Dim a(1 To 50) As Integer Dim b(1 To 50) As Integer Dim c(1 To 50) As Integer Private Sub Command1_Click()Dim j As Integer Me.Text1.Text = "排序前数据" + vbCrLf j = 1 While j <= 50 '产生随机数 a(j) = Int(100 * Rnd())Me.Text1.Text = Me.Text1.Text ...
13382236432：求一段VB 程序
朱雨饶放两个command1和2，位置和大小调整好，窗口要适当大一点，以便于在窗口上直接显示结果，代码如下：Dim A() As Integer, B() As Integer, I As Integer, J As Integer Dim M As Integer, N As Integer, Max As Integer, T As Integer Private Sub Command1_Click()Dim St As String If ...
13382236432：求高手解释VB代码(逐条)
朱雨饶End Sub ===点击Command2,就结束程序=== Private Sub Command2_Click()End End Sub ===本窗体的Unload事件过程=== Private Sub Form_Unload(Cancel As Integer)===frm_main可用=== frm_main.Enabled = True End Sub
13382236432：求vb高手,图片中的程序4,求详细解答过程
朱雨饶输入：123 x=123,n=3 执行按钮中的循环 i=1，b(3)=123 mod 10=3,x=x\/10=12.3 i=2，b(2)=12.3 mod 10=2,x=x\/10=1.23 i=3，b(1)=1.23 mod 10=1,x=x\/10=0.123 执行f，其中a(1)=1,a(2)=2,a(3)=3 i=1，j=2，a(1)>a(2)→1>2，不成立，f=0 i=1，...
13382236432：关于vb 这个程序什么意思?
朱雨饶dim n(0 to 1) as integer '定义数组 sim I%,k%,x me.cls '清除窗体上画的图案、数字等 n(0)=0 '赋值 n(1)=0 for i =1 to 10 '循环1-10 x = int(rnd * 100) + 1 '生成1-100的随机整数 me.print x; 在窗体上打印数字x k= x mod 2 'k等于x除以2的余数，判定 奇数...
13382236432：VB程序问题,急急急,求助!
朱雨饶可以用二维数组保存所有已经输入的坐标（当然因为个数不确定，用集合Collection更好）。至于坐标之间的运算，可以这么计算，比如求和：arrPoints(0,1) + arrPoints(2,1) '数组的第一个索引表示第几个点，第二个索引0表示x，1表示y 2、用文件提供坐标数据。这个比较适用于有大量样本数据时，如果要用户...
13382236432：vb高手帮忙看一下这个程序 那里错了 为什么总出现下标越界
朱雨饶因为代码不全，所以基本上看不出来要做什么，我有照着这个题目要求做的完整代码，贴在下面，你可以看看：以下代码不需要任何控件 Private Sub Form_Activate()Dim a(1 To 100) As Integer, prime(1 To 100) As Integer, np As Integer, sp As Integer 'a数组存放100个随机整数，prime数组存放...
13382236432：Vb高手进 急急急!!!
朱雨饶这个，我不写代码，只提供思想。第一循环for I=1 TO 10 ；random（）；然后printf；第二，冒泡法学过把，排序就不多讲了，
这应该是别人编的一个播放声音文件的过程，自定义了一个起始位置和长度。
这个不是完整的代码，里面有好几个函数都没有定义，貌似一个通信程序，有没有完整的……看看就可以知道了
If Opt_shop.Value = True Thenopt_shop_temp = True
End If
如果opt_shop的值为真然后opt_shop_temp也为真
If Opt_card_owner.Value = True Then
Opt_card_owner_temp = True
End If
和上同样道理
If (text_id <> "") And (text_name <> "") And ((Opt_shop.Value = True) Or (Opt_card_owner = True)) Then
form_log.Hide
form_main.Show
End If
如果text_id和text_name不为空和opt_shop，opt_card_owner的值为真，然后form_log隐藏，显示form_main
解释得够清楚把， 努力学习呀，加油哦
请问哪个高手知道这个VB程序是什么意思，万分感谢，我很急视频
相关评论：
朱雨饶这个应该是一个系统管理程序，当你修改密码是：如果你两次输入的一样则继续往下进行，并提示你说密码修改成功；如果有错的话，会提示你说前后输入的密码不一致；
朱雨饶1、replace 替换 上面代码是 替换stra里的某写符号，由半角还成全角 2、在全角状态下输入和半角差别有点大！ 比如智能ABC，上面有个月牙形，点击一下成了满月，就是换成了全角！其他输入法也是这个样子！
朱雨饶Dim a(1 To 50) As Integer Dim b(1 To 50) As Integer Dim c(1 To 50) As Integer Private Sub Command1_Click()Dim j As Integer Me.Text1.Text = "排序前数据" + vbCrLf j = 1 While j <= 50 '产生随机数 a(j) = Int(100 * Rnd())Me.Text1.Text = Me.Text1.Text ...
朱雨饶放两个command1和2，位置和大小调整好，窗口要适当大一点，以便于在窗口上直接显示结果，代码如下：Dim A() As Integer, B() As Integer, I As Integer, J As Integer Dim M As Integer, N As Integer, Max As Integer, T As Integer Private Sub Command1_Click()Dim St As String If ...
朱雨饶End Sub ===点击Command2,就结束程序=== Private Sub Command2_Click()End End Sub ===本窗体的Unload事件过程=== Private Sub Form_Unload(Cancel As Integer)===frm_main可用=== frm_main.Enabled = True End Sub
朱雨饶输入：123 x=123,n=3 执行按钮中的循环 i=1，b(3)=123 mod 10=3,x=x\/10=12.3 i=2，b(2)=12.3 mod 10=2,x=x\/10=1.23 i=3，b(1)=1.23 mod 10=1,x=x\/10=0.123 执行f，其中a(1)=1,a(2)=2,a(3)=3 i=1，j=2，a(1)>a(2)→1>2，不成立，f=0 i=1，...
朱雨饶dim n(0 to 1) as integer '定义数组 sim I%,k%,x me.cls '清除窗体上画的图案、数字等 n(0)=0 '赋值 n(1)=0 for i =1 to 10 '循环1-10 x = int(rnd * 100) + 1 '生成1-100的随机整数 me.print x; 在窗体上打印数字x k= x mod 2 'k等于x除以2的余数，判定 奇数...
朱雨饶可以用二维数组保存所有已经输入的坐标（当然因为个数不确定，用集合Collection更好）。至于坐标之间的运算，可以这么计算，比如求和：arrPoints(0,1) + arrPoints(2,1) '数组的第一个索引表示第几个点，第二个索引0表示x，1表示y 2、用文件提供坐标数据。这个比较适用于有大量样本数据时，如果要用户...
朱雨饶因为代码不全，所以基本上看不出来要做什么，我有照着这个题目要求做的完整代码，贴在下面，你可以看看：以下代码不需要任何控件 Private Sub Form_Activate()Dim a(1 To 100) As Integer, prime(1 To 100) As Integer, np As Integer, sp As Integer 'a数组存放100个随机整数，prime数组存放...
朱雨饶这个，我不写代码，只提供思想。第一循环for I=1 TO 10 ；random（）；然后printf；第二，冒泡法学过把，排序就不多讲了，
