c语言variant是什么变量,求救!希望vb高手帮帮忙

从改错题开始

1、 sub form1_click( 具体参数)

private a as integer PRIVATE不能用在此处

a=23：command1。name="command2"

command1。

enable=false

end sub

2。sub form1_click() DO没有LOOP

const max=5

dim exchange,I,msg,nl,temp

dim a(max)

nl=chr(13)&chr(10)

a(1)="杭州"

a(2)="西安"

a(3)="南京"

a(4)="苏州"

a(5)="济南"

exchange=true

do while exchange=false 如果是想循环，这里应该是TRUE

for I=2 to max

if a(I-1)>a(i) then

exchange=true

temp=a(I)：a(i)=a(I-1)：a(I-1)=temp

end if

next I msgbox msg

end sub

这段代码简直是太垃圾了，都懒得改了

三。

执行题

1。题目就是错的，现在改正如下

Dim I, msgm, nl, rep

nl = Chr(13) & Chr(10)

For rep = 5 To 1 Step -1

For I = Asc("A") To Asc("z")

msg = msg & Chr(I)

Next I

msg = msg & nl

Next rep

MsgBox msg

结果：弹出一个对话框，里面的内容为

ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz

ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz

ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz

ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz

ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz

2。

简直看不下去了，这也叫代码，我晕了

你这几个题不要看了，规范不要说，错误都不大堆，已经简直不叫程序了

补充填空题答案

11。AABB

题目又有问题，改正如下

Format(3。

1452, "00000。00") 答案为00003。15

12。

const pi=3。1415926

-pi/2是由-90乘以2*pi除以360得到的，后面也是这样得到的

Picture1。

Circle (Picture1。Width / 2, Picture1。Height / 2), Picture1。Width / 4, vbRed, -pi / 2, -pi / 3

13。这个不知道

14。

Let Set

问答题

1。

窗体底色改变代码

红

Private Sub HScroll1_Change()

Form1。

BackColor = vbred

End Sub

'绿

Private Sub HScroll1_Change()

Form1。BackColor = vbblue

End Sub

'兰

Private Sub HScroll1_Change()

'当滚动条(VALUE)改变时触发这个事件

Form1。

BackColor = vbgreen

End Sub

注：也可这样改变

Private Sub HScroll1_Scroll()

单击两头的箭头时改变

Form1。

BackColor = vbRed

End Sub

填空题第9题

选中一个复制，提示时选是，就可以有一个控件组

增加一列AA

移除索引为1的列

记格应该是没有问题的了。

全部