1. Private Sub Form_Click ()

Num=0

Do

Num=num + 3

Print num

Loop Until num Mod 4=0

End Sub

After the program is running, click the form, the output is __________________



2. Draw a text box on the form, there are the following events:
Private Sub Text1_KeyPress (KeyAscii As Integer)
Dim char As a String
Char=CRH (KeyAscii)
KeyAscii=Asc (UCase (char))
Print a String (6, KeyAscii)
End Sub
After the program is running, if the letter "a" on the keyboard input, the form displayed on the results,

CodePudding user response:

(1)
3
6
9
12
(2)
656565656565

CodePudding user response:

What mean,,,,,,,,

CodePudding user response:

Sure is right? This is my test

CodePudding user response:

The

reference 3 floor u012860781 response:

sure is right? This is my test

The second question should be 666666
Help you confirmed,

CodePudding user response:

Oh! Dear caozhy.
You 'r e wrong. The correct answer is AAAAAA "
Can you professional?

CodePudding user response:

reference 5 floor u012860781 reply:

Oh! Dear caozhy.
You 'r e wrong. The correct answer is AAAAAA "
Can you professional?

That don't know,

String (6, 65)
Incredibly return AAAAAA rather than 65 as a "65" take the first letter of 6, then get 666666,
This can only say that the VB is abnormal,

CodePudding user response:

1 if you have any questions? Really can't find the answer

CodePudding user response:

refer to 7th floor u012860781 response:

1 if you have any questions? Really can't find the answer

Looking for the answer, find a VB run well,

And the second question is really I was wrong and not your answer is wrong?

CodePudding user response:

I just can't put the VB, this just need help

CodePudding user response:

references 9 f u012860781 response:

I just can't install VB, it only need help

Then you should believe me, not answer on the net,

CodePudding user response:

references 9 f u012860781 response:

I just can't install VB, it only need help

The first (1) is:
3
6
9
12

The first 2 is:
AAAAAA

CodePudding user response:

CodePudding user response:

Since the original poster can find the answer also to ask what?