写出 a1.dat文件的最终结果 Private Sub Form_Click() Dim f1 As Integer, f2 As Integer, f3 As Integer Open "c:\a1.dat" For Output As #1 f1 = 2 f2 = 3 Print #1, "NO."; 3, f1 Print #1, "NO."; 4 , f2 For i = 5 To 7 f3 = f1 + f2 Print #1, "NO."; i, f3 f1 = f2 f2 = f3 Next i Close #1 End Sub
举一反三
- 17da6c6cdc6dbf1.png一阶梯形杆件受拉力 F 的作用，其截面 1-1， 2-2， 3-3 上的内力分别为 F1， F2 和 F3，三者的关系为（ ）。 A: F 1＝ F 2 、F 2＞F 3 B: F 1＝F 2 、F2＝F3 C: F1＝F 2 、F2＜F 3 D: F1≠F2 、F 2≠ F 3；
- 已知函数f（x）满足：f（a+b）=f（a）•f（b），f（1）=2，则f2(1)+f(2)f(1)+f2(2)+f(4)f(3)+f2(3)+f(6)f(5)+f2(4)+f(8)f(7)=______．
- 已知函数f（x）满足：f（p+q）=f（p）f（q），f（1）=3，则f2(1)+f(2)f(1)+f2(2)+f(4)f(3)+f2(3)+f(6)f(5)+f2(4)+f(8)f(7)等于（ ）
- 以下程序的运行结果是 intf, f1, f2, i; f1 = 0; f2 = 1; printf("%d%d", f1, f2); for(i = 3; i <= 5; i++) { f = f1 + f2; printf("%d", f); f1 = f2; f2 = f; }
- 设f1（x）和f2（x）为二阶常系数线性齐次微分方程y″+py′+q=0的两个特解，若由f1（x）和f2（x）能构成该方程的通解，下列哪个方程是其充分条件？（） A: f1（x）f′2（x）-f2（x）f′1（x）=0 B: f1（x）f′2（x）-f2（x）f′1（x）≠0 C: f1（x）f′2（x）+f2（x）f′1（x）=0 D: f1（x）f′2（x）+f2（x）f′1（x）≠0