多项选择题
[说明]
给定一个十进制整数A，将其转换为R进制数的方法是：将A的整数部分逐次除以R，直到商等于0为止，将所得的余数由低位到高位排列在一起，就得到了对应R的进制数。以A=11，R=2为例，11÷2=5…1，5÷2=2…1，2÷2=1…0，1÷2=0…1中各式的余数依次为：1，1，0，1，于是与A对应的二进制数为1011。
下面的流程图实现了将十进制数2597转换为八进制数的功能，其中：
(1)循环1执行除法运算并将余数依次记录在数组a中(假定数组长度足够长)，如a[1]， a[2]，……，a[k]；
(2)循环2则用于将这些余数按逆序输出，即a[k]，a[k-1]，……，a[1]；
(3)图中i,j分别是循环1和循环2中的循环变量；
(4)图中q用于记录每次除法所得的商值。
[流程图]
热门
试题
问答题
[说明]本程序提供了查询景点票价信息的功能，查询包括两种方式：按景点名称查询以及白定义查询。程序界面如下图所示： 其中，选择景点名称的组合框(Comobox)名为Combo1，单旋钮“旺季”和“淡季”分别名为Op- tion1和Option2，用于输入票价上限的文本框名为Texi1，两种查询方式的“提交”按钮分别名为 Command1和Command2。已知Combol列表中第i个景点的旺季票价和淡季票价分别存放于数组元素P(i，0)和p(i，1)中。[Visual Basic代码] Dim p(20, 2) As Single ’通用声明Private Sub Form_Load( ) For i = 0 To 9 ’对p赋值 p(i, 0)=........ :p(i, 1)=....... NextEnd SubPrivate Sub Commandl_Click( ) ’查询方式一：按景点名称查询 Dim cboTcxt As String eboText = (1) Fori = 0 To (2) -1 ’对Combo1中各列表项循环 If (3) = cboText Then MsgBox 景点名称 & cboText & 旺季票价 & p(i, 0) & _ ,淡季票价 & p(i, 1) Exit Sub End If Next iEnd SubPrivate Sub Command2_Click( ) 查询方式二：自定义查询 Dim price As Single, result As String, flag As Boolean price =Val( (4) ) flag = False result = For i = 0 To (2) - 1’对Combo1中列表项循环，找出符合条件的景点 If(Optionl. Value And p(i, 0) ＜ = price) Or( (5) ) Then (6) result=result & 景点名称 &(3)& ,旺季票价: &_ p(i, 0) & ,淡季票价: & p(i, 1) & vbCrLf End If Next i If flag Then MagBox result Else: Msgaox 没有找到符合条件的景点信息! End IfEnd Sub