[原创]下面的程序执行时在Text1文本框中输入一个数,鼠标点击按钮后,在Text2文本框中显示相应的数。 Private Sub Command1_Click( ) Dim k as integer k=Val(Text1.text) Text2.text=Str(k mod 5\2) End Sub 当在Text1文本框中输入9,则在Text2文本框中显示的值是:______。
下列VB程序运行时在文本框Text1中输入85,单击命令按钮Command1后,文本框Text2中输出X的值,那么程序划线入应填入语句:______,Text2中显示的是______。 Private Sub Command1_Click( ) Dim s as Integer Dim x as String s=Val(Text1.text) If s>=90 then X=”A” ElseIf s>=60 then X=”B” Else X=”C” End if End Sub
编写计算1/2+2/3+3/4+4/5的程序如下:[把选择题改编成程序填空题] Private Sub Command1_Click( ) Dim i,n as integer Dim sum, x as Double Sum=0 ① For i=1 to 5 ② n=n+1 sum=sum+x Next i Text1.text=Str(sum) End Sub 请在程序画线处填上合适的语句______ ______
[原创]为了求得两个正整数的所有公约数,可以设计如图所示窗体,只要用户单击破“计算”按钮,求得的所有公约数就会在列表框List1中显示出来。其中,单击“计算”按钮将执行如下程序段: Private sub command1_click( ) Dim a,b As integer Dim temp As integer Dim i As integer a=Val(Text1.text) b=Val(Text2.text) If a>b then temp=a:a=b:b=temp End if For i=1 to a If ________________then list1.additem i Next i End sub (1)此程序主要采用了______算法。 (2)请在划线处填入合适的代码______。
寻找最大数。在文本框Text1中输入一串数字,输出由这些数字组合而成的最大数。算法的基本思路是:先将输入的数按位拆开,再把数从大到小排序后重新组合。如输入123,重新组合后输出的最大数是321。实现该功能的程序如下,在程序①和②划线处填入适当的语句或表达式,把程序补充完整。 Private Sub Command_Click( ) Dim a(1 to 10) as Integer Dim n as ① Dim i,lena,j as integer n=Text1.text lena=Len(n) For i=1 to lena ‘按位取出各位数字 a(i)=Val(Mid(n,1,i)) ② Next i For i=1 to lena-1 For j=lena to i+1 Step -1 If ③ then t=a(j):a(j)=a(j-1):a(j-1)=t End If Next j Next i For i=1 to lena Text2.text=text2.text+str(a(i)) Next i End Sub (1)程序①中划线处应填入______。 (2)程序②中划线处语句有错,应改为:______。 (3)程序③中划线处应填入______。