22问答网
所有问题
当前搜索:
单击窗体时窗体上显示
VB,运行下面程序,当
单击窗体时
,
窗体上显示
的内容的第一行是( ),第二...
答:
执行x=x*2+1后x的值变为11,执行判断语句,由于x>0,不再执行call test(x)语句,而执行end if 后的语句,即x=x*2+1,x的值变为23,接着执行form1.print x语句,在
窗体上
输出x,即23(所以第一行
显示
23)第二次调用的子过程结束,回到第一次调用的子程序,继续执行end if 后的语句,即x...
1. 窗体的Form_Click()事件过程如下,请写出
单击窗体
后,
窗体上
的
显示
结...
答:
s=15;a=0 分析:第一次循环:a=5;s=0 -> s=s+a=0+5=5;a=a-1=5-1=4 第二次循环:a=4;s=5 -> s=s+a=5+4=9;a=a-1=4-1=3 第三次循环:a=3;s=9 -> s=s+a=9+3=12;a=a-1=3-1=2 第四次循环:a=2;s=9 -> s=s+a=12+2=14;a=a-1=2-1=1 第五次...
vb编程题:
单击窗体
,在
窗体上显示
1~200之间既能被5整除又能被7整除的...
答:
Private Sub Form_Click()Dim i As Long, A As Long A = 0 For i = 1 To 200 If i Mod 5 = 0 And i Mod 7 = 0 Then Print i A = A + i End If Next Print "以上是同时被5和7整除的数,和=" & A End Sub
设计一个程序当
单击窗体时
,在
窗体上显示
任意一幅图片
答:
文后是一个完成上述随机动画的完整演示程序,需要在From1
窗体
中安放一个图形框Picture1及三个命令按钮Command1-3,然后把下面的代码填入相应的事件处。运行此程序之后,按下按钮1,则在图形框中进行随机文字
显示
。按下按钮2,则在图形框中随机显示三角锥体。按下按钮3,则退出程序。此程序在Windows95系统...
VB程序运行后,
单击窗体
,要求
窗体上显示
的输出结果如下图
答:
如下:Private Sub Form_Click()Dim a As String a = "123456789" '第1空 For i = 1 To 5 '第2空 Print Space(6 - i); '第3空 Print Mid(a, 6 - i, 2 * i - 1) '第4空 Next i End Sub
VB题目 图片 当程序持续运行后,
单击窗体
,则
窗体上显示
的是什么?谢谢
答:
下标从0开始,也就是a(0)至a(8)对应1 到9,即a(0)的值是1,依次类推 当i=0 时,5-i=5,print a(5-i) 输出a(5)即 6 当i=1 时,5-i=4,print a(5-i) 输出a(4)即 5 当i=2 时,5-i=3,print a(5-i) 输出a(3)即 4 当i=3 时,5-i=2,print a(5-...
VB编写程序:设计一个程序,当
单击窗体时
,在
窗体上显示
任意一幅图片。怎样...
答:
首先添加一个窗体,在这个
窗体上
加一个文本框的控件,在这个文本框的
单击
事件中写如下的程序:Dim num, sum, it(1), n, t, hPrivate Sub Form_Click()File1.Refreshsum = 0List1.ClearFor i = 0 To File1.ListCount - 1t = Split(File1.List(i), ".")(UBound(Split(File1.List(i...
VB编写程序:设计一个程序,当
单击窗体时
,在
窗体上显示
任意一幅图片。_百...
答:
假设你的图片路径为d:\fafa.gif,代码如下:Private Sub Form_Click()Picture1.Picture = IIf(Picture1.Picture = LoadPicture(""), LoadPicture("d:\fafa.gif"), LoadPicture(""))End Sub 这样就可以
单击
切换图片了,对了,你要加一个图片框控件,再写入代码 ...
用vb设计
单击窗体
,在
窗体上显示
1+3+5+……+99之和。
答:
private sub form_click()for i=1 to 99 step 2 sum=sum+i next print sum end sub
执行下面的程序,当
单击窗体时
,
显示
在
窗体上
第一行的内容是?第二行的...
答:
For I=0.5 To 8.5 Step 2.5 ‘I从0到8,每隔2执行一次循环体(0,2,4,6,8)Sum=Sum+I*10 ’累加sum(sum=0+0*10+2*10+4*10+6*10+8*10)Next I Print Sum '打印
显示
累加结果和循环次数(sum=200,i=10)Print I 这代码很奇怪,整型变量 I 却用浮点数加,还step,...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
单击窗体则在窗体上显示文字
vb单击按钮窗体的显示与
vb中单击窗体显示文字
vb每单击一次窗体显示文字
vb单击命令按钮窗体显示文字
单击窗体改变窗体颜色
vb单击与双击窗体
vb怎么直接显示在窗体上
vb怎么在窗体上显示文字