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的列

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

全部

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:游动-白 设计师:我叫白小胖 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值