如果一定要用循环的话,就用以下方法
Dim Str1 As String, Str2 As String, I As Long
'Str1为待转换字符串
For I = Len(Str1) To 1 Step -1
Str2 = Str2 + Mid(Str1, I, 1)
Next
'把Str1倒叙排列并保存在Str2里了
另外,虚机团上产品团购,超级便宜
ListView list = (ListView) findViewById(R.id.ListView01)
//生成动态数组,加入数据
ArrayList<HashMap<String, Object>>listItem = new ArrayList<HashMap<String, Object>>()
for(int i=0i<10i++)
{
HashMap<String, Object>map = new HashMap<String, Object>()
map.put("ItemImage", R.drawable.checked)//图像资源的ID
map.put("ItemTitle", "Level "+i)
map.put("ItemText", "Finished in 1 Min 54 Secs, 70 Moves! ")
listItem.add(map)
}
//生成适配器的Item和动态数组对应的元素
SimpleAdapter listItemAdapter = new SimpleAdapter(this,listItem,//数据源
R.layout.list_items,//ListItem的XML实现
//动态数组与ImageItem对应的子项
new String[] {"ItemImage","ItemTitle", "ItemText"},
//ImageItem的XML文件里面的一个ImageView,两个TextView ID
new int[] {R.id.ItemImage,R.id.ItemTitle,R.id.ItemText}
)
//添加并且显示
list.setAdapter(listItemAdapter)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)