1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x-2 y=y+2 loop until y>5 or x5 or x

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/18 16:27:25
1)privatesubcommand1_click()x=10:y=0fori=1to5dox=x-2y=y+2loopuntily>5orx5orx1)privatesubcommand1_cli

1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x-2 y=y+2 loop until y>5 or x5 or x
1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x-2 y=y+2 loop until y>5 or x5 or x

1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x-2 y=y+2 loop until y>5 or x5 or x
是7,i=1 3次 i=2 to 5 4 次

Private Sub 与 Sub的区别 Private Sub Form_Click()和Private Sub Command1_Click()有什么区别?什么时候用Form?什么时候用Command Private Sub Form_click()得到一组随机变量,怎样用到Private Sub Command1_Click()中去啊 VB里的sub单词是什么意思,比如private sub……、end sub Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a = a + 1 Next j Next i Print a End Sub Modify的意思?Private Sub Cmd_Add_Click()With FrmUserEdit.txtUserName = .txtPass = .txtPass2 = .Modify = False.Show 1End WithAdoUserList.RefreshDataList1_ClickEnd Sub VB问题Private Sub Command1_Click()Private Sub Command1_Click()Dim i%For i = Combo1.ListCount - 1 To 0If Combo1.Selected(i) ThenList1.AddItem Combo1(i)End IfNext i这个代码如何改 Private Sub Command1_Click() Dim b,k For k=1 to 6 b=23+k Next k MsgBox b+k End Sub 是关于计算机二级access的问题、、、Private Sub Command1_Click()Dim b,kFor k=1 to 6b=23+kNext kMsgBox b+kEnd Sub 英语翻译控制标签移动private sub timer1_timer()if label1.left VB里的“Private Sub Command1_Click()”是什么意思?那个横, Private Sub Form_Load() 的意思具体是什么啊,sub的意思是什么啊? 英语翻译Private Sub Combo1_Click()Text1.SetFocusOption1.Value = TrueText1.Locked = FalseEnd Sub Private Sub Command1_Click() Dim i,j As Integer For i = 3 To 1 Step -1 Print Spc(5); For j = 1 To 2Private Sub Command1_Click()Dim i,j As IntegerFor i = 3 To 1 Step -1Print Spc(5);For j = 1 To 2 * i - 1Print *;nextjPrintNext iEnd Sub请问它为什 Private Sub Command1_Click() Private Sub Command1_Click() x = 0 n = InputBox() For i = 1 To n For j = 1 To i x = x + 1 Next j Next i Print x End Sub 谁能解释每一部的意思.如果输入3,结果是什么,如何得到的 问一道VB填空题:Private Sub Form_Click() Dim x As Integ问一道VB填空题:Private Sub Form_Click()Dim x As Integerx=5Do Print x;x=x-1Loop While Not xEnd Sub(A)5 (B)5 4 3 2 1(C)出现语法错误的信息 (D)陷入 下列代码的运行结果是什么?Private sub command1_click() s=0 n=100 for i=1 to n s=s+i if i下列代码的运行结果是什么?Private sub command1_click()s=0n=100for i=1 to ns=s+iif i mod 10 = 0 then print *next iend sub Private Sub Book(x As Integer)x=x * 2 + 1If x < 6 ThenCall Book(x)End Ifx=x * 2 + 1Print x;End SubPrivate Sub Command2_Click()Book 2End SubA) 23 47 B) 10 36C) 22 44 D) 24 5030) 单击命令按钮时,下列程序的执行结果为Private Sub Command1_ vb 求 1×2×3×.×99×100=Private Sub Form_Click()Dim i As IntegerDim sum As Integersum = 1For i = 1 To 100 Step 1sum = sum * iNext iEnd Sub 这个有什么问题啊?