请填写下列空白,以实现运行后形成一个主对角线上元素值为1,其他元素为0的6×6阶矩阵。 private sub command1 click() dim s(6,6) for i=1 to 6 for j=1 to 6 if i=j then 【 】 else 【 】 end if print 【 】 next j print next i end sub
阅读下面程序段: for a=1 to2 for b =1 to a for c = b to 2i=i 1 next next next print i 执行上面的3重循环后,i的值为
窗体上有一个名称为picture1的图片框控件,一个名称为label1的标签控件,如下图所示。 现有如下程序: public sub display(x as control) if type of x is label thenx.caption="计算机等级考试" elsex.picture=load picture("pic.") end if end sub private sub label1_click() call display(label1) end sub private sub picture1_click() call display(picture1) end sub 对以上程序,下列叙述中错误的是( )
下面程序运行时,内层循环的循环总次数是for m=1 to 3 for n=0 to m—1next nnext m
设在界面上放置了一个滚动条hscroll1和一个标签控件label1,请补齐以下代码,要求每次单击滚动条两端箭头,或滚动条滑块与两端箭头之间的空白区域时,滚动条的值能够反映在标签中。 private sub hscroll1______ label1.caption=hscroll1______ end sub
在窗体上画1个命令按钮,其名称为command1,然后编写如下事件过程: private sub commandl_cuck() dimalt(1 to 100)as integer fori=1 to 100 arr(i)=int(rnd*1000) nexti max=arr(1) min=arr(1) fori=1 to 100if [12] then max=arr(i)end ifif [13] then min=arr(i)end if nexti print"max=";max,"min=";min end sub 程序运行后,单击命令按钮,将产生100个1000以内的随机整数,放入数组alt中,然后查找并输出这100个数中的最大值max和最小值min,请填空。
如果在c盘当前文件夹下已经存在名称为sdat.dat的顺序文件,那么执行语句open "c:sdat.dat"for append as #1之后,将( )。
下面程序的功能是:统计存放在数组a中的n个数有多少个是不同的。具体做法是:变量left指向要被处理的数(从第2个元素开始),right指向数组最后一个元素。若a(left)与排在它前面的某个数组元素值相同,就用数组元素a(right)的值来替换a(left)的值,同时将变量right的值减1;否则将变量left的值加1,处理数组下一个元素,重复以上过程,直到left>right为止。right的值即为不同的数的个数。option explicitoptionbase 1private sub commandl_click()dim a() as integer,n as integer,i as integerdim op as integern=inputbox("请输入数据个数", ,10)redim a(n)randomizefor i=1 to na(i)=in