问题
句型转换
句型转换。
1. Last year they went to the Disney in Hong Kong. They had a good time
there.（合为一句）
Last year they went to the Disney in Hong Kong ____they had a good time.
2. Why don't you take a bus to go there?（同义句转换）
take a bus to go there?
3. The old man is too old to travel around.（同义句转换）
The old man is old he can't travel around.
4. I don't know where to visit next.（改为复合句）
I don't know____ I should next.
5. Betty likes taking a bus to work. She likes taking an underground to work better.（合并为一句）
Betty____taking an underground taking a bus to work.
答案
1. where . 2. Why not 3. so; that 4. where; visit 5. prefers; to
[代码1] Begin VB.Form Form1 Caption=“List列表拒绝添加重复信息”//...窗体描述(略) Begin VB.CommandButton Command2Caption=“退出”//...窗体描述(略) End Begin VB.CommandButton ommand1Caption=“添加”//...窗体描述(略) End Begin VB.TextBox Text1//...窗体描述(略) End Begin VB.ListBox List1Height=1860ItemData="Form1.frx": 0000Left=1020List="Form1.frx": 0002 TabIndex=0 Top=525 Width=2580 End Begin VB.Label Labell BackStyle=0’Transparent Caption="请输入编号" //...窗体描述(略) End End [代码2] Attribute VB_Name="Form1" Attribute VB_GlobalNameSpace=False Attribute VB_Creatable=False Attribute VB_PredeclaredId=True Attribute VB_Exposed=False Private Sub Form_Load ( ) Listl.AddItem"a01001" Listl.AddItem"a01002" End Sub Private Sub Command1 Click ( ) Dim Myval As Long For i=0 To (1) (2) If (3) Then MsgBox"系统不允许重复输入，请重新输入" Exit Sub End If (4) (5) End Sub