下列程序实现的功能是:当在窗体上单击时,把c盘根目录下的文件a1.txt复制到 d盘,并取名为a2,txt。 private sub form_click() dim ch as string open "c:a1.txt" for 【13】 as #10 open "d:a2.txt" for output as #r20 do while 【14】 line input #10,ch 【15】 loop close 10 close 20 end sub
设执行以下程序段时依次输入2,4,6,执行结果为()。 dim a(4)as integer dim b(4)as integer for k=0 to 2 a(k 1)=val(inputbox("enter data:")) b(3 - k) =a(k 1) next k print b(k)
visual basic对象可以分为两类,分别为 [6] 和 [7] 。
如下图所示,在列表框list1中已经有若干人的简单信息,运行时在text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在text2中显示“查无此人”。请填空。 private sub commandl_click() dimk as integer,n as integer,found as boolean found=false n=len [8] k=0 whleklistl.listcount and not foundif text1=left$(listl.list(k),n)then tex2= [9] found=true end if k=k 1 wend if not found thentext2=“查无此人” en
下列程序的输出结果是______。 private sub command1_click()a=10:b=20print a;spc(5);b;printprint b;space$(5);a; end sub
在窗体上画一个名为text1的文本框和一个名称为command1的命令按钮,然后编写如下事件过程: private sub command1_click() dim arrayl(10, 10)as integer dim i as integer, j as integer for i=1 to 3 for j=2 to 4 arrayl(i, j)=i j next j next i text1. text=arrayl(2, 3) arrayl(3, 4) end sub 程序运行后,单击命令按钮,在文本框中显示的值是______。
单击命令按钮时,下列程序的执行结果为 private sub command1_click( ) dim x as integer, y as integer x=12:y=32 call pcs(x, y) print x; y end sub public sub pcs( byval n as integer, byval m as integer) n = n mod 10 m=m mod 10 end sub
请填写下列空白,以实现运行后形成一个主对角线上元素值为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
奥苏伯尔提出的三个主要影响迁移的认知结构变量是( )。
下列项中,属于手臂骨骼的是( )。
热爱学生的基本含义是什么
根据讲述活动对象的特点不同,幼儿园讲述活动可分为看图讲述、实物讲述和( )。
在思想品德教育过程中,如果只看到学生差的地方,认为无药可救,这违背了( )的原则。
教师在对幼儿的学习与发展进行评价时应注意哪些方面
in writing, students may not know how to put something into proper english and thus ask their, teacher for help here the teacher is to play the role of a/an__________