excel 控件里的组合框怎么使用？

有个picture scale

第1次：k=10
第2次：k=7
第3次：k=4
第4次：k=1
总共循环4次

A

10 类
11 整数
12 Form类
13 鼠标按键按下事件
14 鼠标悬停事件
15 鼠标按键弹起事件

Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)
'检测用键盘来选择文字的情况
Label1.Caption = "所选文字的起始位置：" & Text1.SelStart
Label2.Caption = "所选文字的长度：" & Text1.SelLength
End Sub
Private Sub Text1_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
'检测用鼠标来选择文字的情况
Text1_KeyUp 0,0
End Sub
Private Sub Command1_Click()
'退出程序
End
End Su

Label1.caption="欢迎进入算法与程序设计"
① Label1.top = Label1.top - 100
② Label1.top = Label1.top + 100

命令按钮里面
thisform.label2.visible=.T.
t=alltrim(thisform.text1.value)
b=""
n=len(t)
for i=n to 1 step -1
b=b+subs(t,i,1)
endfor
thisform.label2.caption=b
在Dblclic 里面
thisform.release

d

错误的是D
没什么好解释的,光看index属性就知道了,如果都相同就没法区分各个元素了

好像可以存为RTF,这个没用过,就不知道了.
可以试试在DW中的用富文本框.

Form 窗口，或表单
Label 标签，一般的文字显示控件
TextBox 文本输入框
CommandButton 普通命令按钮
Image 图像显示控件
Timer 定时器控件，按设定的时间间隔触发事件。
。。。。
这些MSDN都有了。VB的这些知识都太老了。还在学？

添加三个CommandButton 将Command1当成小汽车 一个Timer 设置其Timer1.Enabled=False Timer1.Interval=100 示例代码如下：
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Command1.Left = Command1.Left + 20
If Command1.Left + Command1.Width = Width Then Command1.Left = 0
End Su

The next is the design of friendly interface.The article not only mentioned the controls offered by Android,also the customized controls based on various demand.Then the storage methods were chosen,and sqlite3,SharedPreferences,as well as file storage were included in the article.Eventually,the whole system was tested,which improved stability of the system.Through developing RSS reader based on Google android,we are able to understand development processes and features,of Google android——the mobile platform——as well as related technology of RSS.专业翻译找Q⑨①〇①⑧〇〇⑧③

具体原因还不大清楚，你试试直接new一个adapter然后set给他，而不是notify

判断题：1X、 2X、3X、4X、5X、6X、7X、8Y、9Y、10X
正确率就不知道了 不太会做理论题 不试不知道 你自己试一下不就知道了
上面的第一题 的图片怎么丢了？
第二题很简单 一个计时控件 每隔几百毫秒就移动一下Label 然后加个判断
出界了就反向移动，代码就不用了吧 这个都不知道做？
第三题是弱智题
n=0
str=""
for i=1 to 10000
if (i mod 13=7)and(i mod 7=5)and(i mod 5=3) then
n=n+1
if n mod 5=0 then
str=str & cstr(i) & vbCrLf
else
str=str & cstr(i) & " "
end if
end if
next i
'--------------------------------------
'文件操作部分
open "D:result.txt" for output as #1
print #1,str
close #1
'--------------------------------------
以上是VB6的代码
如果是VB.Net 修改一下文件操作部分就可以了
Dim n As Long
Dim str As String
n = 0
Str = ""
For i = 1 To 10000
If (i Mod 13 = 7) And (i Mod 7 = 5) And (i Mod 5 = 3) Then
n = n + 1
If n Mod 5 = 0 Then
str = str & CStr(i) & vbCrLf
Else
str = str & CStr(i) & " "
End If
End If
Next i
Dim chl As New System.IO.StreamWriter("D:result.txt", True)
chl.WriteLine(str)
chl.Close()
以上是VB.Net 的代码

如果obj.checked 值是true 取反的值则为false.
如果obj.checked 值是false 取反值是true.
obj是多选题的控件名,checked属性主要目的是判断多选题控件名是否被选中,所以从逻辑上说是一样的

先生成一个LinearLayout，把加载模式设置成为竖直加载“vertical”，再按照顺序往LinearLayout添加TextView1，TextView2。

Private Sub Command1_Click()RandomizeFor i = 0 To 9Label1(i).Caption = Int(Rnd * 90) + 10Label3(i).Caption = Int(Rnd * 9) + 1Label5(i).Caption = ""Text1(i).Text = ""Label7.Caption = ""NextEnd SubPrivate Sub Command2_Click()For i = 0 To 9If Val(Text1(i).Text) = Val(Label1(i).Caption) + Val(Label3(i).Caption) ThenLabel5(i).Caption = "√"Label7.Caption = Val(Label7.Caption) + 10ElseLabel5(i).Caption = "×"End IfNextEnd SubPrivate Sub Command3_Click()For i = 0 To 9Label5(i).Caption = ""Text1(i).Text = ""Label7.Caption = ""NextEnd SubPrivate Sub Form_Load()For i = 0 To 9Label1(i).Caption = ""Label3(i).Caption = ""Label5(i).Caption = ""Text1(i).Text = ""Label7.Caption = ""NextEnd Sub

没看到你图是什么样的,我照你题目的意思,答案如下
Private Sub Command1_Click()
Dim i As Variant
Dim j As Variant
Dim k As Variant
k = Val(Text1.Text)
Const PI = 3.14159
If k > 0 And k < =999 Then
i = 2 * PI * k
j = PI * k ^ 2
Print "圆的周长是：" & Round(i,2)
Print "圆的面积是：" & Round(j,2)
Else
MsgBox "请输入数值并且不能大于999",,"提示"
End If
End Sub
以上经上机调试成功.

'将 list2 中选中的项目移动到 list1 中
Private Sub Command2_Click()
moveSelItem List2, List1
End Sub

'将 list1 中选中的项目移动到 list2 中
Private Sub Command3_Click()
moveSelItem List1, List2
End Sub

'将 source 中选中的项目移动到 target 中（支持多选功能）。
Private Sub moveSelItem(source As ListBox, target As ListBox)
Dim i As Integer
i = 0
While i < source.ListCount
If source.Selected(i) Then
target.AddItem source.List(i)
source.RemoveItem (i)
Else
i = i + 1
End If
Wend
End Sub

'将 list2 中所有的项目移动到 list1 中
Private Sub Command4_Click()
moveAllItem List2, List1
End Sub

'将 list1 中所有的项目移动到 list2 中
Private Sub Command5_Click()
moveAllItem List1, List2
End Sub

'将 source 中所有的项目移动到 target 中。
Private Sub moveAllItem(source As ListBox, target As ListBox)
Dim i As Integer
i = 0
For i = 0 To source.ListCount - 1
target.AddItem source.List(i)
Next
source.Clear
End Su

Private Sub sjx(n As Integer)
For i = 1 To n
Picture1.Print String(i, "@")
Next i
End Sub
Private Sub pxsbx(n As Integer)
For i = 1 To n
Picture1.Print Spc(i); String(n, "@")
Next i
End Sub
Private Sub lx(n As Integer)
For i = -n To n
Picture1.Print Spc(Abs(i)); String(2 * (n - Abs(i)) + 1, "@")
Next i
End Sub
Private Sub Command1_Click()
Call sjx(5)
End Sub
Private Sub Command2_Click()
Call pxsbx(6)
End Sub
Private Sub Command3_Click()
Call lx(5)
End Su

1.下列控件中,能改变大小的是（ timer ）.
TextBox (这是文本框）
Label（标签控件）
Timer（时钟控件）
PictureBox（图片框）
2.关于窗体的Load事件的触发时机,错误是（用户单击窗体时, 窗体显示之后, 窗体被卸时 ）.
用户单击窗体时
窗体被加载时 （当体加载时,无论是否显示,都会触发LOAD事件）
窗体显示之后
窗体被卸载时
3.在Visual Basic中,关于程序的执行顺序,错误是（由Visual Basic开发系统决定, 由代码行的顺序决定,随意执行 ）.
由Visual Basic开发系统决定
由事件驱动
由代码行的顺序决定
随意执行

4.在下列有关Visual Basic的叙述中,正确的是（1,2,3 ）.
采用了事件驱动的编程机制
是面向对象的编程语言
是可视化的程序设计语言
是面向过程的程序设计语言

5.Visual Basic6.0集成开发环境有三种工作模式,分别是（1,3,4 ）.
设计模式
编写代码模式
执行模式
中断模式

6.以下属于Visual Basic中变量的数据类型是（1,2,3 ）.
Integer
Double
Variant
Currency

7.对象是代码和数据的集合,例如,Visual Basic中的（1,2,3,4 ）等都是对象.
窗体
文本框
命令按钮
标签

8.VB6.0集成开发环境的主窗口包括（1,2,3,4 ）.
标题栏
菜单栏
状态栏
工具栏

9.下列属于VB应用程序构成的是（ 1,2,3 ）.
cls文件
res文件
ocx文件
pas文件

10.下列赋值语句错误的是（2,3,4 ）.
A=B+C
B+C=A
–B=A
2=A+B